Discussion :

[Lune1]

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 :

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

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 :

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

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.

[Invité]

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!

[Lune1]

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.

Code :

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

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