comment continuer

[guima1642]

bonjour,

je dois tester l'existence du fichier sur le disque avant de le sauver. Si il existe je dois passer un message disant que ce fichier existe.
Ca marche mais il m'affiche le message "impossible d'accéder ..."
j'aimerai que la macro continue sans sauver le fichier qui existe.

nom = Range("D1").Value

    existance = ExisteFile("c:\Commun\import\" + nom + ".XLS")   'Teste si le fichier existe
        If existance = False Then    'si il n'existe pas alors on peut sauver le fichier autrement on afficher un message
    chemin = "c:\Commun\import\" + nom + ".xls"
    ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlNormal, _
    CreateBackup:=False

merci pour votre aide

 

[Catrice]

Re : comment continuer

Bonjour,

Ca vient d'où ExisteFile ?

 

[guima1642]

Re : comment continuer

d'une fonction

Public Function ExisteFile(chemin As String) As Boolean 'Fonction renvoyant true si le fichier "chemin" existe et False sinon

        Dim fs As Object
        Set fs = CreateObject("scripting.FileSystemObject")
        ExisteFile = fs.fileexists(chemin)
        
End Function

mais j'ai trouvé comment resoudre mon pb en fait j'ai inversé j'ai mis que si il existe alors j'affiche un message.

Merci quand meme

 

[Catrice]

Re : comment continuer

Re,

J'ai adapté pour tester, mais le code suivant fontionne. Il enregistre le fichier que s'il n'existe pas dans le chemin testé :

Sub Test()
MonChemin = ActiveWorkbook.Path
nom = Range("D1").Value
existance = ExisteFile(MonChemin & "\" & nom & ".xls") 'Teste si le fichier existe
MsgBox existance
If existance = False Then ActiveWorkbook.SaveAs Filename:=MonChemin & "\" & nom & ".xls"
End Sub

Function ExisteFile(chemin As String) As Boolean 'Fonction renvoyant true si le fichier "chemin" existe et False sinon
Dim fs As Object
Set fs = CreateObject("scripting.FileSystemObject")
ExisteFile = fs.fileexists(chemin)
End Function