pd de copie entre deux fichiers excel

[sab]

Bonjour,

j'ai sélectionné un graphique que j'aimerais copier dans un autre classeur excel sachant que je connais l'onglet de destination ainsi que la plage ou cellule de destination.

Voici le code que jai réalisé mais ca ne marche pas!

book_xls.Worksheets(onglet_de_destination).Range(plage_de_destination).Paste

Je ne comprends pas.
Quelqu'un pourrait-il m'aider svp.

Merci d'avance
sab

 

[Abel]

Bonjour sab,

A vue de nez, ça devrait fonctionner.

Comment écris-tu book_xls ?

Workbooks ("Ton fichier.xls") ?

Pour l'onglet de destination, c'est pareil : des guillemets si c'est le nom de la feuille ou sans guillemet si c'est une variable.

Abel

 

[sab]

Tout d'abord, je tiens à te remercier pour ta réponse aussi rapide adel.

Sinon, en réponse à ton message :

Je créé book_xls de cette façon :

Set book_xls = app_xls.Workbooks.Open(repertoire & "\" & nom_fic_xls, ReadOnly:=True)

Et en fait, si je fais cela, pas de problème :
book_xls.Worksheets(onglet_de_destination).Activate

Mais si je fais cela, ca ne marche plus :
book_xls.Worksheets(onglet_de_destination).Range(plage_de_destination).Select

Je ne vois pas d'où vient le problème :-(

Merci d'avance pour ta réponse abel.

sab

 

[Abel]

Re,

As-tu essayé de ne lui mettre qu'une cellule en destination, au lieu d'une plage ?

Abel

 

[sab]

Re Abel,

Mais, là la plage de destination est une cellule qui est nommée "plage_1"

Je ne vois pas pourkoi ca ne marche pas ! Aurais-tu une solution ?

Merci d'avance,
sab

 

[Abel]

Re,

J'ai fait un essai avec l'enregistreur.

Essaie en activant ou en sélectionnant ta destination avant le .Paste.

Abel

 

[sab]

Re Abel,

En fait, même si je fais que cela comme code ca plante :

book_xls.Worksheets(onglet_de_destination).Range(plage_de_destination).Select

J'ai l'impression que c'est le range qui plante : j'ai également essayé de faire :
book_xls.Worksheets(onglet_de_destination).Range(plage_1).Select

Et ca plante aussi
Tu vois prkoi ?

merci d'avance

si kk'un d'autre a une idée : n'hésitez pas ! Merci

sab

 

[sab]

AIDEZ MOI SVP
c'est très important :

j'ai tenté cela et ca a marché :

graphique.copy
book_xls.Worksheets(onglet_de_destination).Activate
Range(plage_de_destination).Activate

Donc j'ai ensuit etenté cela :
graphique.copy
book_xls.Worksheets(onglet_de_destination).Activate
Range(plage_de_destination).PasteSpecial (xlPasteValues)

Et là ca replante!! Je ne voi spas prkoi ?

merci pour vos réponses

sab

 

[Abel]

re,

Je suis un peu moins souvent sur le forum en ce moment.

Mets nous la syntaxe exacte que tu utilises si ce n'est pas celle que tu as inscrite plus haut.

Au fait, pourquoi un PasteSpecial avec un graphique ?

Abel