Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nanie13

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
0
Affichages
706
Retour