dans un commantaire

Voici la macros que j'exécuter pour modifier "H15"

Sub Ouvrirnroute()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "^w", True ' Envoie la combinaison CTRL+w ouvre une
fenêtre
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "^C", True ' Envoie la combinaison CTRL+c copie sur
presse-papier
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard 'Récupérer le Presse-papier
Range("h15") = Presspp.GetText
Set Pressp = Nothing
Application.ScreenUpdating = True
End Sub

Comment intégrer
merci

Bonjour FxM

Oui mais je ne réusie pas !

ce qu'il y a dans la cellule "aj1" Feuille "donne"
doit apparètre dan le commentaire de la
cellule "H15" de la feuille "feuille_insp" .

Je ne réusi pas a l'adapter.....


Merci

Bonsoir,

Non testé :
with sheets("feuille_insp")
.Range("A1").Comment.Text Text:=sheets("donne").range("AJ1").text
end with

En première approche, j'insèrerai ce qui précède (si ca marche) juste
après la ligne :
Set Pressp = Nothing

@+
FxM

rebonjour FxM

Super , cela fonctionne très bien .

Encore gros Merci

rebonjour FxM

Super , cela fonctionne très bien .

Encore gros Merci

Z'en prie :o)

FxM