Comment automatiquement cliquer sur une fenêtre qui apparaît ?
Bonjour à tous,
J'ai crée un petit programme sous vba qui me permet de traiter plusieurs fichiers excel à la suite. Cependant, quand je les ouvre successivement, une fenêtre du type : voulez vous mettre à jour ? apparaît et je dois cliquer dessus manuellement.
Quelqu'un connaît le code pour automatiser cela ??
Bonjour,
Utilise l'instruction :
Application.DisplayAlerts = FalseBonjour,
Salut pedro,
Effectivement tu peux utiliser le display.alerte= false.
Pour la deuxième fenêtre, tu as ce message car tu copies toute une feuille entière j'imagine.
Si tu copies seulement rangée qui t'intéresse tu n'auras plus ce message.
bonne journée.
Bonjour Pedro22, merci pour ta réponse.
Ta commande fonctionne pour ma deuxième fenêtre mais pour la première, quand j'écris l'instruction "Workbooks.Open (strFileName)", que je mette "Application.DisplayAlerts = False" avant ou après, la fenêtre avec les mises à jour apparaît encore
Bonjour,
Salut pedro,
Effectivement tu peux utiliser le display.alerte= false.
Pour la deuxième fenêtre, tu as ce message car tu copies toute une feuille entière j'imagine.
Si tu copies seulement rangée qui t'intéresse tu n'auras plus ce message.
bonne journée.
Salut Mus54, en fait pour la deuxième fenêtre la commande marche mais je n'y arrive pas pour la première
Re,
essaye ceci
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlwaysRe !
Cela ne fonctionne toujours pas. Voici mon code, je l'ai mis avant et après au cas où ! *
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
Workbooks.Open (strFileName)
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
re,
essaye de ne pas mettre à jour alors
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever ou bien tu peux faire cela :
Onglet données ---> Modifier les liens ---> "invite de démarrage" ---> Cocher "Ne pas afficher l'alerte et ne pas mettre à jour les liens automatiques"
Bonjour gametexx, le forum,
pour éviter ta 2ème fenêtre, tu peux vider le presse-papiers avant l'apparition du message.
pour vider le presse-papiers, c'est en 3 étapes :
Étape 1 - au début du module, mets :
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function CloseClipboard Lib "user32" () As LongÉtape 2 - mets cette sub soit juste après, soit où tu veux.
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End SubÉtape 3 - appelle la sub là où tu veux vider le presse-papiers :
Sub Essai()
Vider_Presse_Papier
End Subà te lire pour avoir ton avis.
dhany