Discussion: Multi Mini BD
Afficher un message
Vieux 01/12/2007, 12h01   #11 (permalink)
DidierC
XLDnaute Nouveau
 
Date d'inscription: avril 2005
Messages: 12
Par défaut 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.
DidierC est déconnecté   Réponse avec citation