Aidez moi svp exporter des colonnes d'une feuille excel vers word

[seghi0051]

BONJOUR,
je suis très très nul en VBA, si quelqu'un peut m'aider !!!!!

Donc mon probleme est le suivant:
je dois exporter d'une feuille excel que quelque colonne, par exemple ne prendre que la première colonne, la 3ème,la 6ème etc...
voici mon code :

Sub ToWords()
Dim docWord As Object
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Add
Range("A1:L17").Copy
appWord.Selection.Paste
docWord.Tables(1).autoFitBehavior 2
Application.CutCopyMode = False
End Sub

le soucis avec ce code c'est qu'il me prend toute les colonne de A1 à L17

voilà mon classeur excel en piece jointe

 

[Pierrot93]

Re : Aidez moi svp exporter des colonnes d'une feuille excel vers word

Bonjour,

pour les colonnes 1,3 et 6 par exemple...

Range("A1:A17,C1:C17,F1:F17").Copy

bonne journée
@+

 

[seghi0051]

Re : Aidez moi svp exporter des colonnes d'une feuille excel vers word

pour les colonnes 1,3 et 6 par exemple...

Range("A1:A17,C1:C17,F1:F17").Copy

je te remercie de m'avoir répondu aussi vite mais malheureusement
sa n'a pas fonctionné

Bonne journée