XL 2010 traitement sur les fichiers

[jeanmi]

Bonjour à tous,

J’ai trouvé beaucoup d’explication sur la manipulation des fichiers : https://excel.developpez.com/faq/?page=FichiersDir#VerifExistenceFichier

Je souhaite utiliser celle : Comment vérifier si un fichier existe ?

Sub Test()

MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

Je souhaiterais adapté en récupèrent le nom du fichier dans deux cellules de mon tableau Excel, en C et D avec l’extension « .pdf » à partir de la ligne 4 et cela jusqu’à la dernière ligne vide.

donc, j’ai essayé pour la première ligne en faisant :

nom = Cells(4, 3) & " " & Cells(4, 4) & " " & "ID" & ".pdf"

et, remplacé :

MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")

Par

MsgBox FichierExiste("C:\Documents and Settings\dossier\") & nom

Mais ça ne semble pas fonctionner.

De plus si possible simplement éditer à la fin tous les fichiers non trouvé.

Et pour finir peut-on faire uniquement avec un Sub l’ensemble de la fonction ?

Merci pour l’aide

Cordialement

 

[dysorthographie]

Bonjour,

Private Sub Test()

Const Fichier As String = "C:\Myrep\DBTest.accdb"
    If FichierExiste(Fichier) Then
    ext = Fichier_extension(Fichier)
    
        MsgBox "Fichier := " & Replace(Fichier, "." & ext, "") & vbCrLf & "Extension := " & ext
    End If
End Sub
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
'Retourne l'extension du fichier, à partir du chemin d'accês complet précisé en paramêtre.
Public Function Fichier_extension(Fichier)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Fichier_extension = FSO.GetExtensionName(Fichier)
Set FSO = Nothing
End Function

 

[jeanmi]

Bonjour,

Private Sub Test()

Const Fichier As String = "C:\Myrep\DBTest.accdb"
    If FichierExiste(Fichier) Then
    ext = Fichier_extension(Fichier)
   
        MsgBox "Fichier := " & Replace(Fichier, "." & ext, "") & vbCrLf & "Extension := " & ext
    End If
End Sub
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
'Retourne l'extension du fichier, à partir du chemin d'accês complet précisé en paramêtre.
Public Function Fichier_extension(Fichier)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Fichier_extension = FSO.GetExtensionName(Fichier)
Set FSO = Nothing
End Function

Bonjour @dysorthographie , bonjour à tous,

Merci pour cette réponse, mais j'ai rien compris comment faire pour intégrer le nom de mon fichier qui est récupérer dans les cellules de mon tableau Excel et ou étaient édité les fichiers non trouvés ?

Serait-il possible d'avoir une petite explication afin de profiter de ce code.

Merci d'avance pour la réponse.

Cordialement