Macro à l'ouverture
Résolu
jc80
Messages postés
5063
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une macro en feuille2 et je souhaiterais qu'elle s'exécute automatiquement
à l'ouverture du fichier.Je précise Excel
Pouvez-vous svp me dire quel code je peux mettre.
Cordialement
J'ai une macro en feuille2 et je souhaiterais qu'elle s'exécute automatiquement
à l'ouverture du fichier.Je précise Excel
Pouvez-vous svp me dire quel code je peux mettre.
Cordialement
3 réponses
-
Bonjour,
Il faut l'appeler dans "Workbook_Open" de ThisWorkbook et faire en sorte que son code soit compatible. -
Bonjour
Merci pour ton aide
ci-dessous ma macro que je n'arrive pas a démarrer automatiquement.
elle se trouve en feuil2 de mon fichier
Si tu peux me résoudre ce problème.
Sub tri_plage()
'
' tri_plage Macro
Application.Goto Reference:="plage"
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Cordialement-
Bonjour,
En théorie, gbinforme t'as donné toute l'information nécessaire donc il faut seulement suivre ses indications.
Si tu ne sais pas ou trouver "Workbook_Open" de ThisWorkbook, alors regarde le lien suivant :
https://silkyroad.developpez.com/VBA/EvenementsClasseur/
Il y a des illustration pour trouver ou est ce Workbook_open.
Tu peux appeler tri_plage() à cet endroit.
Donc ca va donner
Private Sub Workbook_open() tri_plage() End Sub
Il y a beaucoup de tutoriel sur developpez.com pour ceux qui commence a programmer en VBA.
-
-
Merci pour ta réponse
j'ai bien trouvé Workbook_open()
j'ai mis mon nom de macro
j'ai la réponse suivante>>>
erreur de compilation
Attendu:=
là je suis coincé.-
Bonsoir,
Comme ceciPrivate Sub Workbook_open()
Call tri_plage()
End Sub
ouPrivate Sub Workbook_open()
' tri_plage Macro
Application.Goto Reference:="plage"
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
-
