Macro copier / coller multi fichiers

Bonjour,

Je cherche le code qui me permettrait aux travers d'une macro d'aller sélectionner dans un répertoire plusieurs fichiers excel, de les copier puis de les coller dans un autre répertoire.

Je ne souhaite pas les fusionner en 1 mais bien les copier/coller d'un répertoire à un autre

Merci de votre réponse

Bonjour,

à tester,

Sub Copy_Fichier()
Dim NomFich As String
Dim OldRep As String, NewRep As String
    OldRep = "C:\Users\isabelle\Documents\Test1\"  ' adapter le chemin
    NewRep = "C:\Users\isabelle\Documents\Test2\"  ' adapter le chemin

    NomFich = Dir(OldRep & "*.xls*", 2)  ' adapter l'extention
        Do While NomFich <> ""
            If (GetAttr(OldRep & NomFich) And vbNormal) = vbNormal Then
                FileCopy OldRep & NomFich, NewRep & NomFich
            End If
            NomFich = Dir()
        Loop
End Sub

Merci pour ce code,

J'ai une erreur d'éxecution 52 sur :

FileCopy OldRep & NomFich, NewRep & NomFich

Nom ou numéro de fichier incorrect

En passant la souris dessus pour moi tout est correct, j'ai bien l'ancien répertoire et le nom du fichier à copier puis le nouveau répertoire et le nom du fichier.

Une idée du problème ?

Merci j'ai réglé mon pb.

Visiblement je ne peux pas coller sur un sharepoint

Bonjour,

sharepoint c'est sur le web ?

Rechercher des sujets similaires à "macro copier coller multi fichiers"