Macro excel enregistrement de fichier modifié
Résolu
Iama
Messages postés
324
Statut
Membre
-
Iama Messages postés 324 Statut Membre -
Iama Messages postés 324 Statut Membre -
Bonjour,
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)
Est-ce quelqu'un pourrait me tuyauter SVP
Iama
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)
Est-ce quelqu'un pourrait me tuyauter SVP
Iama
1 réponse
-
Tu dois ajouter une routine de gestion d'erreur.
Par exemple :
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