Générer un courrier word à partir d'un doc Excel

bonjour,

grâce à la fonction ci-dessous, j'ai réussi à ouvrir un doc word par le biais d'un bouton dansun userform excel néanmoins, cette page word ne s'affiche pas à l'écran il faut y aller, je souhaite qu'elle s'ouvre toute seule.

Private Sub CommandButton1_Click()
   Dim DocWord As Word.Document
     Dim AppWord As Word.Application
     Set AppWord = New Word.Application
     Application.DisplayAlerts = True
     AppWord.ShowMe
     AppWord.Visible = True
     'Ouvre le document Word
    Set DocWord = AppWord.Documents.Open("T:\Modèles .dot\Courrier des modifications d'avant saison.dot", ReadOnly:=False)
End Sub

De plus, je ne sais pas comment faire pour récupérer des informations d'excel et pour les insérer dans mot texte sur mon courrier Word.

Merci de votre aide

Bonjour,

Ce code fonctionne sur ma version 2003 :

Private Sub CommandButton1bis_Click()
    Dim DocWord As Word.Document
    Dim AppWord As Word.Application
    Set AppWord = New Word.Application
    Application.DisplayAlerts = True
    AppWord.Visible = True
    Set DocWord = AppWord.Documents.Open("D:\Doc1.doc", ReadOnly:=False)
    AppWord.Activate
End Sub

Bonne continuation,

Lazade

Bien cordialement,

Lazade

Bonjour lazade,

Merci pour ton aide, ça fonctionne sans problème.

J'ai une autre question, j'ai fait un userform sur excel avec un combobox qui me permet de sélectionner un numéro client d'un tableau. Lorsqu'on sélectionne un numéro client, cela m'ouvre le document word et je souhaite que d'autre information qui se trouve dans le même tableau (que le numéro client) puisse être intégré au texte de la lettre. je cherche à ajouter du texte dans un document word à l'emplacement d'un signet mais je ne comprends pas pourquoi cela ne fonctionne pas, voici le code avec lequel je fais des test :

Dim j As Integer

Dim DocWord As Word.Document

Dim AppWord As Word.Application

Dim WordDoc As Word.Document

Set AppWord = New Word.Application

Application.DisplayAlerts = True

AppWord.Visible = True

'Ouvre le document Word

Set DocWord = AppWord.Documents.Open("T:\Modèles .dot\Courrier des modifications d'avant saison.doc", ReadOnly:=False)

AppWord.Activate

For j = 2 To Feuil2.Range("A65536").End(xlUp).Row

If Feuil2.Range("a" & j) = ComboBox1.Value Then

DocWord.Bookmarks("numéro_client").Range.Text = test ' numero_client est le nom du signet

End If

Next j

-- 26 Avr 2011, 15:14 --

En fait je viens de voir que c'est ma condition qui bugg, mais je ne sais pas pourquoi :

If Feuil2.Range("a" & j) = ComboBox1.Value Then

j'ai besoin de pacourir le tableau pour qu'à chaque ligne ou il recontre le numéro de client sélectionner il me renvoi le texte associé dans le tableau mais je n'y arrive pas

Bonjour,

Ce code corrigé fonctionne :

Private Sub CommandButton1bis_Click()
    Dim DocWord As Word.Document
    Dim AppWord As Word.Application
    Set AppWord = New Word.Application
    Application.DisplayAlerts = True
    AppWord.Visible = True
    Set DocWord = AppWord.Documents.Open("D:\Doc1.doc", ReadOnly:=False)
    AppWord.Activate

    Dim j As Long
    Dim Feuil1 As Object

    For j = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
        If Sheets("Feuil1").Cells(j, 1) = ComboBox1.Value Then
            DocWord.Bookmarks("numéro_client").Range.Text = "test" ' numero_client est le nom du signet
        End If
    Next j

End Sub

Bonne continuation,

Lazade