macros s'execute pas sur tout les laptop

Le
pellet15
Bojour a tous

La Macros suivante fonctionne bien sur plusieur Laptop de mes
collégue , mais sur certain elle bloque .
en principe elle va chercher la donner GPS écrite dans une fenêtre
sur le troisième champ et le colle sur mon fichier Excel.

Le problème est au lieux de faire copie , elle inscrie C

Que faire????

Sub Ouvrirnroute()
MyAppID = Shell("C:Program FilesGarminRouteRoute.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
Set Pressp = New DataObject
Presspp.GetFromClipboard 'Récupérer le Presse-papier
Range("D2") = Presspp.GetText '--bloque
ici--
Set Pressp = Nothing
Application.ScreenUpdating = True
Range("B1:C1").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("B2").Select
Application.CutCopyMode = False
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5442741
Bonjour,
A tout hasard, la variation sur Presspp / Pressp est elle voulue ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" news:
Bojour a tous

La Macros suivante fonctionne bien sur plusieur Laptop de mes
collégue , mais sur certain elle bloque .
en principe elle va chercher la donner GPS écrite dans une fenêtre
sur le troisième champ et le colle sur mon fichier Excel.

Le problème est au lieux de faire copie , elle inscrie C

Que faire????

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: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
Set Pressp = New DataObject
Presspp.GetFromClipboard 'Récupérer le Presse-papier
Range("D2") = Presspp.GetText '-----------bloque
ici--------------------------------------------
Set Pressp = Nothing
Application.ScreenUpdating = True
Range("B1:C1").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Range("B2").Select
Application.CutCopyMode = False
End Sub
pellet15
Le #5442511
On 13 avr, 03:25, "Philippe.R"
Bonjour,
A tout hasard, la variation sur Presspp / Pressp est elle voulue ?
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" Bojour a tous

La Macros suivante fonctionne bien sur plusieur Laptop de mes
collégue , mais sur certain elle bloque .
en principe elle va chercher la donner GPS écrite dans une fenêtre
sur le troisième champ et le colle sur mon fichier Excel.

Le problème est au lieux de faire copie , elle inscrie C

Que faire????

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: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
    Set Pressp = New DataObject
    Presspp.GetFromClipboard  'Récupérer le Presse-papier
    Range("D2") = Presspp.GetText '-----------bloque
ici--------------------------------------------
    Set Pressp = Nothing
    Application.ScreenUpdating = True
        Range("B1:C1").Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
        False, Transpose:úlse
    Range("B2").Select
    Application.CutCopyMode = False
End Sub


Bonjour Philippe

Je croie que oui.

cette macros va extraire les donne GPS qui sont inscrite dans la
fenêtre sous le troisième champ.

j'ai exécuter en utilisent CTRL-C mais il y a t'il une autre facon
que je pourait copier la donné.

Mais il y a le fait que cela fonctionne bien sur plusieur machine et
pas sur d'autre.

Merci pour l'aide (ca fait beaucoup de temps que je cherche et n'y
arrive pas:-((( )

Publicité
Poster une réponse
Anonyme