Discussion :

[magninde]

Bonjour,

J'ai cree une macro qui permet d'enregistrer une fichier avec le nom d'une cellule, dans un repertoire choisit. OK

le probleme est que si je fais tourner la macro 2 fois, un message apparait :

"Un fichier nomme "Blabla" existe deja a cet emplacement. Voulez vous le remplacer ?"

OUI, NON, ANNULER. Jusque la c'est normal.

Si je choisis OUI, Pas de probleme.
Si je choisis NON ou ANNULER, il y a un bug dans la macro a cet emplacement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MonFichier = "PFR" & "_" & Range("G8") & "_" & Day & "-" & Month & "-" & Year & ".xls"
                ChDrive "s"
                ChDir "s:\blabla"
                ActiveWorkbook.SaveAs Filename:=MonFichier, FileFormat:=xlNormal
                Exit Sub

Comment puis-je faire pour controler ce qu'il se passe si je choisis NON ou ANNULER ? C'est a dire, je souhaiterais qu'il ne se passe rien en fait.

Merci d'avance

Christophe

[LeForestier]

Bonjour,
Les quelque lignes que tu montre ne permette pas de déterminer où est ton problème mais je pense que...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
MonFichier = "PFR" & "_" & Range("G8") & "_" & Day & "-" & Month & "-" & Year & ".xls"
Chemin = "s:\blabla\"
If Dir (chemin & MonFichier) <> "" then 'le fichier existe
    If MsgBox ("Fichier existe, voulez vous le remplacer"', vbYesNo) <> VbYes then exit sub
    Application.DisplayAlerts = False
End if
                'ChDrive "s" ne sert à rien
                'ChDir "s:\blabla"  'ne sert à rien
     ActiveWorkbook.SaveAs Filename:=Chemin & MonFichier, FileFormat:=xlNormal
 
    Application.DisplayAlerts = True

A+

[magninde]

Merci beaucoup, Pb resolu.
Je ne conaissais pas l'app. DisplayAlerts.

Christophe