comment continuer

guima1642 · 17 Avril 2009

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.

Code:

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 · 17 Avril 2009

Re : comment continuer

Bonjour,

Ca vient d'où ExisteFile ?

guima1642 · 17 Avril 2009

Re : comment continuer

d'une fonction

Code:

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 · 17 Avril 2009

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

comment continuer

guima1642

XLDnaute Occasionnel

Catrice

XLDnaute Barbatruc

guima1642

XLDnaute Occasionnel

Catrice

XLDnaute Barbatruc

Discussions similaires

comment continuer

guima1642

XLDnaute Occasionnel

Catrice

XLDnaute Barbatruc

guima1642

XLDnaute Occasionnel

Catrice

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency