Macro à l'ouverture

Résolu
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 4243 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


A voir également:

3 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Il faut l'appeler dans "Workbook_Open" de ThisWorkbook et faire en sorte que son code soit compatible.
1
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
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
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
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.
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
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é.
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonsoir,
Comme ceci
Private Sub Workbook_open()
Call tri_plage()
End Sub

ou
Private 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
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour gbinforme
Merci pour ton aide
La 2°solution est la bonne
Cordialement
0