presse papiers excel

[invite156b84a8]

Bonjour,

j'ai besoin de copier des données de Excel vers un document Word. Je suis bloquée depuis quelques jours sur un problème mais je ne comprends pas ce que c'est. Un coup l'exécution fonctionne, la fois d'après ça renvoie une erreur. Voici l'erreur renvoyée:

"Cette méthode ou propriété n'est pas disponible car le presse papiers est vide ou non valide"

Or voici mon code:

Sheets("Présentation Word").Activate
plage.Copy
appword.Selection.PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False

et si je demande à debuger il me renvoie l'erreur sur l'instruction PasteSpecial

J'ai pensé qu'il avait un problème pour copier les données demandées mais c'est pas le cas parce qu'à l'aide de ce code je vois bien qu'il y a des données dans le presse papiers:

Select Case Application.CutCopyMode
Case Is = False
MsgBox "Not in Cut or Copy mode"
Case Is = xlCopy
MsgBox "In Copy mode"
Case Is = xlCut
MsgBox "In Cut mode"
End Select

Cette exécution m'affiche "In copy mode" juste avant l'erreur

Quelqu'un peut-il m'aider? Est ce que vous avez déjà eu une erreur de ce type?
Ce que je ne comprends pas c'est que ça marche de temps en temps et d'autres fois ça ne marche pas...

Merci de votre aide

Mimi
-----

[invitedebe236f]

ca devrai marche mais il est possible que si t enchaine plein de copie
il bloque metre alors une boucle de temporisation

Set appword = CreateObject("word.application ")
appword.Visible = True

ouvrir un fichier

Sheets("feuil1").Activate
Range(Cells(1, 1), Cells(5, 2)).Copy

appword.Selection.PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False

[invite156b84a8]

merci de mavoir repondu mais j'ai pas trop compris: qu'est ce que t'appelles "boucle de temporisation"?? parce que le code que t'as écrit c'est exactement ce que j'ai fait

merci

[invitedebe236f]

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
ca attend 1seconde
maintenant je suis pas sur que ca marche t es bien sur d avoir un document word d ouvert ?

[A voir en vidéo sur Futura]

[invite156b84a8]

oui j'en suis sure et je suis sure aussi que le code est bon parce qu'il marche une fois sur deux. comme tu dis je pense que de temps en temps il sature parce qu'il y a trop de données à transférer. je vais tester ce que tu m'as dit.
merci

[invite156b84a8]

j'ai testé la boucle de temporisation ça marche toujours pas. ça attend bien 1 seconde entre chaque copie mais ça plante quand même...