copier un fichier txt

[PHILIP]

Bonjour à tous,

Existe t-il un moyen par macro de copier tous fichier de forme txt d'un dossier vers un autre sans utilser leurs noms ? si oui pouvez vous me guider ?

merci pour votre aide

 

[Softmama]

Re : copier un fichier txt

Bonjour,

Tu peux adapter ce code à ton besoin :

Sub Copie_répertoire()
    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim RepSource as string, RepDest as string
    Dim i As Long
    RepSource= "C:\Source" 'à adapter
    RepDest = "C:\Destination\" 'à adapter
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Source)
    Application.ScreenUpdating = False
    i = 0
    For Each FileItem In SourceFolder.Files
            if Right$(FileItem, 4) = ".txt" then FileCopy FileItem, RepDest & "NouveauNom" & i & ".txt" ' à adapter
            i=i+1
    Next FileItem
end sub

 

[PHILIP]

Re : copier un fichier txt

Bonjour Softmama,

Je testerais cela dés 2 heures , vu que je pars en reunion

Merci pour ton aide