valider une commande Fermé

Question

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

amigo · Answer

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	oto.txt"
Msgbox FileExist(fich)

Restriction le nom du fichier doit etre un nom complet valide("c:\mes documents	oto.txt")
Le numero de fichier #1 ne doit pas être utilisé a l'appel de la fonction.

Salut.

Valider une commande

1 réponse

Discussions similaires