Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Je réitaire ma question? vba marche sur 2 laptop, 7 ne marche pas ???

4 réponses
Avatar
Daniel
Bonjour à Tous

Je ne comprend pas et je ne trouve pas solution .
Cela me cause un gros problème :-((((((((((((((((

J'ai un VBA qui me permait de capturer les donnée GPS (long-Lat) d'un autre
programe.
Le VBA fait copie coler donnée GPS dans Excel 2000 .

Mon probléme est que sur 8 de mes confrére il n'y a que moi et
un autre que la macro fonctionne !!!
Nous utilisont tous les même laptop, tous window2000 et les même
configuration!!!
Si les version sont anglaise peut t'il changer queque chose? ? ?
En fait l'exécution de la macro ce fait mai il ne colle pas les nousvelle
donnée!!.
J'ai l'impression que la fonction copie/colle est désactiver!!
Voici la procédure:
tout cette procédure se répète tous les 10 seconde.

Sub Ouvrirnroute()
MyAppID = Shell("C:\Program Files\Garmin\nRoute\nRoute.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:02"))
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
Presspp.GetFromClipboard 'Récupérer le Presse-papier
Range("h15") = Presspp.GetText
Application.ScreenUpdating = True
End Sub

Merci pour votre aide car cela est important :-((((

4 réponses

Avatar
Starwing
Bonjour Daniel,

Sans vraiment être certain du résultat...Mais faute de mieux...
Dans l'éditeur VB, Menu outils - Références
Cocher la référence à Microsoft Form 2.0 Object Library

Starwing
Avatar
Daniel
Bonjour Starwing

Oui il est cocher sur tout les laptops
Merci pour votre aide

"Starwing" a écrit dans le message de news:
%
Bonjour Daniel,

Sans vraiment être certain du résultat...Mais faute de mieux...
Dans l'éditeur VB, Menu outils - Références
Cocher la référence à Microsoft Form 2.0 Object Library

Starwing




Avatar
Starwing
Bonjour Daniel,

Autre possiblité, après, je n'ai plus d'idée :-((

...
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

Starwing
Avatar
Daniel
Merci Starwing
Je fait un test demain (mercredi midi) sur les laptop qui ne fonctionne pas
et
je te donne de mes nouvelle.
merci encore. :-)

Starwing" a écrit dans le message de news:

Bonjour Daniel,

Autre possiblité, après, je n'ai plus d'idée :-((

...
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

Starwing