[VBA excel] Choisir le repertoire d'acces

**Thomas69** · 31/10/2007, 14h50

J'ai créer une maccro qui me permet d'allez dans un repertoire et de prendre certain fichiers

Code :

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

1
2
3
4
5
6
7
8
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
fic = Dir(Chemin & "A200_PROD_4_LOT*.xls")
Do Until fic = ""
     Set CL1 = Workbooks.Open(Chemin & fic)
     DoEvents
     
     Set fl = CL1.Worksheets("2")
     Set FL2 = Workbooks("Archive-A200.xls").Sheets("Production")

en rouge c'est le repertoire qui est fixe

je voudrais le faire de maniere dynamique c'est a dire que sur mon fichier excel quand je clique sur un bouton une fenetre apparait et me permet de choisir un repertoire sur mon réseau (un peu comme ouvrir un fichier ou je veux)

mais je ne sait pas comment m'y prendre et j'ai fait des recherches mais sans succes

si vous aviez un conseil ou un coup de main a me passer faites le svp

je vous en remercie d'avance

**Pierre Fauconnier** · 31/10/2007, 15h00

Bonjour

Voici une fonction générique qui permet cela. Elle renvoie le nom du fichier choisi dans la boite de dialogue.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function getNomFichier() As String
    Dim Reponse As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1)
    End With
    getNomFichier = Reponse
End Function

Fais une recherche avec FileDialog sur DVP ou dans l'aide en ligne pour aborder les paramètres (filtres, dossier par défaut,...)...

Ok?

**Thomas69** · 31/10/2007, 15h06

je n'arrive pas a tester ton code
je ne sait pas comment le mettre en place tu peux me faire voir stp

**Pierre Fauconnier** · 31/10/2007, 15h10

Il s'agit d'une fonction.

Tu dois donc la placer dans un module standard. Après quoi, tu l'utilises dans ton code, comme un fonction VB classique.

Dans ton cas, tu vas sûrement placer cela dans un userform et appeler la fonction par clic sur un bouton, par exemple.

Mes explications te permettent d'avancer?

**Thomas69** · 31/10/2007, 15h17

ouskeln'or
je te rassure je suis allez voir sur le DVP comme m'as dit pierre

et j'ai trouver ce code

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
Sub toto()
Dim oFd As FileDialog
'Instancie une boite de dialogue de sélection de répertoire
Set oFd = Application.FileDialog(msoFileDialogFolderPicker)
With oFd
    'Change le titre de la fenêtre
    .Title = "Sélectionnez un répertoire"
    'Répertoire par défaut
    .InitialFileName = "c:\"
    'Affiche la boite de dialogue
    If .Show Then MsgBox (.SelectedItems(1))
End With
 
 
End Sub

et le nom du repertoire apparait dans une message box
ce que je voudrais c'est que ce nom la remplace le nom qu'y a dans ma maccro en rouge
et je ne sait pas comment le mettre en variable voila surtout qu'ai plusieurs modules qui contient ce meme nom de repertoire je voudrais le changer dans tous les modules par une variable commune a tous les modules

desoler j'ai du mal m'exprime au debut

**Pierre Fauconnier** · 31/10/2007, 15h22

Place le code que je t'ai donné dans un module standard.

Puis dans ton code, remplace

Code :

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

1
2
 
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"

par

Code :

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

1
2
 
Chemin = getNomFichier()

Idéalement, tu dois tester si chemin est une chaine vide, mais place déjà le code comme je te le propose et dis-nous si cela fonctionne.

On aoutera la sécurité par la suite, en fonction des besoins.

Ok?