Ouverture automatique d'un fichier excel

Bonjour,
Je voudrais lors de l'ouverture d'un fichier excel en ouvrir un autre automatiquement situé dans un autre répertoire et le fermer automatiquement lors de la fermeture du premier fichier.
Merci d'avance pour votre aide.

Bonjour
A placer dans thisworkbook

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Workbooks.Open ("C:\Users\Administrateur\Desktop\Administration des outils Keygen 2013.xls") End Sub

---

Merci pour le code, mais est-il possible de faire de même pour la fermeture?
Autre question: le fichier qui s'ouvre automatiquement s'affiche tjrs en premier est-il possible de faire le contraire?
L' idéal c'est qu'il s'ouvre sans qu'on le voit.

ceci pour afficher le classeur principal

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Set c = ThisWorkbook Application.Workbooks.Open ("C:\Users\Administrateur\Desktop\Administration des outils Keygen 2013.xls"),, true 'ouvre le classeur en lecture seul pour éviter les accidents c.Activate Set c = Nothing End Sub

---

Pour la fermeture, désoler, sait pas.
Je sais fermer le classeur actif mais le deuxieme reste ouvert

Code:

---

1 2 3

Private Sub fermer() ActiveWorkbook.Close False End Sub

---

false pour ne pas enregistrer et true pour enregistrer ou rien pour laisser le choix. Si le classeur2 est ouvert en lecture seule , ne rien mettre.

Bonsoir
En fait tout depend de ce que tu fait sur le classeur ouvert par le premier ??

si tu a fait des modifs sur celui ci tu pourrais tout simplement dans un module standard

Code:

---

1 2 3 4 5 6 7

public wbk2 as workbook' aplacer en haut de module et non pas a l'interieur de la macro sub ouverture() application.screenupdating=false set wbk2=workbooks.open(chemin complet du fichier) activeworbook.activate'reactive le classeur 1 end sub

---

Code:

---

1 2 3 4

sub fermeture () application.displayalerts=false wbk2.Close SaveChanges:=False' ou true si tu veux enregistrer le modifs end sub

---

au plaisir

Bonjour Patrick
Je ne vois pas ou mettre votre code ?
Je vous joint nos fichiers
Le fomulaire Dp Cde est notre classeur à remplir en lien avec le classeur fournisseurs qui est notre base de données

Lorsqu on ouvre le formulaire le classeur fournisseur s'ouvre on voudrait que le classeur fournisseurs ferme à la fermeture du formulaire.

merci de votre aide

Bonjour

Code:

---

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

Public wbk1 As Workbook Public wbk2 As Workbook   Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.displaysalerts = False wbk2.Close , True 'true pour sauver les modifs sur wbk2 ou false si tu ne veux pas modifier End Sub   Private Sub Workbook_Open() Application.ScreenUpdating = False Application.displaysalerts = False 'ouvrir le classeur fournisseur à l ouverture du classeur Fourmulaire_Dp_Cde Set wbk1 = ThisWorkbook Set wbk2 = Application.Workbooks.Open("C:\Users\UWIN02\Documents\02_Excel\Formlaire_demande_prix_Commande\Fournisseurs.xlsx") 'ouvre le classeur en lecture seul pour éviter les accidents wbk1.Activate 'maintenant ton 2 eme classeur est ouvert et donc disponible End Sub 'pour faire apel a lui dans tout le classeur 1 tu te servira de wbk2 'exemple:wbk2.sheets("nomde la feuille").range(xy)

---

Au plaisir