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,
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 : 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
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
Pour la fermeture, désoler, sait pas.
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
Je sais fermer le classeur actif mais le deuxieme reste ouvert
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub fermer() ActiveWorkbook.Close False End Sub
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 subau plaisir
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer :: ça peut servir aux autres
et n'oublie pas de voter
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
Partager