zesuila
XLDnaute Occasionnel
Bonjour à tous et très bonne année 2007.
Bon c'est vrai c'est un "up" mais bon je me suis dit avec la nouvelle année, les exceliens vont être indulgents.
Voici donc mon soucis :
en cliquant sur un bouton dans un userform, les utilisateurs peuvent choisir une image jpg à insérer dans une feuille de calcul. Mais le soucis c'est que je voudrais que le répertoire précis apparaisse automatiquement lors du choix de la photo dans la fenêtre windows.
Par exemple dans le répertoire Q: (c'est en réseau) et dans le sous répertoire : photos.
J'utilise pour l'instant :
ChDrive "Q"
ChDir "Q:\PHOTOS"
Application.Dialogs(xlDialogInsertPicture).Show
'définit la variable dest
If Range("A10").Value = "" Then
Set dest = Range("A10:B10") 'A1 si A1 est vide
Else 'sinon
Set dest = Range("A10:B10")
'Set dest = Range("A65536").End(xlUp).Offset(1, 0) 'La première ligne vide de la colonne A
End If
dest.Value = " " 'met un espace la la cellule Dest
etc.....
Mais là cela me met la première fois le répertoire par défaut des images de windows puis ensuite le dernier choix que j'ai utilisé. Mais jamais le répertoire photos dans Q.
Je suis preneur de toutes idées.
Et encore désolé pour ce UP !
Bon c'est vrai c'est un "up" mais bon je me suis dit avec la nouvelle année, les exceliens vont être indulgents.
Voici donc mon soucis :
en cliquant sur un bouton dans un userform, les utilisateurs peuvent choisir une image jpg à insérer dans une feuille de calcul. Mais le soucis c'est que je voudrais que le répertoire précis apparaisse automatiquement lors du choix de la photo dans la fenêtre windows.
Par exemple dans le répertoire Q: (c'est en réseau) et dans le sous répertoire : photos.
J'utilise pour l'instant :
ChDrive "Q"
ChDir "Q:\PHOTOS"
Application.Dialogs(xlDialogInsertPicture).Show
'définit la variable dest
If Range("A10").Value = "" Then
Set dest = Range("A10:B10") 'A1 si A1 est vide
Else 'sinon
Set dest = Range("A10:B10")
'Set dest = Range("A65536").End(xlUp).Offset(1, 0) 'La première ligne vide de la colonne A
End If
dest.Value = " " 'met un espace la la cellule Dest
etc.....
Mais là cela me met la première fois le répertoire par défaut des images de windows puis ensuite le dernier choix que j'ai utilisé. Mais jamais le répertoire photos dans Q.
Je suis preneur de toutes idées.
Et encore désolé pour ce UP !