Ouverture de divers fichiers à partir l'ouverture d'un fichier

Le
JeanYvesGascon
Bonjour

Dans un dossier j'ai un fichier Accueil.xls qui comme son nom
l'indique me sert d'e départ.
Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls
s'ouvrent en arrière fond.

Pour ce faire, j'ai écris
Dans ThisWorkbook
Private Sub Workbook_Open()
Workbooks.Open Filename:=("Pôle 2011 MOIS N.xls")
Workbooks.Open Filename:=("BdD_L.xls")
Workbooks.Open Filename:=("BdD_R.xls")
End Sub

cela me donne une erreur d'execution '1004'

Que faire ?

merci de votre précieuse collaboration

Jean6yves
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23085901
Bonjour,

En supposant que tous les classeurs sont dans le même répertoire :

'--------------------------------
Private Sub Workbook_Open()

Dim Chemin As String
Chemin = ThisWorkbook.Path & ""

Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls"
Workbooks.Open Filename:=Chemin & "BdD_L.xls"
Workbooks.Open Filename:=Chemin & "BdD_R.xls"
End Sub
'--------------------------------


MichD
--------------------------------------------
JeanYvesGascon
Le #23086031
On 4 fév, 14:56, "michdenis"
Bonjour,

En supposant que tous les classeurs sont dans le même répertoire :

'--------------------------------
Private Sub Workbook_Open()

Dim Chemin As String
Chemin = ThisWorkbook.Path & ""

Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls"
Workbooks.Open Filename:=Chemin & "BdD_L.xls"
Workbooks.Open Filename:=Chemin & "BdD_R.xls"
End Sub
'--------------------------------

MichD
--------------------------------------------



Merci, cela fonctionne de façon impeccable

Bien à vous

Jean6yves
Publicité
Poster une réponse
Anonyme