Comparer deux repertoires avec Maj

Bonjour,

Pour chaque dossier, utilise la fonction "Dir" pour vérifier la présence dans la seconde arborescence. S'il est absent, Crée-le avec la commande "MkDir".

Cordialement.

Daniel

Bonjour,

Merci Geo de ta réponse.

Voila un code que j'ai adapter pour mettre à jour un deuxième répertoire par rapport à un premier répertoire.

Mais, pour le moment il ne fait pas de comparaison :

'------------

Option Explicit

Sub Demo()

    Dim fso As Object    'FileSystemObject

    Dim fldStart As Object    'Folder

    Dim fld As Object    'Folder

    Dim fl As Object    'File

    Dim Mask As String, Racine As String

    Racine = ChoixDossier

      If Racine = "" Then Exit Sub

    Set fso = CreateObject("scripting.FileSystemObject")

    Set fldStart = fso.GetFolder(Racine)

    fldStart.Copy ("C:\Users\hp\Desktop\Folder\TL 2015")

    Set fldStart = Nothing

    Set fso = Nothing

    '-----------------

End Sub

Function ChoixDossier()

    If Val(Application.Version) >= 10 Then

       With Application.FileDialog(msoFileDialogFolderPicker)

        .InitialFileName = ActiveWorkbook.Path & ""

        .Show

        If .SelectedItems.Count > 0 Then

           ChoixDossier = .SelectedItems(1)

        Else

           ChoixDossier = ""

        End If

       End With

     Else

       ChoixDossier = InputBox("Répertoire?")

     End If

End Function

'------------

Bonjour

Il s'agit de faire une comparaison en premier lieu avant de recopier ce qui manquait à l'arborescence du deuxième.

Dans Windows, il y a Robocopy qui fait ça.

Bonjour Daniel,

Il s'agit de faire une comparaison en premier lieu avant de recopier ce qui manquait à l'arborescence du deuxième.

Peut-on coder cette procédure avec du VBA/Excel ?

Merci.

Bonjour,

S'il s'agit de recopier une arborescence sur une autre, pourquoi ne pas utiliser "xcopy" ?

Cordialement.

Daniel