Répertoire par défaut

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir = "D:Mes documentstoto"

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

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Bonjour Daniel,

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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Erreur de ma part ! Je voulais écrire :

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 ?!!

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Bonjour.
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" <Woody@blackwood.net.invalid> a écrit dans le message de news:
esxhC1HFIHA.3940@TK2MSFTNGP05.phx.gbl...

Bonjour Daniel,

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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Woody
C'est une propriété de la boîte de dialogue :
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:Mes documentsToto"

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OlVeZtKFIHA.1208@TK2MSFTNGP03.phx.gbl...

Erreur de ma part ! Je voulais écrire :

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 ?!!

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Merci Papou,

Daniel m'avait effectivement mis sur la voie!
Merci à tous les deux!

Woody

"papou" <cpapounospamthanx@laposte.netnospamthanks> a écrit dans le
message de news: eRWB1xKFIHA.936@TK2MSFTNGP06.phx.gbl...

Woody
C'est une propriété de la boîte de dialogue :
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:Mes documentsToto"

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OlVeZtKFIHA.1208@TK2MSFTNGP03.phx.gbl...

Erreur de ma part ! Je voulais écrire :

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 ?!!

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Ah oui ! pardon à Daniel pas vu sa réponse.

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
eT77A6KFIHA.5648@TK2MSFTNGP05.phx.gbl...

Merci Papou,

Daniel m'avait effectivement mis sur la voie!
Merci à tous les deux!

Woody

"papou" <cpapounospamthanx@laposte.netnospamthanks> a écrit dans le
message de news: eRWB1xKFIHA.936@TK2MSFTNGP06.phx.gbl...

Woody
C'est une propriété de la boîte de dialogue :
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:Mes documentsToto"

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OlVeZtKFIHA.1208@TK2MSFTNGP03.phx.gbl...

Erreur de ma part ! Je voulais écrire :

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 ?!!

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de
news: OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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

Deux bonnes réponses identiques confortent le pauvre débutant que je suis
;-)
Merci encore à tous les deux

Woody

"papou" <cpapounospamthanx@laposte.netnospamthanks> a écrit dans le
message de news: %23lGNxALFIHA.4712@TK2MSFTNGP04.phx.gbl...

Ah oui ! pardon à Daniel pas vu sa réponse.

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
eT77A6KFIHA.5648@TK2MSFTNGP05.phx.gbl...

Merci Papou,

Daniel m'avait effectivement mis sur la voie!
Merci à tous les deux!

Woody

"papou" <cpapounospamthanx@laposte.netnospamthanks> a écrit dans le
message de news: eRWB1xKFIHA.936@TK2MSFTNGP06.phx.gbl...

Woody
C'est une propriété de la boîte de dialogue :
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:Mes documentsToto"

Cordialement
Pascal

"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de news:
OlVeZtKFIHA.1208@TK2MSFTNGP03.phx.gbl...

Erreur de ma part ! Je voulais écrire :

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 ?!!

"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ewzmOICFIHA.484@TK2MSFTNGP06.phx.gbl...

Bonsoir.
Avant ton ChDir, fais un ChDrive "d"
Cordialement.
Daniel
"Woody" <Woody@blackwood.net.invalid> a écrit dans le message de
news: OT5C%238BFIHA.1208@TK2MSFTNGP05.phx.gbl...

Bonsoir,
J'ai défini le répertoire par défaut avec:
ChDir "D:Mes documentstoto"

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