Code qui fonctionne lorsque exécuté dans un module, mais ne fonctionne pas dans la feuille ThisWorkbook

Bonjour,
J'ai un code que j'aimerais exécuter à l'ouverture de mon fichier Excel. J'ai donc déplacé mon code d'un module à la feuille ThisWorkbook. Voici mon code:

Code:

---

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

Private Sub Workbook_Open() fichier = "http://sharepoint.rr.ca/Shared Documents/Base de données - Mise à jour.xlsm" Application.DisplayAlerts = False Workbooks.Open Filename:=fichier Application.DisplayAlerts = True   Windows("Base de données - Mise à jour.xlsm").Activate Sheets("Feuil1").Select Sheets("Feuil1").Copy Before:=Workbooks("Utilisation de la base de données.xlsm").Sheets(1)   Application.DisplayAlerts = False Windows("Base de données - Mise à jour.xlsm").Close Application.DisplayAlerts = True   Sheets("Feuil1").Name = Format(Date, "dd-mm-yyyy") DernierOnglet = ActiveWorksheet.Name   End Sub

---

Une fois déplacé, mon code qui s'exécutait parfaitement dans un module ne fonctionne plus. Il bloque à la ligne:

Code:

---

Windows("Base de données - Mise à jour.xlsm").Activate

---

Avec le message d'erreur : Erreur d'exécution 9. L'indice n'appartient pas à la sélection.

Bonsoir,
Tu utilises les méthodes activate

Comment veux tu activer quoi que ce soit alors que ton fichier est en train de s'ouvrir et pas encore activité!

Utilises des variables et bannis de ton vocabulaire les activate;select et autres sélection!

Merci. Je me cassais vraiment la tête pour rien.
Finalement, j'ai appelé ma macro dans Workbook_Open et ça fonctionne très bien.:D

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Run ("Portrait_Base_de_données_Automatique") End Sub

---