Ouvrir un fichier word d'un fichier excel
Résolu
cs_Bretagne35
Messages postés
11
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
11 février 2011
-
15 mai 2007 à 20:37
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 15 mai 2007 à 21:45
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 15 mai 2007 à 21:45
A voir également:
- Ouvrir un fichier word d'un fichier excel
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier excel gestion de flotte - Forum Visual Basic 6
- Ouvrir fichier excel protégé par mot de passe vba ✓ - Forum VB.NET
- Comment ouvrir un fichier renfield? ✓ - Forum Visual Basic 6
3 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
15 mai 2007 à 21:45
15 mai 2007 à 21:45
Dans le menu Outils de VBE.
Les références sont par ordres alphabétiques
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
Les références sont par ordres alphabétiques
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
15 mai 2007 à 20:51
15 mai 2007 à 20:51
Salut,
il faut cocher la référence Microsoft Word Object Library
Puis, pour ouvrir :
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Chemin\Nom fichier.docx")
pour le fermer :
wdDoc.Close True 'ou False, enregistrement des modifs ?
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
il faut cocher la référence Microsoft Word Object Library
Puis, pour ouvrir :
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Chemin\Nom fichier.docx")
pour le fermer :
wdDoc.Close True 'ou False, enregistrement des modifs ?
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
cs_Bretagne35
Messages postés
11
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
11 février 2011
15 mai 2007 à 21:23
15 mai 2007 à 21:23
Merci pour ce code,
Par contre, je ne sais pas où cocher la référence Microsoft Word Object Library.
Par contre, je ne sais pas où cocher la référence Microsoft Word Object Library.
