Bonjour Ti, Eric, EMG, Olivier, le Forum
Donc suite à la demande express d'Eric me voilà dans ce fil...
Bon tout d'abord je vois que Ti m'a posé une question et que j'ai zappé complètement ce fil depuis, sorry !!
Donc Ti, je pense que Gérard a été on peut plus explicit, je n'ai rien trouvé/importé c'est juste une personnalisation possible sous Excel 2000. Il suffit donc d'un click droit sur la Boite à Outils de VBE... Pour le reste Gérard a fait un tutorial !
Pour Eric, je ne comprends plus rien, je ne sais pas si c'est tout le mélange de procédures que tu as essayé d'imbriquer ou si c'est juste une imcompréhension de ta part sur la boite de dialogue "GetOpenFilename" car en fait que ce soit pour des images ou des classeurs, cette boite de dialogue pré-consue s'ouvre sur le Drive et le Répertoire par défaut.
Quand tu dis "En temps normal, ce que Thierry ou les autres mettent en ligne, fonctionne car testé ? " Grrrrrrrrrrrrr !
Je pense que tout ce que donnons comme réponse ici est testé et même re-testé, perso j'y fait un point d'honneur. Seulement je te répondrai comme tout à l'heure dans Lien supprimé, il est parfois plus facile de repartir à zéro que d'essayer d'adapter un bout de code qui a été fait pour une raison précise. Olivier qui est partit pleinement satisfait avait une demande précise : "je veux ouvrir un explorateur pour aller chercher une image sur le disque et l'afficher dans un controle picture"...
Hors toi, il semblerait que tu t'évertues à adapter ce code pour changer de Disque. Si tu changes de Drive, alors il te faut aussi changer le Current Drive aussi avec une variable et des instructions de plus :
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("image(*.jpg),*.jpg")
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
Perso je n'ai pas trouvé mieux pour trouver le current Drive que de faire un Left du Current Dir, 1.... c'est pas très très propre, mais çà marche...et je remets en place ce qui était avant ma macro, c'est le principal.
Cette fois-ci je pense que tu devrais mieux y arriver Eric.
Bonne soirée
@+Thierry
