Deplacer PDF via macro

ludo -  
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,


J'ai créé une liste excel avec une liste de compte
je souhaite deplacer les fichiers pdf qui commence par ce numero (999999xxxxxxxxxx.pdf)que je recois tous les jours pour ces comptes dans un autre dossier par une macro

Comment puis je faire ce la ?

Merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

A ADAPTER :
1- J'ai supposé ta liste de fichiers en colonne A de ta feuille Feuil1.
2- le répertoire "source"
3- le répertoire "destin"
4- cocher la référence microsoft scripting runtime


Le code : 
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
'*                                                                       
'*      Références - Editeur VBE : « Microsoft Scripting Runtime »       
'*      Cette procédure utilise une librairie d'objets qui, par défaut,  
'*      n'est pas incluse dans l'éditeur VBE.                            
'*      Il faut donc ajouter une référence à cette libraire:             
'*                                                                       
'*      Dans VBE : (pour y accéder, depuis une feuille                   
'*      de votre classeur Excel, tapez simultanément ALT+F11)            
'*          - Menu:          Outils                                      
'*          - Choix:          Références                                 
'*          - Cochez : « Microsoft Scripting Runtime »                   
'*                                                                       
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sub DeplaceFichiersPdf()
Dim oFSO As Scripting.FileSystemObject
Dim source As String, destin As String, Fichier As String
Dim i As Long, DLig As Long

Set oFSO = New Scripting.FileSystemObject
'Je suppose ta liste de fichiers pdf en colonne A Feuil1 :
With Sheets("Feuil1")
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To DLig
        destin = "F:\Mes documents\TRAVAIL\TEST\"
        source = "C:\Users\Moi_Meme\Desktop\"
        Fichier = .Range("A" & i).Value
        If Fichier Like "999999*" Then
            If oFSO.FileExists(source & Fichier) Then
                oFSO.MoveFile source & Fichier, destin & Fichier
            End If
        End If
    Next
End With
End Sub
-1