Valider une commande
matteco
Messages postés
17
Statut
Membre
-
matteco Messages postés 17 Statut Membre -
matteco Messages postés 17 Statut Membre -
Bonjour,
dans une macro je crée un nouveau classeur excel que je renomme.
à l'exécution de la macro, si le classeur existe déja un fenêtre me propose de remplacer
le classeur existant.
les choix possibles sont "oui" "non" "annuler" et le choix par défaut est "non"
je souhaite utiliser SendKeys String:="{ENTER}" pour valider automatiquement le "non"
j'aimerais savoir où je doit placer cette commande pour qu'elle marche.
j'ai essayé de la placer après le code ActiveWorkbook.SaveAs Filename:=("C:\...")
puisque c'est à ce niveau de la macro que la fenêtre apparait
mais ça ne fonctionne pas
dans une macro je crée un nouveau classeur excel que je renomme.
à l'exécution de la macro, si le classeur existe déja un fenêtre me propose de remplacer
le classeur existant.
les choix possibles sont "oui" "non" "annuler" et le choix par défaut est "non"
je souhaite utiliser SendKeys String:="{ENTER}" pour valider automatiquement le "non"
j'aimerais savoir où je doit placer cette commande pour qu'elle marche.
j'ai essayé de la placer après le code ActiveWorkbook.SaveAs Filename:=("C:\...")
puisque c'est à ce niveau de la macro que la fenêtre apparait
mais ça ne fonctionne pas
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Bonjour,
Pour résoudre ton problème il y a une astuce. On peut écrire une fonction qui renvoie TRUE si le fichier existe et FALSE dans la cas contraire, et agir en conséquence.
Public Function FileExist(fichier As String) As Boolean
On Error GoTo no_file
Open fichier For Input As #1
On Error GoTo 0
Close #1
FileExist = True
Exit Function
no_file:
Close #1
FileExist = False
End Function
Appel de la fonction FileExist(nom_fichier)
ex: fich="c:\mes documents\toto.txt"
Msgbox FileExist(fich)
Restriction le nom du fichier doit etre un nom complet valide("c:\mes documents\toto.txt")
Le numero de fichier #1 ne doit pas être utilisé a l'appel de la fonction.
Salut.
