Je réitaire ma question? vba marche sur 2 laptop, 7 ne marche pas ???
4 réponses
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 :-((((
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
Bonjour Starwing
Oui il est cocher sur tout les laptops
Merci pour votre aide
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
%23lete3odFHA.688@TK2MSFTNGP14.phx.gbl...
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
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
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
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
... 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
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
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" <NoMail@NoMail.Niet> a écrit dans le message de news:
eBEtospdFHA.3032@TK2MSFTNGP10.phx.gbl...
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
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