Ouverture d'un dossier Word

[marmotte18]

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 :

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

Merci par avance

 

[camarchepas]

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]

Re : Ouverture d'un dossier Word

Bonjour camarchepas,

Ta réponse est parfaite ! un GRAND merci !

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

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