Ouverture d'un dossier Word

marmotte18 · 16 Mai 2010

Bonjour,

J'ai une macro qui ne sert qu'à ouvrir des applications, des classeurs Excel et des documents Word. Quelles commandes passer pour ouvrir un document Word ?

A titre de comparaison uniquement, je vous communique ci-dessous comment j'ouvre un classeur Excel :

Code:

ChDir "C:\Mes documents\Dossier01"
Workbooks.Open Filename:="C:\Mes documents\Dossier01\Classeur01.xls"

Merci par avance

camarchepas · 16 Mai 2010

Re : Ouverture d'un dossier Word

Bonjour Marmotte18,

'tu peux utiliser les objets Word en référencant Word
'dansOutils/Références:
'Microsoft Word 11.0 Object Library
'Ensuite, il suffit d'instancier une session Word dans Excel:

Sub Word()
Dim NomduDocument As String
Dim objWord As New Word.Application

NomduDocument = "C:\Documents\MonFichier.doc"

' ouvrir un document Word
objWord.Documents.Open NomduDocument
' rendre Word visible
objWord.Visible = True

' Ton traitement

' fermer le document
objWord.Documents(1).Close
' quitter l'application Word
objWord.Quit

' IMPORTANT :libérer la mémoire
Set objWord = Nothing
End Sub

Bon courage pour la suite

marmotte18 · 16 Mai 2010

Re : Ouverture d'un dossier Word

Bonjour camarchepas,

Ta réponse est parfaite ! un GRAND merci !

Voilà l'usage que j'ai en fait :

Code:

Private Sub Workbook_Open()
Dim URL As String
 
'Lance l'application : "Application01"
'-------------------------------------
URL = Shell("C:\Program Files\Application01.exe", vbMinimizedNoFocus)
 
'Ouvre le dossier : "Dossier01"
'------------------------------
URL = Shell("C:\WINDOWS\explorer.exe D:\Mes documents\Dossier01", vbMinimizedNoFocus)
Application.Wait (Now + TimeValue("0:00:02")) 'La macro attends 2 secondes avant de continuer
 
'Ouvre les fichiers Excel : Classeur01 et Classeur02
'---------------------------------------------------
Workbooks.Open Filename:="D:\Mes documents\Classeur01.xls"
Workbooks.Open Filename:="D:\Mes documents\Classeur02.xls"
 
'Ouvre le fichier Word : "Document01" (dans "Outils" < "Références", cocher "Microsoft Word 11.0 Object Library")
'------------------------------------
Dim ObjetWord As New Word.Application
 
ObjetWord.Documents.Open "D:\Mes documents\Document01.doc"
ObjetWord.Visible = True
Set ObjetWord = Nothing 'Pour rendre accessible le document ultérieurement
 
'Fermeture du fichier porteur de cette macro
'-------------------------------------------
ThisWorkbook.Close
 
End Sub

Ouverture d'un dossier Word

marmotte18

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires

Ouverture d'un dossier Word

marmotte18

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency