Bonjour a tous!    
Est ce que quelqu'un pourrait me donner la solution à ce problème :
 
Selection.Copy
     
    Shell ("winword" )
     
    Selection.PasteAndFormat (wdPasteDefault)
 
 
je fais la sélection de mes colonnes, je copie, j'ouvre word et je veux coller ma sélection. La sélection, la copie et l'ouverture de word fonctionne mais pa le collage. Merci de bien vouloir me corriger.  
   

svp!!!! juste le terme pour coller vers word!!!!

Personne ne peut m'aider???????????

http://ericrenaud.free.fr/droitedde.htm  va voir ça ptéte ke sa peu tédé

merci wyllou je pense que ça devrait faire l'affaire!!!!

J'ai mis :
 
Sub ThisWorkbook()
 
     Dim DocWord As Word.Document
 
     Dim AppWord As Word.Application
 
     Set AppWord = New Word.Application
 
     Application.DisplayAlerts = True
 
     AppWord.ShowMe
 
     AppWord.Visible = True
 
     'Ouvre le document Word
 
     Set DocWord = AppWord.Documents.Open("K:\Developpement\Liste.doc", ReadOnly:=False)
 
     ' Copie les données Excel
 
     ThisWorkbook.Worksheets("Feuil1" ).Column("G:G,E:E,C:C,A:A,B:B" ).Copy
 
     ' Colle les données dans Word
 
     DocWord.Range.PasteSpecial
 
     Application.CutCopyMode = False
 
     DocWord.Application.ActiveDocument.Save
 
     AppWord.Application.Quit
 
End Sub
 
et j'ai un pb avec le "this workbook.worksheets". Il me dit "fonction ou variable attendu"!!!!

j'ai corrigé cette erreur par Sub donnees()
normal que ça ne fonctionne pas!! le nom est le même que celui du "sub" dpnc confusion!!!!

nouvel erreur!!!
ThisWorkbook.Worksheets("Feuil1" ).Range("G:G,E:E,C:C,A:A,B:B" ).Copy
 
erreur 1004 : erreur définie par l'application ou par l'objet. ?????????  
 
       
C terrible!!!!!
 
qu'est que je dois changer?????????????

j'ai mis :  
 
 
 ' Copie les données Excel
 
        ThisWorkbook.Worksheets("Feuil1" ).Range("G:G" ).Copy
        ThisWorkbook.Worksheets("Feuil1" ).Range("E:E" ).Copy
        ThisWorkbook.Worksheets("Feuil1" ).Range("C:C" ).Copy
        ThisWorkbook.Worksheets("Feuil1" ).Range("A:A" ).Copy
        ThisWorkbook.Worksheets("Feuil1" ).Range("B:B" ).Copy
     ' Colle les données dans Word
 
mais il ne tient compte que de la dernière ligne de code!!!!
Il zappe les autres!
???????????!!!!!!!!!!!!!!!!!!!

je ne peux afficher qu'une seule colonne!!!!!!!!!!
or je dois en afficher 5!!!!

la colonne 1 est écrasée par la colonne 2
la colonne 2 est écrasée par la colonne 3
la colonne 2 est écrasée par la colonne 4
la colonne 3 est écrasée par la colonne 5
Donc je ne visualise que la 5ème colonne sur le doc word!

Quelqu'un peut m'aider????? svp

Quelqu'un peut m'aider????? svp :

Cherche avec Range plutôt que Column...

ok je vais voir

J'ai fait un test avec

Mais ça copie toutes les colonnes de A à G.
 
Peut-être créer le tableau dans Word et copier colonne par colonne.

l'"activeSheet.range" fonctionne bien mais il me donne toutes les colonnes. C bien la le pb!

           
C'est désespérant!!!!!
24h pour pouvoir un si petit vba!      

Et ça ne tourne toujours pas!!!!!!!!  

quelqu'un a une solution????????

snif snif snif. Ya plus personne????

ActiveSheet.Range("G:G" ).Copy
la tu copie
en suite tu colle dans word
et ainsi de suite
 
@+

Je ne sais pas si ça vaut vraiment la peine de lui répondre.
Voir:
http://forum.hardware.fr/hardwaref [...] 2481-1.htm
 
Il ne va pas nous dire si ça l'a aidé et va ouvrir un autre topic pour se lamenter qu'il n'y a personne...

Bonjour
Désolé ne pas avoir répondu plutôt que maintenant. Ce n'est pas tout les jours que l'on part à l'étranger.
OUI vos éléments m'ont aidés. merci