Deplacement de fichier en fonction d'une liste Excel

Bonjour à tous,

J’écris mon message ici car je ne trouve pas de solution à mon problème que je cherche depuis quelques mois maintenant.

J’essaie d’être le plus clair dans mon explication.

J’ai un dossier contenant des fichiers PDF :

V789654123

V987654123

Etc..

Ces numéros correspondent à une référence , chaque moi j’extrais le PDF et doit le ranger dans des dossiers diffèrent :

Facture 1 => V789654123

Facture 2 => V987654123

J’ai une 20ene de dossier à destination pour environs 200 fichier PDF.

Mon idée est de faire une liste excel avec en première colonne le nom du PDF et en deuxième le dossier dans lequel le fichier doit être déplacé.

Pour la suite j’aimerais qu’une macro s’occupe de lire le nom du fichier et de le déplacer automatiquement dans le dossier indiqué.

Pensez-vous cela réalisable ?

Merci d'avance

Bonjour Alew.

Bonjour le forum.

Oui c'est tout à fait possible.

Première étape, vérifier si le fichier existe dans le répertoire source.

S'il existe le déplacer.

Tu peux regarder ici :

https://www.rondebruin.nl/win/s3/win026.htm

Merci pour ta réponse,

Alors techniquement c'est impossible qu'il existe dans le dossier mais c'est une sécurité supplémentaire. Pourquoi il n'existe pas dans le dossier tout simplement parce qu'avant de mettre mes fichiers sur le réseau pro je les gère en local.

Ton lien semble vraiment complet. J'essai quelque petite chose et si je bloque je post ici.

Edit: Malheureusement je ne suis pas sur que la solution existe dans le lien.

il parle de copier un dossier vers un autre, mais pas de lire les colonne excel pour le déplacement... Ai-je mal lu?

Alew

Il faut que tu notes le répertoire source, donc c'est là que tu dois vérifier l'existence du fichier.

Pour plus de clarté j'ai noté ce que ma macro doit faire:

lire A1 trouver le fichier dans le dossier "relevé" et le copier dans le chemin B2

Etc

Je vois pas cette fonctionnalité dans le lien que tu m'as donné je me trompe?

Non elle n'y est pas.

https://support.microsoft.com/fr-be/help/462253

J'ai fais ce petit bout de code pour savoir si le fichier existe...

 Sub Deplacementdefichier()

Dim Relevé As String

Relevé = "C:\User\Relevé"

    If FichierExiste(Relevé) = True Then
        MsgBox "OK"
    Else
        MsgBox "NOK"
    End If

End Sub

Bonjour le fil

Voici une proposition très rapide qui suppose tout de même que :

1) En colonne 1 se trouve le nom complet du PDF à copier du style C:\rep1\rep2\..\repn\nompdf.pdf

2) En colonne 2 se trouve le nom des répertoires de destination complet c:\rep1\rep2\..\repn\ avec le \ final

3) le répertoire de la colonne 2 existent !

Sub CopierPdf()
Dim tabPdf()
Dim cptPdf
Dim nbrPdf
Dim nomPdf

    nbrPdf = Cells(Rows.Count, 1).End(xlUp).Row
    If Not (nbrPdf = 1) Then
        tabPdf = Range(Cells(1, 1), Cells(nbrPdf, 2))
        For cptPdf = 1 To UBound(tabPdf, 1)
            nomPdf = Split(tabPdf(cptPdf, 1), "\")
            Name tabPdf(cptPdf, 1) As tabPdf(cptPdf, 2) & nomPdf(UBound(nomPdf, 1))
        Next
    Else
        MsgBox "Rien à Transférer !"
    End If

End Sub

Bonjour et merci pour les réponses.

J'ai essayé la méthode mais je suis partir sur un .Bat

La fonction move me permet de faire la même chose car dans les deux cas je doit entré le chemin complet du fichier.

Merci d'avoir réfléchi à mon problème.

Alew.