Etienne2323
XLDnaute Impliqué
Bonjour à tous,
une fois de plus, j'ai besoin de vos conseils. J'ai besoin de créer une copie d'un fichier dans un dossier avec l'aide de VB. Le dossier dans lequel se copie mon fichier contient déjà un fichier de ce nom. Un popup m'apparait alors pour me dire que le fichier existe déjà et me demande si je veux le remplacer. Je souhaites intégrer à mon code un SendKeys pour qu'il entre automatiquement la réponse et que le code puisse rouler sans interférence. Voici mon problème, je ne suis pas très familier avec cette fonction et de plus, je ne sais pas réellement où l'insérer dans mon code.
Ce que j'utilise présentement ressemble à ceci :
SendKeys "{LEFT}" & "{ENTER}", True
J'ai essayé LEFT parce que si je fais seulement ENTER, c'est le bouton NON qui est sélectionné mais ça ne fonctionne pas. J'aurais donc besoin de vos idées pour m'aider à résoudre mon problème.
Aussi, je me demandais si c'était possible d'envoyer un SendKeys ou quelque chose du même genre pour tous les messages popup qui peuvent survenir pendant l'exécution d'une macro. Je vous demande ça parce que j'ai 4 fichier à copier selon exactement le même procédé que plus haut et donc je me retrouverai 4 fois avec les mêmes problèmes. Je me demandais alors s'il était possible de faire d'une pierre deux coups et de dire à Excel qu'il fasse l'action à chaque fois que c'est nécessaire. C'est possible ?
Voici le bout de code où j'ai besoin de votre aide.
Sub CreationcopieIND_FR()
Application.ScreenUpdating = False
Windows("Guide des fonds IND FR.xls").Activate
SendKeys "{LEFT}" & "{ENTER}", True
ActiveWorkbook.SaveAs Filename:="G:\Professsionels\Etienne\Rapports\Envoi\Individuel FR.xls"
Merci de votre aide !
Cordialement,
Etienne
une fois de plus, j'ai besoin de vos conseils. J'ai besoin de créer une copie d'un fichier dans un dossier avec l'aide de VB. Le dossier dans lequel se copie mon fichier contient déjà un fichier de ce nom. Un popup m'apparait alors pour me dire que le fichier existe déjà et me demande si je veux le remplacer. Je souhaites intégrer à mon code un SendKeys pour qu'il entre automatiquement la réponse et que le code puisse rouler sans interférence. Voici mon problème, je ne suis pas très familier avec cette fonction et de plus, je ne sais pas réellement où l'insérer dans mon code.
Ce que j'utilise présentement ressemble à ceci :
SendKeys "{LEFT}" & "{ENTER}", True
J'ai essayé LEFT parce que si je fais seulement ENTER, c'est le bouton NON qui est sélectionné mais ça ne fonctionne pas. J'aurais donc besoin de vos idées pour m'aider à résoudre mon problème.
Aussi, je me demandais si c'était possible d'envoyer un SendKeys ou quelque chose du même genre pour tous les messages popup qui peuvent survenir pendant l'exécution d'une macro. Je vous demande ça parce que j'ai 4 fichier à copier selon exactement le même procédé que plus haut et donc je me retrouverai 4 fois avec les mêmes problèmes. Je me demandais alors s'il était possible de faire d'une pierre deux coups et de dire à Excel qu'il fasse l'action à chaque fois que c'est nécessaire. C'est possible ?
Voici le bout de code où j'ai besoin de votre aide.
Sub CreationcopieIND_FR()
Application.ScreenUpdating = False
Windows("Guide des fonds IND FR.xls").Activate
SendKeys "{LEFT}" & "{ENTER}", True
ActiveWorkbook.SaveAs Filename:="G:\Professsionels\Etienne\Rapports\Envoi\Individuel FR.xls"
Merci de votre aide !
Cordialement,
Etienne
Dernière édition:
