Automatiser une macro dans Excel

[Ashruna]

Bonjour à tous,

Je souhaite automatiser une macro qui bloque le scroll sur mon premier worksheet au lancement du fichier excel et je ne sais pas comment comment faire !!!

Quelqu'un pourrait m'aider !!!

Voici ma macro de blocage du scroll

Sub BlocDefile()
Worksheets("Page de Garde").ScrollArea = "A1:O28"
End Sub

Moderator dixit : [End Code) s'écrit [/code]

Merci beaucoup

 

[zeb]

Elle est très bien ta macro.
Qu'est-ce que tu ne sais pas faire ?

 

[Ashruna]

Merci Zeb,
Heu je ne sais pas la faire s'éxécuter à l'ouverture du fichier.
Je suis obligée de le faire manuellement...
MErci

 

[zeb]

Donc la question est "Comment exécuter quelque chose dès l'ouverture d'un classeur ?" et n'a rien à voir avec ScrollArea !

Cherche donc dans le forum, la réponse y est donnée plusieurs fois

Spoiler

Et je prouve ce que je dis : http://www.presence-pc.com/forum/ppc/Programmation/resolu-lancer-macro-automatiquement-sujet-4693-1.htm#t30558

 

[Ashruna]

Ok, je vais chercher
Mais je n'ai pas parler de mon scroll aréa, ça c'est ma macro.... Elle n'est juste pas automatique.....
Merci quand même Zeb !!!

 

[zeb]

(Tu sais ce qu'est un Spoiler ? - Clique dessus alors )

 

[Ashruna]

J'ai regardé le forum pour les macros automatiques dès l'ouverture de mon workbook. J'ai trouvé les lignes de codes qu'ils faut saisir mais ajouter aux miennes, je ne sais pas faire !!!

Exemple, j'ai déjà ces lignes existantes dans une macro :

Sub BlocDefile() 
Worksheets("Page de Garde" ).ScrollArea = "A128" 
End Sub

Je voudrais rajouter celle là :

Private Sub Workbook_Open()   
   Nom de la macro à lancer  
End Sub

Merci de m'aider, je ne développe jamais !!!!

 

[zeb]

Ah, et bien si, maintenant, tu développes

"Nom de la macro à lancer" est dans ton cas : "BlocDefile"
C'est tout !

Pour une fonction aussi simple, tu peux même mettre :

Private Sub Workbook_Open()   
   Worksheets("Page de Garde" ).ScrollArea = "A128"
End Sub

 

[Ashruna]

lol - A mon niveau, je ne suis pas sûre qu'on puisse appeler ça comme ça mais merci pour l'info.
Je vais essayer de mettre ça en pratique de suite !!!!
Merci pour toute l'aide apportée !!!!!

 

[Ashruna]

Ca marche pas !!!!
voici mes lignes de code

1.Sub Workbooks_Open()
2.Worksheets("Page de Garde").ScrollArea = "A1:O28"
3.End Sub

La macro fonction manuellement mais pas à l'ouverture du classeur...
Pfffff, je suis nulle même avec Autpen...

 

[zeb]

:/ Ca marche alors ou pas ?

 

[Ashruna]

Non, la macro ne fonction pas à l'ouverture du classeur.
Obligée de cliquer manuellement sur Run ou Play
Snifffff

 

[zeb]

Mais pourquoi cette fonction s'appelle Workbooks_Open ?


....

■ Ouvrir l'éditeur de macro "Microsoft Visual Basic" [Alt+F11]
■ Afficher la fenêtre "Explorateur de projets" [Ctrl+R]
■ Se positionner sur "ThisWorkbook". Ouvrir le code de cet objet [F7]
■ Dans la fenêtre de code, dans la liste déroulante "Objet", choisir WorkBook, dans la liste "Procédure", choisir "Open", si ce choix n'est pas fait par défaut.
■ Dans l'éditeur, constater que la méthode "Workbook_Open" existe bien. Remplir son code.

■ Penser à acheter un bouquin, à se faire payer une formation, à suivre un tutoriel, à lire l'aide de Excel/VBA, ...