Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macros s'execute pas sur tout les laptop

macros s'execute pas sur tout les laptop

2 réponses
Avatar
pellet15
Bojour a tous

La Macros suivante fonctionne bien sur plusieur Laptop de mes
coll=E9gue , mais sur certain elle bloque .
en principe elle va chercher la donner GPS =E9crite dans une fen=EAtre
sur le troisi=E8me champ et le colle sur mon fichier Excel.

Le probl=E8me est au lieux de faire copie , elle inscrie C

Que faire????

Sub Ouvrirnroute()
MyAppID =3D Shell("C:\Program Files\Garmin\nRoute\nRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour ferm=E9
la fen=EAtre
SendKeys "{ESC}", True ' Envoie la combinaison escape pour ferm=E9
la fen=EAtre
Application.ScreenUpdating =3D False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^w", True ' Envoie la combinaison CTRL+w ouvre une
fen=EAtre
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=E9
la fen=EAtre
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim Presspp As New DataObject
Set Pressp =3D New DataObject
Presspp.GetFromClipboard 'R=E9cup=E9rer le Presse-papier
Range("D2") =3D Presspp.GetText '-----------bloque
ici--------------------------------------------
Set Pressp =3D Nothing
Application.ScreenUpdating =3D True
Range("B1:C1").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=3DxlValues, Operation:=3DxlNone,
SkipBlanks:=3D _
False, Transpose:=3DFalse
Range("B2").Select
Application.CutCopyMode =3D False
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Philippe.R
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" a écrit dans le message de
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
Avatar
pellet15
On 13 avr, 03:25, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
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" a écrit dans le message denews:9b88c3
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:-((( )