Discussion :

[bernard38]

Bjr,

J'essaie sans succès d'ouvrir dans une macro un fichier qui contient un auto_open par

Code :

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

Workbooks.Open chemRecap, True

que faut-il ajouter pour qu'il s'ouvre en lançant son auto_open.
cdt

[Gorfael]

Salut bernard38 et le forum
Pas très clair
Je suppose que tu utilise AutoOpen pour lacer une macro dès l'ouverture d'un classeur ?
Tu passes en VBA (<Alt>+<F11>)
tu ouvres le module ThisWorkBook
Dans la case de gauche en haut du module, tu choisis Workbook
=> ça te crée la macro Workbook_Open() qui se lance dès l'ouverture de ce classeur (la case de droite te permet de choisir toutes les macros à lancement automatique de chap workbook.

Si ce n'est pas cela, explique le but à atteindre.
A+

[Didier Gonard]

Bonjour,

C'est normal une des caractéristiques de l'Auto_Open est justement qu'il ne se déclenche pas si le classeur est ouvert par vba....
Sauf cas particulier, ce n'est plus à employer car pourrait devenir incompatible avec des versions Office future, ce qui n'est pas encore les cas...

Tu peux obtenir le même résultat (blocage du Workbook Open), si besoin, en ouvrant ton classeur via du code en utilisant la propriété EnableEvents de l'objet Application

cordialement,

Didier

[bernard38]

Bjr,
Merci j'ai bien noté vos réponses.Mon problème c'est qu'à partir de ma macro j'ouvre un autre fichier qui contient lui aussi des macros et je voudrais lancer une de ces macros par mon code.J'ai éssayé application.run et call.mais sans reussite.
La macro que je veux lancer se nomme actu_sem dans le fichier recap_ts:

Code :

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

1
2
3
4
5
6
7
Sub actu_sem()
ActiveSheet.Unprotect Password:="laurent"
Sheets("Effectifs").Activate
efface
ActiveSheet.Unprotect Password:="lxx"
 
rep = InputBox("Saisir date du lundi")

Mon code:

Code :

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

1
2
3
4
5
cheminRecap = "\\AD\liste\projets\ccoraa_118712\Appairage\RAA-712\Recap_ts.xls"
Workbooks.Open cheminRecap, True, , , , "ts"
Sheets("Effectifs").Activate
Application.Run ("recap_ts!actu_sem")
Sheets(nomF).Activate

et je voudrais passer la valeur de rep en même temps sans perturber le fonctionnement normal de cette macro quand on ouvre directement le fichier.

Peut-être un peu brouillon?

[Didier Gonard]

citation : un peu brouillon...

si ton problème est que ton Auto_Open ne se déclenche pas à l'ouverture par code, il suffit de mettre (comme l'évoque Gorfael) dans l'évènement Open du ThisWorbook que tu ouvres, un appel à la macro que tu veux et qui doit-être "visible" bien sûr...


Prenons un classeur Pass- Brouillon-4.xls qui a ce code dans son ThisWorkbook

Code :

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

1
2
3
Private Sub Workbook_Open()
Workbooks.Open ("E:\Pass- Brouillon-2.xls")
End Sub

et un autre classeur Pass- Brouillon-2.xls qui a ce code dans son Thiworkbook :

Code :

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

1
2
3
Private Sub Workbook_Open()
Call toto
End Sub

et ce code dans un module classique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub auto_open()
Call untruc
End Sub
 
Sub toto()
MsgBox "coucou"
End Sub
 
Sub untruc()
MsgBox "Me it's AutoOpen :)"
End Sub

Si tu ouvres le 2 tout seul, tu auras les 2 messages des msgbox vu que cette manière mettra en œuvre le Workbook_Open ET l' Auto_Open.
Si tu lance le 4, qui va ouvrir le 2, via son code, tu n'auras que le message Coucou car seule la macro du Worbook_Open (qui appelle toto) sera validée



cordialement,

Didier

[fred65200]

bonjour

Code :

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

ActiveWorkbook.RunAutoMacros xlAutoOpen

devrait te convenir.
ou

Code :

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

1
2
Workbooks.Open(Filename:= "Le chemin complet").RunAutoMacros _
        Which:=xlAutoOpen

Cordialement

[bernard38]

Bjr,
Merci à tous
J'ai réussi en changeant le nom de la macro auto_open et en créant l'appel dans le thisworkbooks pour éviter le doublon au lancement direct du fichier.
Mais j'ai tjs des difficultés avec la façon de répondre à la question posée par la macro appelée.
Cdt

[panthera26]

bonjour cet la première fois que j ai besoin de cette macro que je ne connais pas

j ai créer une macro email mais avec un bouton (simple sans condition) = la, l email envoi si on appuye sur le bouton

j aimerai qu une macro ouvre le fichier excel seul, vérifie une colonne "A" trouve le mot alerte dans la colonne "A" et dans le corps du texte email on indique "C".value le nom et "D".value la date et le ferme excel tout seul

mais heure fixe le matin 9H autant de fois que le mot est la tout les jours sauf WE car l ordi est pas allumé (mais peu resté allumé)

sans ouvrir le dossier le classeur ni excel car se rappelle des dates sur 1 an on a des oublies

car en fait liste de contrat de maintenance