Lone-wolf
XLDnaute Barbatruc
Bonsoir à tous,
je suis entrain de finaliser le projet de mon ancien post "Copier-Coller avec temporisation" et j'aimerais votre aide pour ceci.
Il reste 4 choses à faire. La première est celle-ci:
Lister les sous-dossiers et fichiers, non pas dans la feuille Excel, mais du un fichier texte. Là, la ListBox devra afficher que les fichiers, comme dans l'exemple du projet.
Ce code viens de pierrot, sauf que lui avait mis dans "Source" le chemin complet;
et moi j'ai changé par TisWorkbook.Path.
Maintenant, il faudrait que "Destination" soit choisi par l'utilisateur; c'est à dire:
lui laisser le choix de la destination.
Là, il y a déjà la fenêtre "Créer un dossier" qui s'affiche lorsqu'on clique sur le bouton avec des pointillés.
Dans cette fenêtre et sur OK, la déstination s'affiche dans la ComboBox.
Sur le clique du bouton Installer, faire apparaître une barre de progression qui suit l'installation des fichiers et dossiers.
Vu la taille conséquante du dossier, je l'ai mis à cette adresse:
Ce lien n'existe plus
Merci d'avance pour votre aide
A+
je suis entrain de finaliser le projet de mon ancien post "Copier-Coller avec temporisation" et j'aimerais votre aide pour ceci.
Il reste 4 choses à faire. La première est celle-ci:
Lister les sous-dossiers et fichiers, non pas dans la feuille Excel, mais du un fichier texte. Là, la ListBox devra afficher que les fichiers, comme dans l'exemple du projet.
Code:
Sub Ouverture()
Dim Fso As Object, Source As String, Destination As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Source = ThisWorkbook.Path & "\Win Remix"
Destination = "C:\Program Files\Win Remix"
Fso.CopyFolder Source, Destination, False
End Sub
Ce code viens de pierrot, sauf que lui avait mis dans "Source" le chemin complet;
et moi j'ai changé par TisWorkbook.Path.
Maintenant, il faudrait que "Destination" soit choisi par l'utilisateur; c'est à dire:
lui laisser le choix de la destination.
Là, il y a déjà la fenêtre "Créer un dossier" qui s'affiche lorsqu'on clique sur le bouton avec des pointillés.
Dans cette fenêtre et sur OK, la déstination s'affiche dans la ComboBox.
Sur le clique du bouton Installer, faire apparaître une barre de progression qui suit l'installation des fichiers et dossiers.
Vu la taille conséquante du dossier, je l'ai mis à cette adresse:
Ce lien n'existe plus
Merci d'avance pour votre aide
A+