Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ne pas voir l'exécution ?

ne pas voir l'exécution ?

2 réponses
Avatar
Daniel
Bonjour
Dans le vba suivant j'ouvre un autre programme et
je copie une donnée dans mon fichier Excel ,
mais je voudrait ne pas voir l'exécution a l'écran.

Application.ScreenUpdating = False
ne change rein pourquoi !
Que faire ?
Merci

Sub Ouvrirnroute()
Application.ScreenUpdating = False
MyAppID = Shell("C:\Program Files\Garmin\nRouteUS\nRoute.exe", 1)
SendKeys "^w" ' Envoie la combinaison CTRL+w ouvre une fenêtre
SendKeys "^C" ' Envoie la combinaison CTRL+c copie sur presse-papier
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard 'Récupérer le Presse-papier
Sheets("Feuille_insp").Select
Range("H15").Select
Selection.ClearContents
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Application.ScreenUpdating = True
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
LSteph
Bonjour,
garde le
Application.ScreenUpdating = False
mais dans le
Shell(...
remplace ,1) par ,0)

lSteph
"Daniel" a écrit dans le message de news:
fnrae.29825$
Bonjour
Dans le vba suivant j'ouvre un autre programme et
je copie une donnée dans mon fichier Excel ,
mais je voudrait ne pas voir l'exécution a l'écran.

Application.ScreenUpdating = False
ne change rein pourquoi !
Que faire ?
Merci

Sub Ouvrirnroute()
Application.ScreenUpdating = False
MyAppID = Shell("C:Program FilesGarminnRouteUSnRoute.exe", 1)
SendKeys "^w" ' Envoie la combinaison CTRL+w ouvre une fenêtre
SendKeys "^C" ' Envoie la combinaison CTRL+c copie sur presse-papier
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard 'Récupérer le Presse-papier
Sheets("Feuille_insp").Select
Range("H15").Select
Selection.ClearContents
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Application.ScreenUpdating = True
End Sub




Avatar
Daniel
Bonsoir lSteph

J'ai mit le 0 et il n'y a pas de changement!!

Merci

"LSteph" a écrit dans le message de news:
%
Bonjour,
garde le
Application.ScreenUpdating = False
mais dans le
Shell(...
remplace ,1) par ,0)

lSteph
"Daniel" a écrit dans le message de news:
fnrae.29825$
Bonjour
Dans le vba suivant j'ouvre un autre programme et
je copie une donnée dans mon fichier Excel ,
mais je voudrait ne pas voir l'exécution a l'écran.

Application.ScreenUpdating = False
ne change rein pourquoi !
Que faire ?
Merci

Sub Ouvrirnroute()
Application.ScreenUpdating = False
MyAppID = Shell("C:Program FilesGarminnRouteUSnRoute.exe", 1)
SendKeys "^w" ' Envoie la combinaison CTRL+w ouvre une fenêtre
SendKeys "^C" ' Envoie la combinaison CTRL+c copie sur presse-papier
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard 'Récupérer le Presse-papier
Sheets("Feuille_insp").Select
Range("H15").Select
Selection.ClearContents
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Application.ScreenUpdating = True
End Sub