Verifier si un fichier excel existe pour ne pas enregistrer-ecraser

hassan.zer à dit:

je ne comprends pas comment faire avec cette commande,

Cliquez pour agrandir...

Dim Fichier$
Fichier = "c:\blabla.xls"
If Dir(Fichier) = "" Then
    ThisWorkbook.SaveAs Fichier
Else
    'quoi fait on ?!
End If

kjin à dit:

Moi non plus...😀
Je déconne, mais la réponse me paraissait claire


Par chez moi c'est plutôt

Dim Fichier$
Fichier = "c:\blabla.xls"
If Dir(Fichier) = "" Then
ThisWorkbook.SaveAs Fichier
Else
'qui qu'on fait ?!
End If

Cliquez pour agrandir...

Il suffit de tester la chaîne renvoyée par la variable Fichier
A+
kjin

Cliquez pour agrandir...