Macro d'ouverture Résolu

Question

Bonjour, 

Lorsque j'ouvre un fichier TEST.XLS

j'execute le code ci dessous, afin que mes usages puissent choisir leur propre fichier.  :

Private Sub Workbook_Open()

    Dim MyFile As String
    
    MyFile = Application.GetOpenFilename()
     Workbooks.Open (MyFile)
 
    'Workbooks(MyFile).Activate

    Workbooks.Close
 
End Sub
Ce fichier est un *.CSV que j'enregistrer plus loin en *.XLS

Une fois ouvert j'aimerais que le workbook actif soit celui choisi par le user

et que le TEST.XLS se ferme par la suite 

Je ne suis pas certain de la façon d'indiquer le activate car :

'Workbooks(MyFile).Activate

ne fonctionne pas


Configuration: Windows 7 / Mozilla 11.0

Frenchie83 · Answer

Bonsoir
Essayez ceci
Private Sub Workbook_Open()
    Dim MyFile As String
    ClasseurActif = ThisWorkbook.Name
    MyFile = Application.GetOpenFilename()
    Workbooks.Open (MyFile)
    'Workbooks(MyFile).Activate
    Workbooks(ClasseurActif).Close
End Sub
Cdlt

Macro d'ouverture

1 réponse

Discussions similaires

Newsletters