Re : Multi Mini BD
Bonjour Imico, le forum.
Pour tenter de répondre à ton problème, je te propose…
Sur l'onglet MMBD_Guide :
( A déprotèger au préalable - Il n'y a pas de mot de passe )
Mettre en
Cellule M2 Chemin par défaut des fichiers images
Cellule M3 D:\Mes images
Cellule M4 Chemin par défaut des fichiers attachés
Cellule M5 E:\Mes fichiers
Dévérouiller les cellules M3 et M5 ( Sinon on ne pourra pas en changer le contenu ).
( L'onglet se reprotègera automatiquement ).
Dans le code VBA du Navigateur :
Déclarer une nouvelle variable ( Au début du code du Navigateur )
Dim CheminFichiers as String
Ajouter la ligne de code dans la procédure Sub CheminImage_Click()
( Juste en dessous du Sub )
CheminFichiers = ThisWorkbook.Sheets("MMBD_Guide").Range("M3").Valu e
Ajouter la ligne de code dans la procédure Sub CheminFichierAttaché_Click()
( Juste en dessous du Sub )
CheminFichiers = ThisWorkbook.Sheets("MMBD_Guide").Range("M5").Valu e
Dans le code de la procédure Function SélectionnerFichier()
Remplacer la ligne
.lpstrInitialDir = "C:\"
par la ligne
.lpstrInitialDir = CheminFichiers
Cela devrait pouvoir répondre à ta première demande.
Pour la suite, je ne suis pas sur de bien comprendre mais peut être que ce que
je viens de te proposer te servira de piste
Bon courage et A+
Didier.
Complément d'info.
Le contenu des cellules M3 et M5 est bien évidemment à adapter en fonction des adresses des fichiers...
Dernière modification par DidierC ; 02/12/2007 à 16h59.
|