ouvrir un fichier Word par macro Excel

[Bernard]

Bonjour,

J'ai besoin d'ouvrir un modèle Word et de sauver le fichier sous un autre nom à partir d'une macro VBA Excel.

Qui peut me dire si c'est possible?

Quelle est dans ce cas la syntaxe à appliquer et quelles sont les options à activer dans Excel pour le permettre?

Merci à tous, @+

bernard

 

[C@thy]

Bonjour Bernard,

la syntaxe pour ouvrir Word depuis Excel est la suivante :

Set objApplication = CreateObject("word.application")
objApplication.Visible = True

mais je pense que tu devrais plutôt faire une macro Word.

C@thy

 

[C@thy]

Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String

'Initialisation 4 variables
Set objApplication = CreateObject("word.application")
strDossier = "C:\Documents and Settings\Mes documents\word\"
strFichier = "AirConditionne.doc"
strChemin = strDossier & strFichier

With objApplication
.Visible = True
.Documents.Open Filename:=strChemin 'Attention! ici, c'est de la syntaxe word
End With

'ici le traitement sur le fichier
....
With objApplication
.Visible = False
End With

'Quitter, Libérer la référence
objApplication.Quit
Set objApplication = Nothing

C@thy