Hello,
Voici mon problème. J'ai un tableau excel qui s'incrémente à l'aide d'un toupie.
Donc la manip que je souhaite faire en vba est la suivante:
- copie des cellules A1 à T43
- dans le doc word déjà ouvert, ma macro doit ajouter une page à la suite des autres pages (qui contiennent des images)
- coller en bitmap dans la 1ère page word vide
j'ai commencé le code suivant mais je n'arrive pas à trouver comment ajouter une page à mon word et copier ensuite mon image au bon endroit
merci d'avance à tous
Voici mon problème. J'ai un tableau excel qui s'incrémente à l'aide d'un toupie.
Donc la manip que je souhaite faire en vba est la suivante:
- copie des cellules A1 à T43
- dans le doc word déjà ouvert, ma macro doit ajouter une page à la suite des autres pages (qui contiennent des images)
- coller en bitmap dans la 1ère page word vide
j'ai commencé le code suivant mais je n'arrive pas à trouver comment ajouter une page à mon word et copier ensuite mon image au bon endroit
Code:
Sub Excel_Word()
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
If oWdApp.Selection.PageSetup.Orientation = wdOrientPortrait Then
oWdApp.Selection.PageSetup.Orientation = wdOrientLandscape
Else
oWdApp.Selection.PageSetup.Orientation = wdOrientPortrait
End If
'Détermine la plage contenant des valeurs
ThisWorkbook.Worksheets("Export Manuel").Range("A1:T43").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
oWdApp.ActiveWindow.ActivePane.VerticalPercentScrolled = 0
oWdApp.Selection.Tables(1).AutoFitBehavior AutoFitWindow
Application.CutCopyMode = False
End Submerci d'avance à tous