J'ai fais une macro qui modifie ou crées des fichiers mensuels.
Le nom des fichiers est paramétré par le mois est l'année.
J'arrive à :
- Enregistrer un nouveau fichier dans le dossier d'origine.
- Réenregistrer un nouveau fichier sous un nom existant.
Mon souci est le suivant :
Lorsque je modifie un fichier en changeant dans celui-ci la variable mois ou année,
la macro propose l'enregistrement du fichier sous un nouveau nom.
Si le nom du fichier est existant excel envoie le message : « Le fichier ... existe déjà à cet emplacement. Voulez-vous le remplacer ? »
Lorsque je réponds oui => RAS, mais lorsque je réponds non ça plante.
Est-ce- qu'il y a une solution ?
Une solution style si je réponds non, il faut faire ça ... Me plairait bien (mais je n'arrive pas à trouver la solution si elle existe)
On Error GoTo ErrorHandler
ThisWorkbook.SaveAs Filename:=Nom_du_nouveau_fichier
On Error GoTo 0
'laisse la suite de ton programme et ajoute à la fin (juste avant End Sub) :
Exit Sub
ErrorHandler:
If Err.Number = 1004 And Err.Description = "La méthode 'SaveAs' de l'objet '_Workbook' a échoué" Then
Resume Next
Else
Error Err.Number
Resume
End If
End Sub
Je viens de lire ton message.
Je n'ai pas encore essayé d'utiliser une routine de gestion d'erreur.
Je vais travailler dessus et je te tien au courant.
Grand merci
Iama
- Messages postés
-
319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
14J'ai légerement modifier ton exemple pour l'adapter.
Ca fonctionne, bien que je n'ai pas encore tout compris.
Je te remercie
Iama