Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres (RESOLU)Ouvrir un fichier word par fermeture excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chaelie2015

XLDnaute Accro
Bonjour Forum
je souhaite ajouter a ce code le chemin d'un fichier word lors ce que je ferme le fichier EXCEL le fichier WORD s'ouvre automatiquement.
VB:
Sub fermer()
    ThisWorkbook.Save
    Application.Quit
End Sub
Merci
 
Solution
Re

Donc en suivant mon conseil précédent, cela pourrait donner
Code:
'CHANGER LE CHEMIN ET NOM DU FICHIER
Const fic_WORD As String = "C:\Users\STAPLE\Documents\toto.docx"

Sub fermer()
'création Objet Word
Set WordApp = CreateObject("Word.Application"): WordApp.Visible = True
'Ouvrir le document Word
Set wd_Doc = WordApp.Documents.Open(fic_WORD)
ThisWorkbook.Save
Application.Quit
End Sub
NB: test OK sur mon PC.
Bonsoit

@chaelie2015
Tu avais une piste à adapter dans les discussions similaires bas de page 😉
 
Re

Donc en suivant mon conseil précédent, cela pourrait donner
Code:
'CHANGER LE CHEMIN ET NOM DU FICHIER
Const fic_WORD As String = "C:\Users\STAPLE\Documents\toto.docx"

Sub fermer()
'création Objet Word
Set WordApp = CreateObject("Word.Application"): WordApp.Visible = True
'Ouvrir le document Word
Set wd_Doc = WordApp.Documents.Open(fic_WORD)
ThisWorkbook.Save
Application.Quit
End Sub
NB: test OK sur mon PC.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
671
Réponses
26
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…