Bonjour Nimbus, le Forum
Drôle de Nick !
Voici un exemple :
Sub TheDriveChange ()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
Dim UserDrive As String
UserDrive = Left(CurDir, 1) 'On Mémorise les Paramètres du User
UserDir = CurDir ' idem
TempDrive = "D"
ThePath = "D:\Mes Photos " 'à ajuster au répertoire contenant tes images
ChDrive TempDrive
ChDir ThePath
TheFile = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
If TheFile = False Then ChDrive UserDrive: ChDir UserDir: Exit Sub
'blah blah blah blah la macro'cro'cro
ChDrive UserDrive 'On remet les paramètres du User
ChDir UserDir 'idem
End Sub
PS la Variable "FileToOpen" me rappelle un truc ...
Bon App
@+Thierry
PS : Si tu tournes avec Excel XP, un commentaire interressant (comme toujours) de Ti : (Post du Lien supprimé
va voir du côté de l'objet FileDialog, c'est vraiment très puissant, et on peut définir absolument tout ce qu'on veut dedans. Pour l'utiliser la première fois, fais comme moi : copie les exemples de Microsoft dans un classeur vierge et fais différents tests jusqu'à ce que tu comprennes la philosophie du truc. Ensuite on regrette de devoir le laisser tomber pour revenir à la compatibilité XL 2000.