Discussion :

[vincedu74]

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 :

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

[Jean-Philippe André]

Salut,

ta variable Wddoc est declaree mais pas instanciee.

Par exemple tu aurais du avoir

Code :

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

Set WdDoc = WdApp.Documents.Open("C:\temp\monfichierdoc.docx")

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

[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 :

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

Set WdDoc = WdApp.Documents.Add

[vincedu74]

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 :

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

[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

Tu veux faire quoi une fois ton fichier Word cree ?