Choisir un repertoire par défaut dans macro

Bonjour,

après de nombreuses recherches je ne trouve toujours pas la solution, voila mon problème :

J'ai cette macro qui me permet de sélectionner un repertoire et d'afficher tout les fichier du dossier, mais j'aimerais ne pas avoir a selectionner le dossier et que lorsque j'éxécute la macro il prennent directement l'emplacement que je souhaite (qui est tout le temps le même), il y a t-il une solution ?

Sub rep_xl()
Dim zaza As String, brinf As BrowseInfo

'vider la page
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Cells.Interior.ColorIndex = xlNone
Cells.ColumnWidth = 4.86
ActiveSheet.Cells.ClearContents
ActiveSheet.Cells.Hyperlinks.Delete

'choix du répertoire
dialg = SHBrowseForFolder(brinf) 'affiche la boite de dialogue
zaza = Space(200) 'crée un tampon zaza
SHGetPathFromIDList dialg, zaza 'charge le chemin dans le tampon
Cells(1) = Left(zaza, InStr(1, zaza, Chr(0)) - 1)

col = 1
'balayer la colonne col
encor:
Set derlin = Columns(col).Cells.Find("*", , , , , xlPrevious)
If derlin Is Nothing Then Exit Sub
For lin = derlin.Row To 1 Step -1
If Cells(lin, col) <> "" Then

'répertoires
num1 = 0
Do While ss_rep(Cells(lin, col))(num1) <> "END"
Rows(lin + 1).Insert Shift:=xlDown
Cells(lin + 1, col + 1) = ss_rep(Cells(lin, col))(num1)
num1 = num1 + 1
Loop

'fichiers
num = 0
Do While fich(Cells(lin, col))(num) <> "END"
Rows(lin + 1).Insert Shift:=xlDown
Cells(lin + 1, col + 1) = fich(Cells(lin, col))(num)
ActiveSheet.Hyperlinks.Add Cells(lin + 1, col + 1), Cells(lin, col) & "\" & fich(Cells(lin, col))(num)
num = num + 1
Loop
If num + num1 <> 0 Then Range(Cells(lin, col), Cells(lin, col + 3)).Interior.ColorIndex = 36

End If
Next lin
col = col + 1
GoTo encor

End Sub

Bonsoir,

Je n'ai pas tous les éléments pour tester tout le code, mais il faut déjà que tu remplaces le code :

    'choix du répertoire
    dialg = SHBrowseForFolder(brinf) 'affiche la boite de dialogue
    zaza = Space(200) 'crée un tampon zaza
    SHGetPathFromIDList dialg, zaza 'charge le chemin dans le tampon
    Cells(1) = Left(zaza, InStr(1, zaza, Chr(0)) - 1)

par celui-ci :

    Cells(1) = "d:\tonchemin"

Mais je ne vois pas ou la cellule A1 est utilisée dans le reste du code... ss_rep ?

A+

Benoît Marchand

[Benead]

Bonjour,

C'est peut-être un truc comme ça que tu veux.

Avec en plus une mise à jour automatique du/des répertoire(s) sélectionné(s) à l'ouverture du classeur.

A+