Private Sub Workbook_Open()
' 1) VERIFICATION PREALABLE DU BON CHEMIN QUI VA ETRE SUIVI PAR LE MOTEUR.
' 2) RECHERCHE SI IL N'EST PAS BON.
'(ON POURRAIT AUSSI AJOUTER QUE LE DOSSIER QUI VA ETRE UTILISE DOIT AVOIR POUR NOM 'ALAIN")
If ActiveWorkbook.Keywords = "" Then ActiveWorkbook.Keywords = "x"
' Le "x" est ajouté...Car en cas de vide; la recherche va quand- même le trouver!!!
If Dir(ActiveWorkbook.Keywords & "\") = "" Then
'---------------------
Set RECHERCHE = Application.FileDialog(msoFileDialogFolderPicker)
With RECHERCHE
.Title = " CHOISIR UN DOSSIER"
.AllowMultiSelect = False
If .Show = -1 Then
For Each CHOIXDOSSIER In .SelectedItems
DOSSIER_CHOISI = CHOIXDOSSIER
Next CHOIXDOSSIER
End If
End With
Set RECHERCHE = Nothing
ThisWorkbook.Keywords = DOSSIER_CHOISI 'MISE EN MEMOIRE DU CHEMIN
ThisWorkbook.Save
MON_USF.Show vbModeless
' ------------------------------
Else
MON_USF.Show vbModeless
End If
End Sub