Allergique
XLDnaute Junior
Bonsoir,
J'ai une macro pour enregistrer un fichier avec la fonction GetSaveAsFilename
Lorsque le nom de fichier est déjà existant, une fenêtre de demande de confirmation d'écrasement s'affiche avec les choix Oui, Non, Annuler.
Lorsque je clique sur Non ou Annuler, la macro se met en erreur. Pour corriger les erreurs j'ai ajouté un saut qui règle le problème de la touche "Non".
A cause de ce saut, si je clique sur Annuler il me redemande le nom de fichier en boucle.
Comment peut-on programmer une variable qui donne l'état True ou False des touches Oui, Non et Annuler?
Voici le code de ma macro:
Merci pour votre aide
J'ai une macro pour enregistrer un fichier avec la fonction GetSaveAsFilename
Lorsque le nom de fichier est déjà existant, une fenêtre de demande de confirmation d'écrasement s'affiche avec les choix Oui, Non, Annuler.
Lorsque je clique sur Non ou Annuler, la macro se met en erreur. Pour corriger les erreurs j'ai ajouté un saut qui règle le problème de la touche "Non".
A cause de ce saut, si je clique sur Annuler il me redemande le nom de fichier en boucle.
Comment peut-on programmer une variable qui donne l'état True ou False des touches Oui, Non et Annuler?
Voici le code de ma macro:
Code:
Sub enregistrement()
Dim nom
nom = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, filefilter:=" Classeur Microsoft Excel,*.xls", FilterIndex:=2, Title:="Enregistrer Sous")
If nom = False Then
Exit Sub
End If
On Error GoTo correction
ActiveWorkbook.SaveAs Filename:=nom
Exit Sub
correction:
nom = Application.GetSaveAsFilename(filefilter:=" Classeur Microsoft Excel,*.xls", FilterIndex:=1, Title:="Enregistrer Sous")
Resume
End Sub
Merci pour votre aide
Dernière édition: