Ecriture d'un doc Word

Version imprimable

Bonjour je suouhaite écrire une lettre en copiant collant des informations provenant de mon document excel.

Aujourd'hui j'ai deux soucis :

Ligne 20 Variable objet ou variable de bloc With non définie

Ligne 23 objet non défini alors que je l'ai nomé dans ma feuille de calcul

Est ce que quelqu'un voit mes erreurs et pourrait me les expliquer... ?

En vous remerciant

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
25
Private Sub letterbut_cliquer()
Donnees_ChampWord
End Sub
 
 
Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    'ouvre session word
    Set WordApp = New Word.Application
 
    'word est masqué pendant l'opération
    WordApp.Visible = False
 
 
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
   WordDoc.Fields(1).Result.Text = "M XXXX" & vbNewLine & "addresse" & vbNewLine & "74520 XXXX"
 
    'Si le champ est dans un entête, utilisez:
    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text = image2
 
End Sub

12/04/2017, 11h01
Jean-Philippe André

Salut,

ta variable Wddoc est declaree mais pas instanciee.

Par exemple tu aurais du avoir

Code:

Set WdDoc = WdApp.Documents.Open("C:\temp\monfichierdoc.docx")
12/04/2017, 11h04
vincedu74

Bonjour Jean Phillippe et merci pour ton retoure.

Ok cependant y-a-t-il un moyen de ne pas enregistrer le document ?

Les serveurs changent souvent de nom et je ne souhaiterai pas enregistrer le fichier.

De même l'adresse de mon bureau dépend du matricule que j'ai de mon entreprise...
12/04/2017, 11h09
Jean-Philippe André

Certes, mais du coup tu comptes pouvoir ouvrir le document Word par quel moyen ?

Ou alors tu crees un nouveau document auquel cas tu auras

Code:

Set WdDoc = WdApp.Documents.Add

Ok super ca a fonctionné et ça s'est stoppé quelques lignes plus loin...

Lige 16 Le membre de la collection n'existe pas.

je crains que ce soit la gestion des sections du documents word (qui sont pour moi un peu obscures)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
 
 
Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add
 
 
 
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
   WordDoc.Fields(1).Result.Text = "xx"
 
    'Si le champ est dans un entête, utilisez:
    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text = " image2"

12/04/2017, 11h32
Jean-Philippe André

Ton document word est nouveau, donc vierge.

Recuperer et copier/coller du code d'ailleurs est une solution qui pose probleme quand on ne recopie pas exactement ce dont on a besoin :aie:

Tu veux faire quoi une fois ton fichier Word cree ?
12/04/2017, 11h37
vincedu74

Mon tableur excel me permet de lister les documents qu'un de mes fournisseurs doit m'envoyer.

En cliquant sur le documents word je veux être capable de copier automatiquement un entête avec le logo de mon entreprise (image2) ainsi que dessous cet entête la liste excell des cellules dans lesquelles sont inscrits les documents à fournir.

Je ne souhaite pas de template stocké dans le réseau car il change trop souvent d'addresse.

Merci beaucoup pour ton aide ....
12/04/2017, 11h49
Jean-Philippe André

En utilisant l'enregistreur de macro de Word tu devrais deja pouvoir avancer.