Discussion :

[phal2ip]

Bonjour à tous
voilà mon souci, j'ai un fichier excle avec divers onglet.
Dans chaque onglet j'ai un tableau avec des noms et des données pour ces noms.
je voudrais à l'aide d'un Userform sélectionner un onglet puis une personne puis une ou plusieurs données de ce nom et tout ramener dans un courrier Word a des emplacements spécifiques.
Le USerform ainsi que la récupération des données sont fait, le souci est que je n'arrive pas à ouvrir le fichier word en question et y inscrire les données aux endroits précis.
Quelqu'un pourrait il m'aider??

Merci

[ouskel'n'or]

Tu aurais grand intérêt à réaliser la même chose depuis Word en réalisant une fusion de document utilisant ton fichier Excel en tant que base de données.
Regarde à publipostage, dans Word.
Tu as une barre d'outils qui te permet de sélectionner les champs.

Si ton pb est la sélection de l'élément à copier dans la feuille de calculs qui ne peut se faire par le nom de champ, alors un exemple de code pour ouvrir ton Doc :

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
Sub OuvrirWord()
Dim WdApp As Object
Dim WdDoc
    Set WdApp = CreateObject("Word.Application")
    Set WdDoc = WdApp.Documents.Open(Filename:="D:\CheminDuDoc\TonDoc.doc")
    DoEvents
    WdApp.Visible = True 'ou False
    'ton code d'insertion du texte
    '...
    DoEvents
    WdDoc.Close True 'Enregistre le document et le ferme
    DoEvents
    WdApp.Quit 'Ferme Word
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

[phal2ip]

Merci pour cette première avancée mais le souci est que lorsque j'ai récupéré le nom ainsi que les 3-4 données je voudrais qu'il s'insère automatiquement dans le courrier de word et non pas sélectionner des champs un après l'autre...
Merci de ton aide

[ouskel'n'or]

Pour ce que tu demandes, utilise le publipostage dans Word où l'insertion est automatique dès lors que tu as placé les bons champs aux bons endroits dans ton document. Le publipostage est fait pour ça, c'est simple à utiliser, suffit d'essayer. Faut oser !

[Godzestla]

Bonjour,

si tu travailles avec des champs nominatifs dans Word, champs qui doivent avoir été préalablement créé dans ton document ou modèle word, tu peux faire comme ceci (adaptation du code de ouskelnor (salut ousk !)), pour insérer par exemple les cellules D1 et E1 dans les 2 champs nominatifs du document word

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
 
Sub OuvrirWord()
Dim WdApp As Object
Dim WdDoc
    Set WdApp = CreateObject("Word.Application")
    Set WdDoc = WdApp.Documents.Open(Filename:="D:\CheminDuDoc\TonDoc.doc")
    DoEvents
    WdApp.Visible = True 'ou False
    'ton code d'insertion du texte
'>>>> modif
      With Workbooks(TonWorkbook).Sheets(TonSheet)
             WdDoc.Fields(1).Result.Text = .Range("D1")
            WdDoc.Fields(2).Result.Text = .Range("E1")
      end with
'<<<<< modif
 '...
    DoEvents
    WdDoc.Close True 'Enregistre le document et le ferme
    DoEvents
    WdApp.Quit 'Ferme Word
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

l'avantage du champ nominatif dans word est que sa valeur est écrasée à la prochaine initialisation.
Si tu travailles avec des signets, il faudra faire un delete de ce que tu auras inséré à l'endroit du signet.

Exemple pour insérer le résultat de .copy au Bookmark "Target"

Code :

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

1
2
3
4
5
6
 
      With Workbooks(TonWorkbook).Sheets(TonSheet)
            Wdoc.Bookmarks("Target").Range.PasteSpecial _
             Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine
            'Montant (5)
      end with

et pour effacer avant réutilisation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Dim Myrange           As Variant
    Dim Bookstart         As Long
    Dim Bookend           As Long
 
            'Remove Inserted Contents at "Target" bookmark
             With Wdoc.Bookmarks("Target")
               Bookstart = .Start
               Bookend = .End
             End With
 
            Set Myrange = Wdoc.Range(Start:=Bookstart, End:=Bookend)
              Myrange.Delete
            End If