Macro d'ouverture
Résolu
Mavericku
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Mavericku Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Mavericku Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro d'ouverture
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Page d'ouverture google - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
Merci beaucoup !