bonjour je n'arrive pas à copier un tableau excel sur un fichier word, il me signale que l'erreur se trouve au niveau de la commande end unit...alors que je souhaite copier le tableau à la derniere ligne du word
merci d'avance
Dim wordapp As Object 'Word.Application
Dim worddoc As Object 'Word.Document
Dim i As Integer
Dim vdossiersource As String
Dim vdossierdestination As String
Dim vfournisseur As String
Dim vmontant As String
Dim vrepartfournisseur As String
Dim resultproduit As String
Dim produitnonretenue As String
Dim tauxdecouv As String
Dim budgetprev As String
Dim perfturpe As String
Dim var As String
vdossiersource = "C:\SA\PROVISIONS\Développements SI\Résultats\"
vdossierdestination = "C:\SA\PROVISIONS\Développements SI\Résultats\"
Sheets("TAUX COUV").Range("A43:G48").Copy
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
Set worddoc = wordapp.documents.Open(vdossiersource & "Résultats2.doc")
worddoc.Activate
With worddoc.ActiveWindow.Selection
.HomeKey Unit:=wdLine
.EndKey Unit:=wdLine, Extend:=wdExtend
.Paste
Application.CutCopyMode = False
End With
End Sub
merci d'avance
Dim wordapp As Object 'Word.Application
Dim worddoc As Object 'Word.Document
Dim i As Integer
Dim vdossiersource As String
Dim vdossierdestination As String
Dim vfournisseur As String
Dim vmontant As String
Dim vrepartfournisseur As String
Dim resultproduit As String
Dim produitnonretenue As String
Dim tauxdecouv As String
Dim budgetprev As String
Dim perfturpe As String
Dim var As String
vdossiersource = "C:\SA\PROVISIONS\Développements SI\Résultats\"
vdossierdestination = "C:\SA\PROVISIONS\Développements SI\Résultats\"
Sheets("TAUX COUV").Range("A43:G48").Copy
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
Set worddoc = wordapp.documents.Open(vdossiersource & "Résultats2.doc")
worddoc.Activate
With worddoc.ActiveWindow.Selection
.HomeKey Unit:=wdLine
.EndKey Unit:=wdLine, Extend:=wdExtend
.Paste
Application.CutCopyMode = False
End With
End Sub