XL 2016 Encore besoin d'aide sur l'enregistrement d'un fichier

[christ77000]

Bonsoir à tous.
Je viens de bricoler ce code et le therme est le bon car il ne fonctionne pas et je ne vois pas ou est l'erreur. quoi que je fasse il me dit "le fichier existe déjà...

Sub Enregistrer_sous()
Dim Path As String, Nom As String



If Dir(Path & Nom) <> "" Then
       MsgBox "Le fichier existe déjà !" & Chr(10) & "Vous pourrez le créer en " & Range("P9").Value, vbInformation
    Else
    
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

 

[_Thierry]

Bonsoir @christ77000 , le Forum

La Condition "If" arrive trop tôt à mon avis, car les variables de type String 'Path' and 'Nom' ne sont pas encore initialisées à ce moment là du code...

Bien @Toi, @Vous
@+Thierry

 

[christ77000]

merci pour ta réponse, je débute dans le vba donc pas encore tout bien compris.
j'ais modifier comme ca, mais pas beaucoup mieux.

Sub Enregistrer_sous2()

Dim Path As String, Nom As String

Application.DisplayAlerts = False
Path = Range("C40").Value
Nom = Range("O9").Value & ".xlsm"

If Dir(Path & Nom) <> "" Then
       MsgBox "Le fichier existe déjà !" & Chr(10) & "Vous pourrez le créer en " & Range("P9").Value, vbInformation
    Else
   

ThisWorkbook.SaveAs Path & Nom
'Call Creation_Dossiers
'Call RAZ_du_fichier1
ActiveWorkbook.Save
End If

End Sub

 

[christ77000]

Si c'est ok merci pour ton aide et bonne soirée.