Discussion :

[maria luisa]

Bonjour,

Voici un cas que je suis sure vous allez pouvoir répondre.

J ai dans un fichier Excel une liste de numéro de factures.

Ces factures en format PDF se trouvent parmis beaucoup d autres dans un dossier( toujours le même ).

J aimerai par une macro faire une recherche dés numéros de factures se trouvant dans ce dossier et copier coller ces factures dans un nouveau dossier.

Pourriez vous m aider svp
Petite précision cette tâche est à réaliser chaque jour et le nombre de factures se trouver dans le dossier est énorme.


Merci pour votre aide !

[Menhir]

Pour faire une copie de fichier, utilise l'instruction FileCopy.
Lire ça : https://docs.microsoft.com/fr-fr/off...copy-statement

Ta demande est trop imprécise pour qu'il soit possible d'en dire plus.

[Zekraoui_Jakani]

Dans ce cas précis, j'utilise souvent quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CopieRepertoires()
    'Il faut activer la référence "MicroSoft Scripting Runtime" au prélable
 
    Dim SourcePath, DestinationPath As String
    Dim ff
    Dim j As Long
    Dim FileExt As String
 
    SourcePath = "C:\Users\"                'à adapter
    DestinationPath = "C:\Users\Public\"    'à adapter
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    For Each ff In FSO.GetFolder(SourcePath).Files
        FileExt = FSO.GetExtensionName(SourcePath & ff)
        If UCase(FileExt) Like "PDF" Then
            Debug.Print ff.Name
            FSO.CopyFolder SourcePath, DestinationPath, True
            j = j + 1
        End If
    Next ff
 
    Set FSO = Nothing
    MsgBox j & " fichiers ont été copiés de '" & SourcePath & "' vers '" & DestinationPath & "'", _
            vbInformation + vbOKOnly, "Copie de fichiers PDF"
 
End Sub