Copier les fichiers d'un répertoire réseau sur mon disque dur

Bonjour à ttes et tous

J'ai besoin de récupérer les fichiers *.pdf d'un répertoire réseau afin de les importer de façon à les utiliser dans mon fichier archives_2020.xlsm.

Avez-vous un code que je puisse adapter à mon cas ?

Merci et bonne année 2021

Bonjour,

Tu peux utiliser l'instruction FileCopy.

Exemple :

Sub Essai()
   FileCopy "Chemin complet + Nom du fichier", "C:\Temp\Nom du fichier"
End Sub

bonjour

et merci pour ta réponse. Je connaissais ce code pour importer un fichier mais ce que je chercher à faire ç c'est possible c'est d'importer tous les fichiers d'un répertoire. Merci quand même d'avoir pris la peine de me répondre.

Bonne année 2021 !

Pour copier tous les fichiers d'un répertoire, tu boucles grâce à Dir.

Exemple :

Sub CopierFichier()
Dim NomFic As String, Source As String, Dest As String
    Source = "CheminReseauComplet\"
    Dest = "C:\CheminSurTonPc\"
    NomFic = Dir(Source & "*.pdf")
    Do While NomFic <> vbNullString
        FileCopy Source & NomFic, Dest & NomFic
        NomFic = Dir()
    Loop
End Sub

Bonjour,

c'est quoi l'intérêt de faire ça avec excel plutôt qu'avec l'explorateur de fichier ?
Il ne reste plus beaucoup de temps pour que les fichiers de 2020 changent.
Ce n'est pas plutôt la liste des fichiers que tu veux ?
eric

Bonjour

les deux solutions proposées par pijaku correspondent parfaitement à ce que je recherchais.

L'intérêt pour moi est d'avoir un oeil quasi permanent sur les fichiers à titre de comparaison.

merci pijaku

Ton code correspond nickel à ce que je voulais faire. Merci encore !!!

et bonne année....