boite de dialogue ouvrir un dossier

[germain]

Bonjour a tous

voila jaimerais savoir comment faire pour que quand la boite de Application.GetOpenFilename s'ouvre elle souvre dans un fichier specifier dans mon code vba.
jaimerais qua louverture de cette boite je sois dans le dossier mes documents

voila mon code actuel

Sub ListeFichiersMp3()
Application.ScreenUpdating = False
Dim Ligne, Colonne As Integer
Dim monFichier As String
monFichier = Application.GetOpenFilename("Fichier texte (*.mp3),*mp3")
Columns("A:H").ColumnWidth = 50
Application.Goto ActiveSheet.Range("A4")
monFichier = Dir("*.mp3")
Do Until monFichier = ""
For Colonne = 1 To 395 Step 55
For Ligne = 0 To 54
ActiveCell.Value = monFichier
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(-1, 0) = "" Then
Range("A1").Select
Exit Sub
End If
monFichier = Dir
Next
ActiveCell.Offset(-55, 1).Select
Next
Loop
Application.ScreenUpdating = True

End Sub


Merci d'avance

 

[STéphane]

chdir "c:\documents and settings\stephane\mes documents"
......

 

[Vériland]

J'ai ajouté cela dans ta macro pour définir le chemin...d'abord ChDrive qui défini le lecteur par défaut (de base cela reste C)...ensuite ChDir pour le chemin...

Sub ListeFichiersMp3()
Application.ScreenUpdating = False
Dim Ligne, Colonne As Integer
Dim monFichier As String
ChDrive "D"
ChDir "D:\mes documents"
monFichier = Application.GetOpenFilename("Fichier texte (*.mp3),*mp3")
Columns("A:H").ColumnWidth = 50
Application.Goto ActiveSheet.Range("A4")
monFichier = Dir("*.mp3")
Do Until monFichier = ""
For Colonne = 1 To 395 Step 55
For Ligne = 0 To 54
ActiveCell.Value = monFichier
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(-1, 0) = "" Then
Range("A1").Select
Exit Sub
End If
monFichier = Dir
Next
ActiveCell.Offset(-55, 1).Select
Next
Loop
Application.ScreenUpdating = True

End Sub

 

[germain]

merci encore veriland tes super sympa