Discussion :

[ericdev67]

Bonjour,

J'essaye de faire exécuter automatiquement (=à l'ouverture du classeur) une macro.

Je sais que je dois utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Option explicit
private sub
 et byval

, mais je n'arrive pas à les mettre dans l'ordre.....une petite aide ?

Merci,
A+

[Krovax]

Bonjour,
Ca ne fait que 6 combinaisons a tester. Mais quelques explications semblent necessaire.
Option explicit n'a rien a voir c'est une option a mettre en première ligne d'un module. Qui permet de dire que dans ce module toutes les variable doivent être déclaré.

Private sub c'est un début mais faut metre un truc a coté.
Byval c'est utilisé pour passer les variable en argument.

En gros en l'état aucune de c'est 3 ligne ne permettra de lancer la macro a l'ouverture du classeur.

De la lecture :
Les évènements du module objet ThisWorkbook
A toi de trouver le bon évènement

[ericdev67]

Merci Krovax,

En fait, même en relisant, je n'ai pas tout compris dans le tuto :

Pour l'instant j'ai le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
private sub workbook_open()
msgBox "Salut   "& environ("Username") & "Lancement de la mise à jour ? "
Application.run ("'Miseajour'")
end sub

La macro "Miseajour" étant dans un module.
Je l'ai mise dans le "thisworkbook", et j'avais mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sub miseajour_open()

pensant que ça allait marcher....je ne comprends pas pourquoi elle ne se lance pas automatiquement à l'ouverture du classeur....????

Merci,
A+

[Krovax]

Bonjour,
restont simple
garde ta macro dans un module
mais une chose
le nom de ta macro est :
miseajour_open
pas seulement
Miseajour

Mais laisse au moi a l'utilisateur la possibilité de dire non. Car la je te trouve liberticide pour utiliser de grand mot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
private sub workbook_open()
select case msgBox ("Salut   "& environ("Username") & "Lancement de la mise à jour ? ",vbyesno)
case vbyes
miseajour_open
case vbno
msgbox "Bon ben pas de MAJ."
end select
end sub

end sub

[ericdev67]

Merci Krovax,

mes utilisateurs sont tellement "chevronnés" qu'ils font les additions dans les cellules Excel, sans utiliser les formules....donc, j'essaye de leur faciliter la vie....Même si je te rejoins dans ton adage, en ajoutant : "Ne donne pas un poisson à un pêcheur, apprends-lui à pêcher" (c'est pas de moi, mais de Mao si ma mémoire est bonne....). D'où ma volonté d'exécution automatique à l'ouverture du classeur de la macro "Miseajour"

Par contre merci pour le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vbYesNo

, je ne connaissais pas et vais pouvoir le réutiliser....

Je continue mes recherches sur l'ouverture automatique...


Merci,

A+

[Krovax]

Si tu ne veux pas laisser le choi a lutilisateur ne lui laisse pazs de non a cliué signale juste quil va y avoir une mise a jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
msgBox "Salut   "& environ("Username") & chr(13) & "Lancement de la mise à jour!"
miseajour_open

mais laisser le oui/non et ne pas laisser le choix n'est pas cohérent du tout. enfin pense en

[ericdev67]

Merci Krovax,

J'ai compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub workbook_open()
 
miseajour_open
 
end sub

en mettant ma macro en _open

Tout fonctionne !!!!

Merci pour ton aide,

A+ pour de prochaines aventures......