Discussion :

[christophe77100]

Bonjour à tous, j'ai ce code pour enregistrer une copie du fichier avec le nom en cellule O9. Tout fonctionne bien sauf que certains de mes collègues clic à tord sur le bouton et du coup efface les données de leurs collègues.
ma question est comment faire pour que si le fichier existe déjà et bien on annule la copie. Et si possible afficher un message en disant fichier existant. Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Enregistrer_sous()
Application.DisplayAlerts = False
Dim Path As String, Nom As String
Path = Range("C40").Value
Nom = Range("O9").Value & ".xlsm"
ThisWorkbook.SaveAs Path & Nom
Call Creation_Dossiers
Call RAZ_du_fichier1
ActiveWorkbook.Save
End Sub

[marot_r]

Bonjour.

Un truc du genre :

Code :

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

1
2
3
4
5
if dir(Path & Nom)<>"" then
       msgbox "Le fichier existe déjà !", vbInformation
    else
      'OK, sauvegarder
end if

A+

[christophe77100]

Ha et sans vouloir abuser je le place ou ce code... je pense comme ca mais vraiment pas sur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Enregistrer_sous()
Dim Path As String, Nom As String
if dir(Path & Nom)<>"" then
       msgbox "Le fichier existe déjà !", vbInformation
    else
      'OK, sauvegarder
 
 
Application.DisplayAlerts = False
 
Path = Range("C40").Value
Nom = Range("O9").Value & ".xlsm"
ThisWorkbook.SaveAs Path & Nom
Call Creation_Dossiers
Call RAZ_du_fichier1
ActiveWorkbook.Save
end if
 
End Sub

[marot_r]

Bonjour.

Oui c'est bien cela, tu conditionnes le code de sauvegarde au test.

Juste pense à indenter le code sous le Else pour plus de lisibilité.

A+