Execution macro a l'ouverture d'un fichier Excel

Bonjour a tous,

J'ai un fichier Excel utilisé par de nombreux collaborateurs intitulé "Fichier CO"

Pour m'assurer que tous le monde utilise ce fichier correctement, j'active la macro au démarrage.

Sauf que :

Cas n° 1 : s'il n'y a pas de classeur Excel ouvert au moment ou ils ouvrent le "Fichier CO" = Pas de problème, la macro exécute à l'ouverture comme prévue et l'ensemble de la Macro marche super bien.
Cas n° 2 : Si il y a déjà un classeur Excel ouvert au moment ou ils ouvrent le "Fichier CO", la macro ne s’exécute pas au démarrage rendant le fichier inutilisable, et la je piges pas pourquoi.

Quelqu'un aurait une idée ?

Merci d'avance.

Agd

Bonsoir Agd, bonsoir le forum,

Et si tu nous donnais le code ? On pourrais peut-être mieux comprendre...
Normalement il devrait se trouver dans le composant ThisWorkbook :

Code:

---

1 2 3

Private Sub Workbook_Open() 'ton code End Sub

---

Bonsoir Thautheme,

Mon code se trouve effectivement dans le composant This Workbook sinon le cas n°1 ne marcherais pas non plus.

Code:

---

1 2 3 4

Private Sub Workbook_Open() 'ton code End Sub

---

Voici mon code (simplifié) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Private Sub Workbook_Open()   ThisWorkbook.Unprotect ("SAFCOT")   Application.ScreenUpdating = False For Each Sh In Sheets Sh.Visible = True Next Sh Sheets(1).Visible = xlVeryHidden 'Vérification si fichier initialisé ou non INIT_FICHIER = Worksheets("ADMIN").Range("B2").Value   If INIT_FICHIER = "Non" Then 'Demande d'initialisation du fichier Call DATA_MANAGER Call INIT Else 'Démarrage normal Worksheets("Business").Select Application.ScreenUpdating = False Call BUSINESS_NBLIGNE Call BUSINESS_NBCOLONNE Call BUSINESS_COLONNE Call BUSINESS_FILTRE Call BUSINESS_TXVALUE Call BUSINESS_SOUSTOTAL Call BUSINESS_MASQUE Call BUSINESS_DATEJOUR Call FONCTION_ENREGISTREMENT Call CANDIDAT_SORTANT Call FILTRE_PRACTICE Call FILTRE_MANAGER Application.ScreenUpdating = False ThisWorkbook.Unprotect ("SAFCOT") Sheets("DATA").Visible = False Sheets("ADMIN").Visible = False Sheets("USERS").Visible = False Application.EnableEvents = False Worksheets("Business").Range("D2").Value = Worksheets("ADMIN").Range("B3").Value Worksheets("Suivi Candidat").Range("D3").Value = Worksheets("ADMIN").Range("B3").Value Worksheets("Suivi Collab").Range("C3").Value = Worksheets("ADMIN").Range("B3").Value Worksheets("RDV Candidat").Range("C2").Value = Worksheets("ADMIN").Range("B3").Value Application.EnableEvents = True Worksheets("Business").Select Cells(LIGNEMAX, 1).Select ThisWorkbook.Protect ("SAFCOT") Sheets("Business").Protect ("SAFCOT"), AllowFiltering:=True Application.ScreenUpdating = True End If End Sub

---

Bonjour,

Je n'ai pas réussi à reproduire ton problème.
Peut être en utilisant ThisWorkbook.Activate en début de code ?

Bonsoir OBO29,

En faite, je suppose que c'est un problème lié a Excel et non pas a mon code en particulier.

Voici les opération que j’exécute dans l'ordre.
Essai de les reproduires de ton coté.

1 - J'ouvre un fichier Excel quelconque sans macro
2 - Directement depuis Excel j'ouvre un autre fichier qui contient ma macro (en utilisant les documents récents : clic en haut a gauche sur le bouton rond office)
3 - La mon fichier s'ouvre mais la macro ne s’exécute pas du fait de l'avertissement de sécurité qui me dis que les macros sont désactivés. => Comportement normal
4 - Je clique sur le bouton d'option pour activer les macros.
5 - Ma macro s'active. => Comportement normal
6 - je n'enregistre rien sur ce fichier, je vérifie la présence d'une info, et je quitte la macro. (je ne quitte pas Excel, je quitte juste la macro en utilisant la petite croix en dessous de la croix rouge en haut a droite d'excel.)
7 - Ca me renvoi sur le fichier Excel quelconque ouvert en premier.
8 - je réouvre mon fichier contenant ma macro,
9 - Idem point 3 - La mon fichier s'ouvre mais la macro ne s’exécute pas du fait de l'avertissement de sécurité qui me dis que les macros sont désactivés. => Comportement normal
10 - je reclique sur le bouton "option" pour activer les macros
11 - Mon second fichier est ouvert, activé mais la macro ne s'est pas éxécuté. => et la ce n'est pas normal.

pour faire simple, a partir du moment ou je quitte le fichier Excel mais pas l'application. (petite croix au lieu de la crosse croix rouge)
et si j'essai de réouvrir ma macro en utilisant les document récent d'excel, la macro ne s'éxécute pas.

Bonjour,

Est ce que tu peux essayer de rajouter Thisworkbook devant chaque feuille que tu va appeler ?

Je pense que les feuilles que tu appelles dans ton code sont liée à ActiveWorkbook par défaut, il faut donc préciser a quelle classeur elles appartiennent ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Workbook_Open()   ThisWorkbook.Unprotect ("SAFCOT")   Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets Sh.Visible = True Next Sh ThisWorkbook.Sheets(1).Visible = xlVeryHidden 'Vérification si fichier initialisé ou non INIT_FICHIER = ThisWorkbook.Worksheets("ADMIN").Range("B2").Value     '... 'Faire pareil pour la suite ...

---