Heropenen documenten met macro's (inschakelen)

[Evitje]

Hoi allen,

Ik zit met een klein probleempje.

Ik heb een excel document gemaakt, maar hiervan heb ik verschillende keren het programma opgeslaan en al mijn definitieve wijzigingen zitten in het laatste document.

Wanneer ik 1 van de vele documenten open, opent hij steeds een ander document erbij.

Kan iemand mij uitleggen hoe dit komt ?

Dit had ik reeds gevonden van DeMeter, maar ik begrijp het niet zo goed of het wel van toepassing is.

Code:
Sub test2()
Workbooks.Open Filename:="C:\Map2.xls"
Run "Map2.xls!test"
End Sub

Bovenstaande code komt op het blad waarin je de macro wilt laten openen.
(moet natuurlijk wel je Map2.xls file bestaan op je C:\ schijf.


Groetjes Evitje

 

[Demeter]

Evitje,

Zal niet aan de opgegeven code liggen deze gaat alleen maar aan als je de macro test2 laat lopen.

Welke code staat op ThisWorkbook in je VB-editor?
Hier moet de code staan welke wordt doorlopen als je een bestand opent / afsluit.

 

[Evitje]

Uhm, ik heb ze beide eens bekeken en ze zijn beide hetzelfde.

'(In de Thisworkbook module)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Evitje - oefening").Delete
End Sub

Wat ik nu wel zie is dat er achter oefening geen nummer staat.

Ik heb dus

Evitje - oefening1, Evitje - oefening2, Evitje - oefening3, ...

Evitje

 

[Demeter]

Met deze code delete je je custom toolbar bij het afsluiten van het document.

Wat voor een soort document wordt er mee opgestart? Komt deze link je bekend voor?

 

[Evitje]

Hey Ferenc,

Hij gaat dan ineens evitje - oefening 2 openen , als ik BV. in 3 bezig ben als ik op een knop druk met een macro aan (vba)

 

[Demeter]

mmm,
Dus je bent bezig in een werkblad, bijvoorbeeld: evitje - oefening 3, en als je dan op een knop drukt dan opent hij een ander document? wat niet de bedoeling is.

Welke code staat er achter deze knop?

 

[Evitje]

Idd ferenc,

Code:

Sub Foto_toevoegen()

'Deze macro geeft de geselecteerde foto weer.

ActiveSheet.Unprotect "evitje"
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename("Foto voor SAF JPEG-Afbeelding (*.jpg), *.jpg")

If fileToOpen = False Then
    MsgBox "Geen foto geselecteerd", vbOKOnly
Else
    ActiveSheet.Pictures.Insert(fileToOpen).Select
    With Selection
        .ShapeRange.Width = 170
        .ShapeRange.Height = 115
      End With
    End If
End Sub

Evitje

 

[Demeter]

Dit zou volgens mij geen probleem hoeven op te leveren.

Kan je je file oploaden? zonder prive gegevens natuurlijk!

 

[Evitje]

Hey ferenc,

Ik heb het gevonden.

Ik heb gewoon een nieuwe map aangemaakt en mijn bestand een nieuwe naam gegeven.

Als ik het nu open lukt het wel

Bedankt !

Evitje

 

[Demeter]

Soms denken we te ver.......................

Graag gedaan.