Contournement de code vba simple

Question

Bonjour!

Connaitriez vous un code VBA qui fasse la même chose que:

Sheets("Feil1").Range("A4:C4").Copy
worddoc.Bookmarks("signet1").Range.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement _
:=wdInLine, DisplayAsIcon:=False

Ce code copie une plage dans Excel pour la coller dans un signet prédifini Word avec liaison active

Je voudrai faire exactement la même chose mais sans copier coller? (je ne veux pas utiliser le presse papier office).

Merci beaucoup pour vos réponses!


Alex

ucfoutu · Answer

Bonjour,

utilise la méthode Copy en utilisant l'argument Destination
(ouvre ton aide en ligne sur la méthode copy. Tu uy trouveras même un exemple)


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Et va lire cette discussion récente
Tu y trouveras un autre exemple


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

isfaen · Answer

J'ai trouvé ceci (merci!):

Worksheets("Sheet1").Range("A1:D4").Copy _
    destination:=Worksheets("Sheet2").Range("E5")

Ce code n'utilise pas le presse papier, je suis d'accord.

Par contre comment activer la liaison avec word, j'ai essayer d'ajouter un link:=true mais sans résultat...


Alex

ucfoutu · Answer

Une précision : les documents Office Word et Excel sont-ils sur le même PC ? (tu ne ele précise pas !)

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

isfaen · Answer

Oui, je teste d'abord sur le même PC, par la suite ça evoluera peut être.

Merci en tout cas de te pencher sur mon problème


Alex

isfaen · Answer

Au début, j'ai essayé de vider le presse papier, mais je me suis rendu compte que sous Excel 2003 (V SP2) il est impossible de le toucher avec du VBA, donc je me penche sur la solution alternative qui consiste à ne pas l'utiliser.


Alex

ucfoutu · Answer

tu sembles avoir créé un objet worddoc (bien qu'on n'en voie pas le code de création)
as-tu donc essayé de l'utiliser, genre :
worddoc.Bookmarks("signet1")= Sheets("Feil1").Range(.....)


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

isfaen · Answer

Oui, on y arrive en faisant ça.

Le problème est que ça colle en tableau Excel sans liaison, et je voudrai sauvegarder cette liaison (en double cliquant sur le tableau dans Word on arrive dans le fichier Excel d'origine)


Alex

ucfoutu · Answer

Je connais mal Word, mais je suppose (me trompe-je ?) que tu peux y insérer/définir, en vba wordb depuis Excel dans ton objet worddoc, une liaison pour ce signet.
Est-ce le cas

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

isfaen · Answer

Re salut!

En fait, j'ai une maquette word prédéfinie avec des signets à des endroits bien spécifiques.

Je génére un fichier Excel (unique en terme de résultats de calcul), puis je lance une macro qui va ouvrir la maquette, enregistrer sous un autre nom cette maquette et ensuite déverser des tableaux ou du texte aux emplacements des signets selon les résultats du calcul.

Voili voilou!

Donc pour répondre à ta question, les signets sont déjà créés à la base et je me contente de remplir le Word.

Bonne journée!


Alex

4u4me4us · Answer

Peut être (si tu n'a pas résolut les cas) tu peux enregistrer une macro et voir le code qu'a généré excel. Parfois cela m'aide.

isfaen · Answer

Et bien justemment!

J'ai tenté l'opération:

J'ai selectionné une plage de cellule et l'ai fait glisser sur un doc Word. Ca marche nickel, le tableau dans word est en liaison avec Excel MAIS quand je consulte le code et ben il n'y a rien (j'ai lancé les deux enregistrement de macro: dans word ET dans Excel mais rien)...

Je vais pas en dormir de cette histoire....


Alex

ucfoutu · Answer

MAIS quand je consulte le code et ben il n'y a rien 
Pas étonnant, puisque tu es en dynamique, d'une part et que donc ton code VBA Word n'est pas modifié  ! . Le résultat n'est donc apparent que pendant la session sous Excel .


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

isfaen · Answer

...
Pensez vous que le problème soit soluble ou je risque de tourner en rond?


Alex

Contournement de code vba simple

14 réponses

Votre réponse

Discussions similaires