ouvrir un fichier word dans macro vba

Version imprimable

17/03/2011, 14h24
sueabb

ouvrir un fichier word dans macro vba

bonjour,

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

Ceci fonctionne:

Code:

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:

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

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

Code:

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!

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:

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"

17/03/2011, 14h56
sueabb

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...

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:

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é.

17/03/2011, 15h01
groslou2

Pour voir ton doc, il faut rajouter:

Code:

WordApp.Visible = True
17/03/2011, 15h07
sueabb

cool! :ccool:
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 :oops:?
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

Bonjour.

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

Code:

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

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:

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:

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 ...

17/03/2011, 15h35
sueabb

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?
17/03/2011, 15h44
groslou2

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.
17/03/2011, 15h49
ben_ghost

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.
17/03/2011, 15h50
sueabb

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

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:

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)

17/03/2011, 16h05
sueabb

Ta synthaxe fonctionne... Pour l'autre je ne sais pas, le module était déjà coché...
17/03/2011, 16h11
groslou2

Exact, en fait il faut cocher: "Microsoft Word numero_de_version Object Library".:oops:
17/03/2011, 16h17
sueabb

J'ai toujours la 2eme ereure... pas grave j'utilise l'autre synthaxe (qui a ce que je sais donne le meme résultat)
17/03/2011, 16h21
groslou2

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

Code:

Set WordApp = New Word.Application
17/03/2011, 16h28
sueabb

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...)
17/03/2011, 17h16
pgz
Re,

Au temps pour moi. En fait il y a 2 erreurs :
1. le ";" est une faute de frappe pour "."
2. Dans les déclarations c'est
  
  Code:
  
  Dim WordDoc as Word.Document
Ce qui arrives quand on tape en vitesse et sans tester.

Cordialement,

PGZ

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:

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" ...

18/03/2011, 11h13
sueabb

Balo pour le tableau. Donc je vais devoir me copier les cellules 1 par une...
Dans ton exemple tu créé un tableau que tu appel "MaTable".
En pratique, j'ai DEJA un tableau. Est ce que je peux lui donner un nom sous word? Ou mieux: est ce que je peux donner un nom a une "case de départ" ? (je me méfie d'un collegue qui aurait l'envie de changer les cases du dessus...)

Je me disais que... il y a tjs a la solution de mettre un signet par case. Mais c'est un peu barbarre qd meme... il doit y avoir plus élégant ?
:calim2:
18/03/2011, 14h12
groslou2
Voici un exemple pour copier coller certaines cases d'Excel vers Word.
Code:

1 2 3 Range("A1:B4").Copy WordDoc.Range(Start:=WordDoc.Tables(1).Cell(1, 1).Range.Start, End:=WordDoc.Tables(1).Cell(4, 2).Range.End).Paste
Tu remarqueras que la table est repérée par Tables(1), autrement dit, on prend la première table du document.
Je ne sais pas comment tu veux repérer ta table, mais plusieurs options sont possibles:
- c'est toujours la nème table de ton document, du coup tu mets n à la place de 1
- reconnaître à partir du contenu d'une case (tu parcours toutes les tables de ton document et tu testes la case de ton tableau)
- récupérer le tableau qui contient un certain signet. Pour cela tu peux là aussi parcourir tous les tableaux de ton document et comparer le range de ton signet avec le range.start et le range.end des tableaux. Y'a peut-être une manière de remonter à l'objet tableau si tu es au niveau du signet, mais je ne la connais pas. En tout cas, c'est ce qui serait le plus efficace.
18/03/2011, 15h22
sueabb

Nickel.

Je crois que j'ai tout (enfin j'espere!)
Quel bonheur de vous voir mettre en 1 ligne ce que j'aurais fait en 30...

Merci beaucoup !!!