Discussion :

[gigi13800]

Bonjour à tous et merci par avance de m'aider dans mes recherches,

Je vous explique mon problème :
Un utilisateur rentre le nom d'un dossier client qu'il souhaite créer, ce dossier va être positionné suivant ce chemin :

Code :

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

1
2
3
4
dossier_client = InputBox("Veuillez rentrer le nom d'un client", "On-boarding Assistant")
chemin_du_dossier = "d:\Profiles\Desktop\gmarry\Desktop\On_boarding\"
dossier = chemin_du_dossier & "\" & dossier_client & "\"
MkDir (dossier)

Je crée ensuite 10 sous-dossiers qui sont commun à chaque client. Ces 10 sous-dossiers sont la racine à partir de laquelle je souhaite travailler et se situent à la même profondeur (niveau cheminement). Ex avec le sous-dossier "Administratif" :

Code :

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

1
2
sous_dossier5 = dossier & "\" & "Administratif" & "\"
MkDir (sous_dossier5)

Dans l'idée je souhaiterais cliquer sur un bouton "Parcourir" dans mon Excel et qui me permettrait d'aller sélectionner n'importe quel fichier de mon ordinateur et de le copier-coller dans ce sous-dossier "Administratif".
Mais je ne sais pas vraiment comment m'y prendre.

Toutes réponses ou ébauches ou mêmes conseils sont les bienvenues

[Menhir]

aller sélectionner n'importe quel fichier de mon ordinateur

Méthode GetOpenFilename de Application.
https://docs.microsoft.com/fr-fr/off...etopenfilename

le copier-coller dans ce sous-dossier "Administratif".

Instruction FileCopy : https://docs.microsoft.com/fr-fr/off...copy-statement

[MarcelG]

Salut Gigi et salut Menhir,

Menhir n'a pas reporté de code. Je ne le ferai donc pas, du moins dans l'immédiat

Oui, il faut utiliser les boîtes de dialogue (Patrick m'a mis le pied à l'étrier, je débute à ce sujet)
Au demeurant j'avais une autre piste, que j'ai testée.

Utiliser l'objet FilePicker (en abrégé) pour appliquer la méthode CopyFile sur l'item choisi.
Le fichier de destination pourrait être défini en fonction de ce dernier.

En fin de discussion, j'aurai une question quant à la déclaration de variable affecté à l'item.

Code :

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

1
2
Dim litemchoice As ? 
Set litemchoice = ..... .Select..

Je ne vois pas comment déclarer litemchoice.

[patricktoulon]

bonjour gigi

j'avoue ne pas bien comprendre ton énoncé

pourrais tu nous faire un tableau (en indentant les chemins dans les cellules) représentatif de l'arborescence que tu souhaite créer
du genre

maitre
	client1
		sub dossier1administratif
		sub dossier 2
	client2
		administratif

etc...etc....

[gigi13800]

pourrais tu nous faire un tableau (en indentant les chemins dans les cellules) représentatif de l'arborescence que tu souhaite créer
du genre

Classeur1.xlsx

je vous joins un excel vous montrant l'arborescence de mes dossiers.
En profondeur : Client x --> Sous-dossier racine (10 : "Administratif", "Personne morale", etc...) --> Fichier que je souhaite sélectionner dans mon PC

En théorie je voudrais créer 10 boutons, chacun rattaché à un sous-dossier racine. Lorsque je clique sur un de ces Boutons, je parcours mon PC, je sélectionne un fichier, et il vient se coller dans le sous-dossier raccordé au bouton correspondant.

je ne sais pas si cela est possible... et si vous voyez un peu mieux mon problème.

[gigi13800]

Merci Menhir pour ta réponse, je vais essayer de creuser dans ce sens

[patricktoulon]

re
selon ton tableau dans ton fichier join
voici avec test dir et MKDIR la construction de ton arborescence

comme tu pourra le constater je t'ai préparer le travail au cas ou tu voudrais descendre jusqu'en colonne 3 pour des sub sub sub dossiers
apres tu parle de construction(creation de bouton
je pense que si on mettait cela dans un tableau structurer avec l'évènement sélections_change ou rightclick sur cellule o avec folowhyperlink on aurait ce que tu souhaite
certe ca fait moins de chichi (interface minimale) quoi que libre a toi de mettre des couleurs dans les cellules même du tableau structuré si tu prendra ce chemin la
en tout ca se serait fonctionnel

creation de tes dossier
change la racine base a ton contexte

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
28
29
30
31
32
33
34
35
36
37
38
39
'Creation avec DIR et MKDIR
Private Sub CommandButton1_Click()
    Dim I&, cel As Range, cheminsub$, sheminsubsub$, racine$
    ' creation du dossier maitre seulement si il n'existe pas
    racine = Environ("userprofile") & "\DeskTop\on board"
    If Dir(racine, vbDirectory) = "" Then MkDir (racine)
    'creation des sous dossiers du maitre colonne "A"
    finA = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets(1)
        For I = 1 To finA
            If .Cells(I, 1) <> "" Then
                cheminsub = (racine) & "\" & Cells(I, 1).Text
                If Dir(cheminsub, vbDirectory) = "" Then MkDir cheminsub
            End If
        Next
 
        'creation des sous sous dossiers du client colonne "B"
        finb = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
        For I = 1 To finb
            If .Cells(I, 2) <> "" Then
                Set cel = .Range(.Cells(I, 1), .Cells(1, 1)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
                cheminsubsub = racine & "\" & cel.Text & "\" & Cells(I, 2).Text
                'MsgBox .Cells(i, 2).Address & cel.Address
                If Dir(cheminsubsub, vbDirectory) = "" Then MkDir cheminsubsub
            End If
        Next
        'creation des sous sous sous dossiers du sous  dossier du dossier client  colonne "C"
        finc = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
        For I = 1 To finc
            If .Cells(I, 3) <> "" Then
                Set cel = .Range(.Cells(I, 2), .Cells(1, 2)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
                Set cel1 = .Range(.Cells(I, 1), .Cells(1, 1)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
                MsgBox cel1 & "\" & cel & "\" & .Cells(I, 3)
            End If
        Next
 
 
    End With
End Sub