Lier plages Excel à Word sans copier coller
isfaen
Messages postés
84
Statut
Membre
-
isfaen Messages postés 84 Statut Membre -
isfaen Messages postés 84 Statut Membre -
Bonjour à tous!
J'aurai besoin de vos lumières concernant une adaptation de code.
J'ai un programme VBA qui copie colle des plage Excel vers Word avec laisons.
Sur mon Pc cela fonctionne impec', par contre quand je le fais tourner sur d'autre le presse papier me retourne une erreur aléatoire.
Après moult discussion, il a été décider de ne pas utiliser le presse papier qui pose problème.
Je cherche donc à adapter ce code:
Sheets("Situation personnelle").Range("a2:B19").Copy
Worddoc.Bookmarks("donnéespersonnelles").Range.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement _
:=wdInLine, DisplayAsIcon:=False
L'adaptation doit pouvoir faire exactement la même chose mais sans utiliser un copier coller (problème de presse papier).
Avez vous une piste à me donner car je galère comme pas possible?
Je vous remercie !
Bonne journée!
Alexandre
J'aurai besoin de vos lumières concernant une adaptation de code.
J'ai un programme VBA qui copie colle des plage Excel vers Word avec laisons.
Sur mon Pc cela fonctionne impec', par contre quand je le fais tourner sur d'autre le presse papier me retourne une erreur aléatoire.
Après moult discussion, il a été décider de ne pas utiliser le presse papier qui pose problème.
Je cherche donc à adapter ce code:
Sheets("Situation personnelle").Range("a2:B19").Copy
Worddoc.Bookmarks("donnéespersonnelles").Range.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement _
:=wdInLine, DisplayAsIcon:=False
L'adaptation doit pouvoir faire exactement la même chose mais sans utiliser un copier coller (problème de presse papier).
Avez vous une piste à me donner car je galère comme pas possible?
Je vous remercie !
Bonne journée!
Alexandre
A voir également:
- Lier plages Excel à Word sans copier coller
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Historique copier coller - Guide
- Liste déroulante excel - Guide
1 réponse
je ne sais pas si cela peut t'éclairer mais je me souviens avoir utiliser ce bout de code pour faire du copier-coller d'excel to word :
Sub ExcelVersWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
Range("A1:H10").Copy
AppWord.Selection.Paste
DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub
Sub ExcelVersWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
Range("A1:H10").Copy
AppWord.Selection.Paste
DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub
Alexandre