Répertoire par défaut
Le
Woody
Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir = "D:\Mes documents\toto\"
J'ouvre une boîte de dialogue pour aller chercher un fichier dans le
répertoire par défaut avec la macro suivante:
Dim oDialog As Office.FileDialog
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker) 'Ouvre une
boîte de dialogue MS Office FilePicker
oDialog.Filters.Add "Fichiers Excel", "*.xls" 'Sélection
sur les classeurs .XLS
oDialog.Title = "Sélectionnez le fichier Excel" 'Titre de la
boîte de dialogue
oDialog.AllowMultiSelect = False 'Pas de
sélection multiple
oDialog.Show 'Affiche la
boîte
mais cette boite de dialogue reste sur "Mes documents" et ne s'ouvre pas sur
le répertoire "toto".
Comment faire ?
Merci
Cordialement
Woody
J'ai défini le répertoire par défaut avec:
ChDir = "D:\Mes documents\toto\"
J'ouvre une boîte de dialogue pour aller chercher un fichier dans le
répertoire par défaut avec la macro suivante:
Dim oDialog As Office.FileDialog
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker) 'Ouvre une
boîte de dialogue MS Office FilePicker
oDialog.Filters.Add "Fichiers Excel", "*.xls" 'Sélection
sur les classeurs .XLS
oDialog.Title = "Sélectionnez le fichier Excel" 'Titre de la
boîte de dialogue
oDialog.AllowMultiSelect = False 'Pas de
sélection multiple
oDialog.Show 'Affiche la
boîte
mais cette boite de dialogue reste sur "Mes documents" et ne s'ouvre pas sur
le répertoire "toto".
Comment faire ?
Merci
Cordialement
Woody
Poser une question
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" OT5C%
Merci pour ta réponse.
J'ai maintenant les deux lignes:
ChDir "D:"
ChDir "D:Mes documentsToto"
Mais la boite de dialogue s'ouvre toujours sur D:Mes documents ?!
Qu'est-ce que je rate ?
Merci encore
Woody
"Daniel.C"
Il semble que cette boîte de dialogue n'utilise pas le dossier par défaut,
mais ce qui est spécifié dans Excel comme répertoire de démarrage.
Ajoute la ligne :
.InitialFileName = "D:Mes documentstoto"
Cordialement.
Daniel
"Woody"
J'ai maintenant les deux lignes:
ChDrive "D"
ChDir "D:Mes documentsToto"
Mais la boite de dialogue "msoFileDialogFilePicker" s'ouvre toujours sur
D:Mes documents ?!!
C'est une propriété de la boîte de dialogue :
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:Mes documentsToto"
Cordialement
Pascal
"Woody"