Implémenter des fichiers dans un dossier

Version imprimable

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:

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:

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

27/06/2019, 12h31
Menhir

Citation:

Envoyé par gigi13800

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

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

Citation:

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

Instruction FileCopy : https://docs.microsoft.com/fr-fr/off...copy-statement
27/06/2019, 13h12
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:

1 2 Dim litemchoice As ? Set litemchoice = ..... .Select..
Je ne vois pas comment déclarer litemchoice.
27/06/2019, 13h30
patricktoulon

re

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....
27/06/2019, 14h49
gigi13800

1 pièce(s) jointe(s)

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

Pièce jointe 486967

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.
27/06/2019, 14h51
gigi13800

Merci Menhir pour ta réponse, je vais essayer de creuser dans ce sens
27/06/2019, 15h05
gigi13800

MarcelG, la fonction FilePicker a-t-elle besoin de prendre comme argument le nom exact du fichier que l'on souhaite choisir ?
En toute honnêteté, je débute sur VBA et il y a beaucoup de fonctions dont j'ignore encore l'existence

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:

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

re
sinon pour ta construction de l'arborescence avec file sytem object

ici je ne ferait qu'une seul boucle pour construire tout les chemins
et une petite dernier pour construire chaque dossier dans son parent

Code:

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
'creation avec FSO
Private Sub CommandButton2_Click()
Dim Racine, fin&, I&, X&, cel1, cel2, chemin_complet$, chem$, FsO, tbl
' creation du dossier maitre seulement si il n'existe pas
    Racine = Environ("userprofile") & "\DeskTop\on board"
    'ici on va globaliser sanchant qu'avec fso on créé l'arborescence d'un dossier en un coup !!!!
    With Sheets(1)
        'derniere ligne globale plage(qu'importe la colonne  de la plage)
        fin = .Range("A1:c" & Rows.Count).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious).Row
        For I = 1 To fin
            If Cells(I, 3) <> "" Then
                Set cel2 = .Range(.Cells(I, 2), .Cells(1, 2)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
                Set cel1 = .Range(cel2.Offset(, -1), .Cells(1, 1)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
            Else
                If Cells(I, 2) <> "" Then
                    Set cel2 = .Cells(I, 2)
                    Set cel1 = .Range(cel2.Offset(, -1), .Cells(1, 1)).Find("*", lookat:=xlWhole, SearchDirection:=xlPrevious)
                End If
            End If
            chemin_complet = cel1 & "\" & cel2 & "\" & Cells(I, 3)
            If Not chemin_complet Like "\\" And Not chemin_complet = "" Then
                chemin_complet = Racine & "\" & Left(chemin_complet, Len(chemin_complet) - 1)
                Debug.Print chemin_complet
                Set FsO = CreateObject("Scripting.FileSystemObject")    'instanciation de l'object FSO
                tbl = Split(chemin_complet, "\")
                chem = ""
                For X = 0 To UBound(tbl)
                    chem = chem & tbl(X) & "\"
                    If Not FsO.FolderExists(chem) Then FsO.createfolder (chem)
                Next
            End If
        Next
    End With
End Sub
Sub createfolder(chemin)
End Sub

après pour être honnête et c'est ma faute, je t'ai mal aiguillé quand a la forme de ton tableau
on aurait pu faire plus simple en mécanique pour faire 100 fois plus compliqué en terme d'arborescence

Salut Gigi, Salut Patrick,

Ci-dessous, le code que j'avais envisagé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Sub AfficherFichier() Dim lobjetFile As New Scripting.FileSystemObject With Application.FileDialog(msoFileDialogFilePicker) .Title = "Fichier à copier" .ButtonName = "Copie" If .Show = True Then lobjetFile.CopyFile .SelectedItems(1), "chemin destination de la copie avec nom du fichier et extension" End If End With End Sub
1 question, Patrick:
Si je déclare la variable
Code:

1 2 Set litemchoice = .SelectedItems(1)
Comment dois-je déclarer cette variable?

Code:

Dim litemchoice As ?????????????????????

J'ai recherché, peut-être mal, mais je n'ai pas trouvé de réponse à cette question.

re
allons Marcel ;)

quand tu instancie une variable avec l'instruction "Set" tu instancie quoi

tout simplement un object donc As ......;)

par contre je me souviens plus les filepiker mais je ne suis pas sur les items sélectionnés soit des object je dis ca car je ne sais plus j'ai viré depuis longtemps tout les filedialog de mes app au profit de getopenfilename et getsaveasfilename donc affaire a suivre

en tout cas pour "set" c'est soit un type d'object connu( As range,As control, voir les As xlconstante ou As (constante vbreturn) ) soit As object( c'est du latebinding)

si tu a un doute laisse le en variant

d'ailleurs!!!! dans ton exemple " .SelectedItems(1)" ne peut en aucun cas etre un object et a mon avis c'est un string ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Sub AfficherFichier() Dim lobjetFile As New Scripting.FileSystemObject With Application.FileDialog(msoFileDialogFilePicker) .Title = "Fichier à copier" .ButtonName = "Copie" If .Show = True Then lobjetFile.CopyFile .SelectedItems(1), "chemin destination de la copie avec nom du fichier et extension" End If End With
un petit truc pour t'aider a saisir la nuance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Sub AfficherFichier() 'Dim lobjetFile As New Scripting.FileSystemObject With Application.FileDialog(msoFileDialogFilePicker) .Title = "Fichier à copier" .ButtonName = "Copie" If .Show = True Then MsgBox TypeName(.SelectedItems(1)) MsgBox TypeName(.SelectedItems) MsgBox .SelectedItems.Count 'lobjetFile.CopyFile .SelectedItems(1), "chemin destination de la copie avec nom du fichier et extension" End If End With End Sub

Justement!

Si j'écris
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Sub AfficherFichier() Dim lobjetFile As New Scripting.FileSystemObject Dim litemchoice As Object With Application.FileDialog(msoFileDialogFilePicker) .Title = "Fichier à copier" .ButtonName = "Copie" If .Show = True Then Set litemchoice = .SelectedItems(1) lobjetFile.CopyFile .SelectedItems(1), "chemin destination de la copie avec nom du fichier et extension" End If End With
J'obtiens l'anomalie Incompatibilité de type
Et comme sélection répondant à cette anomalie, est surligné le mot

Code:

.SelectedItems

au sein de la déclaration

Code:

Set litemchoice = .SelectedItems(1)

Si je déclare cette variable en Variant, le même mot clé est mis en évidence avec cette nouvelle anomalie "Objet requis"
Pour ma part, la variable est un objet donc sa déclaration doit être précédée de l'instruction "Set"

Je dois quitter.
Je te propose de reprendre cette - intéressante - discussion demain.

Bonne soirée à toi, Bonne soirée au Forum.

End Sub

re
non! non! non! non!

ne confond pas .selecteditems(1) et .selecteditems le premier est enfant du 2d

voila peut être qui va t'aider
pour le coup tu a même une démonstration pratique du earlybinding et late binding pour les object
test 2 fois en inversant les dim ;)
et lis les msgbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Sub AfficherFichier()
'Dim lobjetFile As New Scripting.FileSystemObject
    'Dim monpaquet As FileDialogSelectedItems    'earlybinding
    Dim monpaquet As Object    'latebinding
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Fichier à copier"
        .ButtonName = "Copie"
        If .Show = True Then
            'instanciation de l'object collection de fichier selectionnés!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
            Set monpaquet = .SelectedItems
            MsgBox " le type de monpaquet est " & TypeName(monpaquet)
            MsgBox "j ' ai selectionné " & monpaquet.Count & " fichiers"
            MsgBox " le type d'un item dans mon paquet c'est " & TypeName(.SelectedItems(1))
            MsgBox "le premier(ou seul) nom de fifier dans l'object monpaquet est " & monpaquet(1)
            'lobjetFile.CopyFile .SelectedItems(1), "chemin destination de la copie avec nom du fichier et extension"
        End If
    End With
End Sub

je peut pas mieux faire ;)

28/06/2019, 09h20
MarcelG
Bonjour Patrick, Bonjour le Forum,

Très bien, ces notions me sont plus claires désormais.
Je n'en faisais pas jusque là un grand usage.

Citation:

je peut pas mieux faire

Pas la peine, désolé. J'espère néanmoins que d'autres novices auront été intéressés par nos échanges.
Pour ma part, je garde ce code dans ma bibliothèque.

Pour parler vrai, j'ai codé après avoir quitté le forum hier soir
Code:

1 2 Dim litemchoice As Variant litemchoice = SelectedItems(1)
Et comme je déteste le déclarations en Variant, j'ai regardé de plus près les arguments de la méthode CopyFile
Et l'idée m'est venue, cette nuit en allant ...:P, d'essayer le type String.
Ce qu'a validé ton dernier code.

Une dernière remarque:
Sur mon poste, la boîte de dialogue porte bien le titre "Fichier à copier"
Mais le bouton reporte la mention "Ouvrir"
Et c'est lors de la sélection du fichier que la mention "Copie" apparaît.

Merci et à plus tard.
28/06/2019, 09h30
patricktoulon

re

re
Bon jour Marcel
oui en effet le bouton se met a jour après sélection

ca me parait logique en fait
mais je reconnais c'est discutable
c'est un detail

je sais pas si on peu le changer le bouton avec getopenfilename que je préfère néanmoins
edit:
je viens de verifier on peut le faire que sur Mac avec la propriété buttontext( dommage pour moi )

maitre
	client1
		sub dossier1administratif
		sub dossier 2
	client2
		administratif