Discussion :

[L.Sébastien]

Bonjour,

Bonjour, je me présente je m'appelle Sébastien LASSALLE j'ai 20 ans je suis étudiant et actuellement en stage dans un bureau d'étude thermique. Je suis confronté à un problème. En effet, mon objectif est de réaliser un modèle Excel qui sera utilisé pour une multitude d'études de faisabilités mais je dois pouvoir rendre automatique le remplissage de ce modèle à partir de fichiers résultats. Ces fichiers résultats sont 10 fichiers qui portent un nom différent et sont constitués d'un tableau placé exactement au même endroit sur chaque classeur, seules les valeurs changent.

Mon problème est le suivant : Je rempli un grand tableau dans mon modèle à l'laide des autres classeurs, mais le problème est que ces 10 fichiers ne vont jamais avoir le même chemin d'accès vu que le modèle que je met en place va servir d'outil pour tout le monde. Alors je suis bloqué, est-ce possible de demander à excel d'aller chercher dans le dossier du document modèle, les autres classeurs ? Je ne sais pas comment faire.

Je ne sais pas si j'ai été suffisement clair pour expliciter mon problème.

J'espère que quelqu'un saura m'éclairer sur la question.

Très cordialement,

L.Sébastien

[lucasgaetan]

Bonjour Sébastien LASSALLE,

aller chercher dans le dossier du document modèle

Si ton document modèle est le fichier excle à partir d'où tu lance ta macro, tu peux tenter ça:

Code :

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

1
2
Dim MonRepertoire as string
MonRepertoire = ThisWorkbook.Path

Si tu veux proposer à l'utilisateur de choisir un dossier

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
Sub test()
 ' Attention le "\" à la fin de la ligne de commande est essentiel.
Dim MonRepertoire as string   
   MonRepertoire = SelDossier("c:\")
End Sub
 
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    .InitialFileName = Defaut
    If .Show = -1 Then
        SelDossier = fd.SelectedItems(1)
    End If
End With
Set fd = Nothing
End Function

a+

[L.Sébastien]

Bonjour,

Tout d'abord merci pour votre réponse, je suis débutant dans le langage, auriez vous le temps nécessaire à m'expliquer brievement la signification des lignes de codes ou du moins leurs buts. Je ne comprend pas tout ce que vous avez écrit ici.

Cordialement,

[lucasgaetan]

Re bonjour,

pour la 1ere Solution:

Code :

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

1
2
3
Dim MonRepertoire as string '--> ici tu déclare une variable (MonRepertoire ) et tu dis qu
MonRepertoire = ThisWorkbook.Path '--> ThisWorkbook en français: ce classeur ; Path en français: chemin (adresse du répertoire;exemple  C:\Users\toto\Desktop)
                                  '-->  donc ma variable appelée MonRepertoire = au chemin d’accès du fichier excel

ensuite si tu veux récupérer l'adresse des fichiers de ce répertoire:
Si tu connais leurs petits noms

Code :

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

1
2
3
4
5
Dim Fichier1 as string '--> tu déclare une variable
Fichier1 = MonRepertoire & "\Fichier1.xlsx" '-> C:\Users\toto\Desktop\Fichier1.xlsx
Dim Fichier2 as string
Fichier1 = MonRepertoire & "\Fichier2.xlsx"
.....

Si tu ne connais pas leurs noms:

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
Sub ListeFichier()
Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8
 
Dim objFSO, objDossier
Dim MonRepertoire As String
Dim MonResultat() As String
    On Error Resume Next
 
    MonRepertoire = ThisWorkbook.Path
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDossier = objFSO.GetFolder(MonRepertoire) '--> scrute le dossier mon repertoire
    ReDim MonResultat(0)
    If (objDossier.Files.Count > 0) Then
        For Each objFichier In objDossier.Files '--> pour chaque fichier de le dossier
            If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
                MonResultat(UBound(MonResultat)) = objFichier.Path '--> tu incrémente un tableau avec le chemin de tous les fichier .xls
                ReDim Preserve MonResultat(1 + UBound(MonResultat)) '--> tu ajout un rang à ton tableau
            End If
        Next
    End If
 
    ReDim Preserve MonResultat(UBound(MonResultat) - 1)
 
    objResultat.Close
    Set objDossier = Nothing
    Set objFSO = Nothing
 
End Sub

quoi qu'il en soit, n’hésites pas à mettre de espions ou des debug.print dans tes codes
cf tuto: (IV-C. Les espions)
http://cafeine.developpez.com/access...ugprint/#LIV-C

la touche F1 et google sont tes amis

a+

[lucasgaetan]

pour la 2eme solution, elle se déroule en 2 temps
1 la procédure principale:

Code :

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

1
2
3
4
5
Sub test()
 ' Attention le "\" à la fin de la ligne de commande est essentiel.
Dim MonRepertoire As String
   MonRepertoire = SelDossier("c:\") ' appelle la fonction SelDossier
End Sub

2 La fonction SelDossier appelée dans la procédure principale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SelDossier(Defaut As String)
Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker) 'fd = boite de dialogue
    With fd
        .InitialFileName = Defaut 'nom de fd = Defaut (comme dans les parametre de windows)
        If .Show = -1 Then
            SelDossier = fd.SelectedItems(1)  'SelDossier = le dossier choisi par l'utilisateur
        End If
    End With
    Set fd = Nothing
End Function

à toi de jouer