ouvrir un fichier word dans macro vba

**sueabb** · 17/03/2011, 14h24

bonjour,

Je suis certaine que la solution est tres proche mais je n'arrive pas a trouver la syntaxe correcte...

Ceci fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyAppID = Shell("Winword.EXE ""H:\BUE face-lift\Demarche de mise en place\1zsc003699-AAA\" & File01 & ".doc""", 1)

Mon but: remplacer les chemin d'acces par une variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto = "H:\BUE face-lift\Demarche de mise en place\1zsc003699-AAA\"

En théorie je mettrais ceci, mais... à corriger:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyAppID = Shell("Winword.EXE "toto & File01 & ".doc""", 1)

C'est une ligne de commande trouvée sur le net. Ce qui explique pourquoi je n'arrive pas a la maitriser: je ne comprends pas les doubles "

Merci pr toute aide!

**groslou2** · 17/03/2011, 14h43

La syntaxe suivante est plus correcte à mon goût, puisqu'au lieu de lancer le fichier via une commande Shell, elle le lance en tant qu'objet, que tu peux aisément manipuler après.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim titre as String
 
titre = "H:\BUE face-lift\Demarche de mise en place\1zsc003699-AAA\" & File01 & ".doc"
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(titre)
 
...
 
    WordDoc.Close
    WordApp.Quit
 
    Set WordDoc = Nothing
    Set WordApp = Nothing

Pour info, les doubles " servent à écrire un " dans une chaîne de caractères (pour ne pas confondre avec les simples " qui délimitent une chaîne de caractères). Ainsi MsgBox "Bonjour ""toto""" affichera: Bonjour "toto"

**sueabb** · 17/03/2011, 14h56

Je suppose que ca fonctionne... (ouvert en arriere plan? je ne le vois pas... juste que le fichier tmp crée lors de l'ouverture qui apparait... ca va pas etre evident de gerer les actions suivantes!)

Aurais tu un lien ou ... autre pr m'aider ds la suite? J'ai deja fais 2 ou 3 macros xls mais jamais liées a word...

**Theze** · 17/03/2011, 14h57

Bonjour,

Pour info, tu peux aussi ouvrir le document avec l'Api ShellExecute bien que groslou2 t'as, à mon sens, donné la meilleure solution si ensuite tu veux travailler sur ton document par macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Declare Function ShellExecute _
                Lib "shell32.dll" _
                Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                       ByVal lpszOp As String, _
                                       ByVal lpszFile As String, _
                                       ByVal lpszParams As String, _
                                       ByVal lpszDir As String, _
                                       ByVal FsShowCmd As Long) As Long
 
 
Sub Ouvrir()
 
    Dim Retour As Long
 
    Retour = ShellExecute(0, "open", Toto & File01 & ".doc", "", "", 3)
 
    If Retour = 2 Then
 
        MsgBox "Le fichier " & Fichier & " est introuvable !"
 
    End If
 
End Sub

Hervé.

**groslou2** · 17/03/2011, 15h01

Pour voir ton doc, il faut rajouter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordApp.Visible = True

**sueabb** · 17/03/2011, 15h07

cool!

Bien, donc je laisse tomber avec le shell: ce qui m'arrange vu que j'y connais pas grd chose.

Du coup je manipule un objet... bien. Comment on fait ca

?
J'ai que des copiés/collés a faire... pourrAIS TU ME DONNER 2 OU 3 COMMANDES, APRES JE CHERCHERAI SUR LE NET PR LES UTILISER OU PLUS...

ops désolée

**pgz** · 17/03/2011, 15h08

Bonjour.

Si tu travailles avec des objets typés, tu bénéficies de l'intellisense et des capacités du debogueur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Application
    Dim titre as String
 
titre = "H:\BUE face-lift\Demarche de mise en place\1zsc003699-AAA\" & File01 & ".doc"
 
    Set WordApp = New Word;Application
    Wdapp.Visible = True
    Set WordDoc = WordApp.Documents.Open(titre)
 
    WordDoc.Bookmarks("sgnNom").Range.Text = "Machepreau"
...
 
    WordDoc.Close wdSaveChanges
    WordApp.Quit wdDonNotSaveChanges
 
    Set WordDoc = Nothing
    Set WordApp = Nothing

Cordialement,

PGZ

**groslou2** · 17/03/2011, 15h23

Comme le souligne à juste titre pgz, ce qui est pratique avec l'objet WordDoc, c'est de pouvoir remplir des signets word avec Excel. Pour info, les signets (fonction insertion/signet sous word) sont des petites balises que tu insères où tu veux dans un document word et auxquelles tu donnes un nom pour pouvoir les récupérer facilement (en particulier à partir d'une macro). La fonction suivante permet de remplir un signet d'un doc word à partir d'Excel, sans détruire le signet (comme ça tu peux le remodifier par la suite).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub RemplirSignet(WordDoc As Object, Signet As String, Texte As String)
 
    Dim Place As Long
    Place = WordDoc.Bookmarks(Signet).Range.Start
    WordDoc.Bookmarks(Signet).Range.Text = Texte
    WordDoc.Bookmarks.add Name:=Signet, Range:=WordDoc.Range(Place, Place + Len(Texte))
 
End Sub

Pour remplir le signet "mon_signet" avec le texte "bonjour", il suffit de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call RemplirSignet(WordDoc, "mon_signet", "bonjour")

dans ta macro Excel.
Ainsi, tu peux remplir des champs où tu veux dans un doc word. Tu peux mettre des images, des tableaux ...

**sueabb** · 17/03/2011, 15h35

Ca m'arrange que vous tombiez d'accord car je me suis demandée un instant ce qu'il valait mieux utiliser.
Je dois faire des copies de cellules xls (ca je pense que ca va pas etre difficile) vers des endroits précis dans le document word.
Tel que je le comprends, il suffit de mettre des balise dans tous les champs que je veux remplir?

Question parralele: ce document word est en qq sorte un "standard" et je ne sais pas si je suis autorisée a le modifier (et dons a y mettre des balises!). La collegue est absente pour le moment je lui demanderai plus tard. Y a t il donc une autre solution?

**groslou2** · 17/03/2011, 15h44

Le problème dans word, c'est de se localiser. Tout dépend à quoi tu veux te raccrocher pour localiser l'endroit que tu veux modifier: un numéro de chapitre? un groupe de mots? un tableau? une image?...
A chaque méthode correspondent des fonctions VBA plus ou moins simples à utiliser...
Sinon, pour info les signets sont invisibles à l'impression (on peut les afficher sous word -> ça met des parenthèses grises) et pour ce que tu veux faire, c'est vraiment ce qu'il y a de plus simple et surtout de plus robuste.

**ben_ghost** · 17/03/2011, 15h49

Perso j'avais testé sans signet mais c'est quasi impossible à gérer.

mise à part si tu veux des table de donnée dynamique. Ou dans ce cas tu peux utilisé des formats de tableaux bien spécifique mais ça devient assez compliquer dans un sens.

**sueabb** · 17/03/2011, 15h50

J'ai bien compris ce qu'est un signet et l'idée me plait bien! (en plus, si le document change les balises peuvent suivre!)
Mais est il possible de changer un standard... je sais pas.
Pt'et que je ne changerai que MA version (a)

En essayant ce code j'ai.. 2 ou 3 problems. Je me demandais si c'etait bien pour excel 2003...

1)
"user-defined type not defined" a la 1ere ligne! (dim WordApp as Word.Application)

2)
"Expected: end of statement" a la ligne "Set WordApp=NewWord;Application

**groslou2** · 17/03/2011, 15h58

Le code de pgz est bon, mais il te faut rajouter un module pour qu'il marche (outils/références dans Excel VBA -> cocher "Microsoft Office numero_de_version Object Library"). sinon, si tu utilises ma syntaxe, ça devrait marcher sans ajout de module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim WordApp As Object
    Dim WordDoc As Object
    Dim titre as String
 
titre = "H:\BUE face-lift\Demarche de mise en place\1zsc003699-AAA\" & File01 & ".doc"
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(titre)

**sueabb** · 17/03/2011, 16h05

Ta synthaxe fonctionne... Pour l'autre je ne sais pas, le module était déjà coché...

**groslou2** · 17/03/2011, 16h11

Exact, en fait il faut cocher: "Microsoft Word numero_de_version Object Library".

**sueabb** · 17/03/2011, 16h17

J'ai toujours la 2eme ereure... pas grave j'utilise l'autre synthaxe (qui a ce que je sais donne le meme résultat)

**groslou2** · 17/03/2011, 16h21

Y'avait une petite coquille (. au lieu de ; ):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WordApp = New Word.Application

**sueabb** · 17/03/2011, 16h28

Il me semblais bien que ce ";" était bizare...

J'ai fais un 1er test avec un signet, fructueu.

Donc l'etape suivante est: peut on aussi passer en argument des valeur, des colonnes... ? (tu as tout défini en text dans ton exemple...)

**pgz** · 17/03/2011, 17h16

Re,

Au temps pour moi. En fait il y a 2 erreurs :

le ";" est une faute de frappe pour "."
Dans les déclarations c'est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
Dim WordDoc as Word.Document
```

Ce qui arrives quand on tape en vitesse et sans tester.

Cordialement,

PGZ

**groslou2** · 17/03/2011, 18h05

Tu peux peux aussi passer des nombres en argument. En revanche, pas d'image ou de tableau.

Pour un tableau, c'est comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set MonRange = WordDoc.Bookmarks("mon_signet").Range
Set MaTable = WordDoc.Tables.Add(Range:=MonRange, numrows:=nombre_de_lignes,
numcolumns:=nombre_de_colonnes)
MaTable.AutoFormat Format:=wdTableFormatContemporary
MaTable.Cell(1, 1).Range.Text = "Case 1-1"
MaTable.Cell(1, 2).Range.Text = "Case 1-2"
...

ouvrir un fichier word dans macro vba

Macros et VBA Excel

Discussions similaires

Partager

Partager