Macro excel enregistrement de fichier modifié

Résolu
Iama Messages postés 319 Date d'inscription   Statut Membre Dernière intervention   -  
Iama Messages postés 319 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
1
Iama
 
Bonjours Patrice33740

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
0
Iama Messages postés 319 Date d'inscription   Statut Membre Dernière intervention   14
 
Bonjours Patrice33740

J'ai légerement modifier ton exemple pour l'adapter.

Ca fonctionne, bien que je n'ai pas encore tout compris.

Je te remercie
Iama
0