Discussion :

[ciambe]

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.

[keygen08]

Bonjour
A placer dans thisworkbook

Code :

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

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

[ciambe]

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.

[keygen08]

ceci pour afficher le classeur principal

Code :

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

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 :

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

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.

[patricktoulon]

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 :

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

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 :

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

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

[ciambe]

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

[patricktoulon]

Bonjour

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
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