J'ai réussi à copier un tableau excel et à le coller sur un document word mais je suis bloqué car :
* Vue que les colonnes du tableau sont variables, je souhaiterai coller le tableau en paysage
* Aussi, aprés avoir copier le tableau, quand je le colle sur le document word ça ecrase le titre que j'avais déjà insérer.Alors que je souhaiterai que le collage du tableau se fasse juste après mon titre qui est le signet "titre".
Voici mon bout de code.
Dim MyWord As Word.Application<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dim pathdocu As String
Set MyWord = New Word.Application
pathdocu = App.Path & ""
''''''''''''''''Copier et coller le tableau excel sur word''''''''''''''
'Selection du nombre de tableau en fonction des colonnes
Dim MyWord As Word.Application
Dim pathdocu As String
Dim MyDoc As Document
Dim j As Long
Set MyWord = New Word.Application
pathdocu = App.Path & ""
''''''''''''''''Copier et coller le tableau excel sur word''''''''''''''
'Selection du nombre de tableau en fonction des colonnes
Select Case j
Case 1: appxl.Worksheets("Feuil1").Range("A1:B13").Copy
Case 2: appxl.Worksheets("Feuil1").Range("A1:C13").Copy
Case 3: appxl.Worksheets("Feuil1").Range("A1:D13").Copy
Case 4: appxl.Worksheets("Feuil1").Range("A1:E13").Copy
Case 5: appxl.Worksheets("Feuil1").Range("A1:F13").Copy
Case 6: appxl.Worksheets("Feuil1").Range("A1:G13").Copy
End Select
With MyWord
Set MyDoc = .Documents.Open (pathdocu & "Document.doc")
.Visible = True
End With
' Colle les données dans Word
With MyDoc
.PageSetup.Orientation = wdOrientLandscape
.Bookmarks("titre").Range.Text = Label40
MyWord.Selection.TypeParagraph
?????????????????????????INSERER LE TABLEAU APRES LE TITRE?????????????????
.Range.Paste
End With
@++
--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
Merci de ta réponse ça réduit à moitié mon blocage: ça colle bien le tableau en paysage mais il écrase jusqu'à présent le titre que je veux insérer avant le tableau.
With MyDoc
.PageSetup.Orientation = wdOrientLandscape
.Bookmarks("titre").Range.Text = Label40
MyWord.Selection.EndKey Unit:=wdLine ' *** rajoute cette ligne
MyWord.Selection.TypeParagraph
?????????????????????????INSERER LE TABLEAU APRES LE TITRE?????????????????
.Range.Paste
End With
@++
--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"