Quel est la commande (pour un VBA) pour basculer sur un autres programme
(nom est Nroute.exe)
et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce
qui y à dans la fenètre)
et revenir dans mon fichier excel.
"Daniel" a écrit dans le message de news:x0WPd.10374$
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme (nom est Nroute.exe) et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce qui y à dans la fenètre) et revenir dans mon fichier excel.
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:x0WPd.10374$Sw6.367490@weber.videotron.net...
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme
(nom est Nroute.exe)
et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce
qui y à dans la fenètre)
et revenir dans mon fichier excel.
"Daniel" a écrit dans le message de news:x0WPd.10374$
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme (nom est Nroute.exe) et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce qui y à dans la fenètre) et revenir dans mon fichier excel.
Merci
Daniel
Bonjour denis p J'ai intégrer les ligne de code mais le programme bascule mais bloc sur "AppActivate ReturnValue 'pour l'activer" . ------------------------------------------------ Sub test()' ReturnValue = Shell("C:GarminnRoutenRoute.exe", 1) 'lancer program... AppActivate ReturnValue 'pour l'activer SendKeys "^g^c^{ENTER}" 'ouvre une fenêtre,copie la sélection,ferme la fenêtre. Dim MyData As DataObject Set MyData = New DataObject MyData.GetFromClipboard 'Récupérer le Presse-papier Sheets("Feuille_insp").Range("h15").Value = MyData.GetText(1) End Sub ------------------------------------------------------------------ "denis P" a écrit dans le message de news:
"Daniel" a écrit dans le message de news:x0WPd.10374$
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme (nom est Nroute.exe) et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce qui y à dans la fenètre) et revenir dans mon fichier excel.
Merci
Bonjour denis p
J'ai intégrer les ligne de code mais le programme bascule mais
bloc sur "AppActivate ReturnValue 'pour l'activer" .
------------------------------------------------
Sub test()'
ReturnValue = Shell("C:GarminnRoutenRoute.exe", 1) 'lancer program...
AppActivate ReturnValue 'pour l'activer
SendKeys "^g^c^{ENTER}" 'ouvre une fenêtre,copie la sélection,ferme la
fenêtre.
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard 'Récupérer le Presse-papier
Sheets("Feuille_insp").Range("h15").Value = MyData.GetText(1)
End Sub
------------------------------------------------------------------
"denis P" <dede@spam.toto.ch> a écrit dans le message de news:
uYOHAvmEFHA.1408@TK2MSFTNGP10.phx.gbl...
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:x0WPd.10374$Sw6.367490@weber.videotron.net...
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme
(nom est Nroute.exe)
et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier
ce
qui y à dans la fenètre)
et revenir dans mon fichier excel.
Bonjour denis p J'ai intégrer les ligne de code mais le programme bascule mais bloc sur "AppActivate ReturnValue 'pour l'activer" . ------------------------------------------------ Sub test()' ReturnValue = Shell("C:GarminnRoutenRoute.exe", 1) 'lancer program... AppActivate ReturnValue 'pour l'activer SendKeys "^g^c^{ENTER}" 'ouvre une fenêtre,copie la sélection,ferme la fenêtre. Dim MyData As DataObject Set MyData = New DataObject MyData.GetFromClipboard 'Récupérer le Presse-papier Sheets("Feuille_insp").Range("h15").Value = MyData.GetText(1) End Sub ------------------------------------------------------------------ "denis P" a écrit dans le message de news:
"Daniel" a écrit dans le message de news:x0WPd.10374$
Bonjour à Tous
Quel est la commande (pour un VBA) pour basculer sur un autres programme (nom est Nroute.exe) et exécuter ctrl-g (pour ouvrire une petite fenètre) , ctrl-C (copier ce qui y à dans la fenètre) et revenir dans mon fichier excel.
