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
661
Réponses
26
Affichages
2 K
Retour