Bonjour
J'ai un bug qui se produit parfois dans un programme VBA_Excel
 
J'ai ouvert un classeur Excel ainsi qu'un document Word.
Je recopie une cellule de tableau Excel qui contient un lien internet dans une cellule de tableau du document Word  
L'instruction d'affectation  directe wrd.ActiveDocument.Tables(4).Cell(6, 1) = ThisWorkbook.Sheets("Pgm_Info" ).Cells(7, 1) ne copy que le libellé et pas le lien  
je passe donc par un copier/coller
 .....
ThisWorkbook.Sheets("Pgm_Info" ).Cells(7, 1).Copy
        'DoEvents
        wrd.ActiveDocument.Tables(4).Cell(6, 1).Select
        wrd.Selection.Paste
...........
l'instruction  wrd.Selection.Paste plante parfois avec le message ci-dessous :
Cette méthode ou propriété n'est pas disponible car le Presse-papiers est vide ou non valide
 
Il suffit que je relance l'exécution depuis le Copy pour que le Paste fonctionne correctement.
J'ai l'impression que VBA ne sait pas attendre la fin de la copie dans le presse papiers. Je n'ai jamais de pb en pas à pas.
J'ai essayé de rendre l'application word visible, de mettre des DoEvents. rien n'y fait.
Avez_vous une idée
Merci  
 

Mets une pause de 500ms.

Merci, Je vais devoir m'y résoudre.
Autre solution récupérer le lien hypertexte de la cellule Excel et le rajouter dans la cellule Word, après copie du texte.