EXCEL vers WORD

[nanie13]

Bonjour,

Depuis plusieurs jours, je cherche un code pour insérer des données excel dans un document word sans résultat.
Quelqu’un pourrait-il m’aider s’il vous plait ?
Voilà ma macro :

Sub Acompte()

Dim Montant As String

Montant = InputBox("saisir le montant de l'acompte")

' 1er acompte
If Range("D69") = "" Then
MsgBox ("1er acompte")
ActiveSheet.Range("D69").Value = Montant
‘ Copie la cellule dans la feuille excel
Range("D69:G69").Select
Selection.Copy
‘ Ouvre le document word
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Mes documents\acompte.doc")
wrdApp.Visible = True

‘ Colle dans le document word les cellules copiées dans excel


' 2ème acompte
ElseIf Range("D99") = "" Then
MsgBox ("2ème acompte")
ActiveSheet.Range("D99").Value = Montant
‘ Copie la cellule dans la feuille excel
Range("D99:G99").Select
Selection.Copy
‘ Ouvre le document word
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Mes documents\Eric\Ebénisterie\2009\acompte.doc")
wrdApp.Visible = True

' 3ème acompte
ElseIf Range("D127") = "" Then
MsgBox ("3ème acompte")
ActiveSheet.Range("D127").Value = Montant
‘ Copie la cellule dans la feuille excel
Range("D127:G127").Select
Selection.Copy
‘ Ouvre le document word
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Mes documents\Eric\Ebénisterie\2009\acompte.doc")
wrdApp.Visible = True

' 4ème acompte
ElseIf Range("D157") = "" Then
MsgBox ("4ème acompte")
ActiveSheet.Range("D157").Value = Montant
‘ Copie la cellule dans la feuille excel
Range("D157:G157").Select
Selection.Copy
‘ Ouvre le document word
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Mes documents\Eric\Ebénisterie\2009\acompte.doc")
wrdApp.Visible = True

' 5ème acompte
Else
MsgBox ("Il n'y a pas de formulaire pour le 5ème acompte")
End If

End Sub

 

[Catrice]

Re : EXCEL vers WORD

Bonjour,

J'ai modifié le code dans le fichier joint.
Les chemins ont été modifiés pour les tests ...

Tu as bien un dossier C:\Mes documents ?