Bonsoir,
Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un
classeur dont je ne connais pas la fin du nom.
Cela fonctionne très bien, mais si le dossier "C:\Questions\" contient
également un fichier RAR, cela l'ouvre.
Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ?
Je vous remercie
Alain
Sub test()
Const Chemin As String = "C:\Questions\"
fich = Dir(Chemin & "Question 2009*")
Workbooks.Open Chemin & fich
End Sub
Cordialement.
Daniel
> Bonsoir,
> Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du
> nom.
> Il s'appelle "Question 2009....xls"
> il se trouve dans C:\Questions\
> Je vous remercie
> Alain
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xavier
Salut Alain essaye ceci
fich = Dir(Chemin & "Question 2009*.xls")
xavier
alain Lebayle a écrit :
Bonsoir, Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un classeur dont je ne connais pas la fin du nom. Cela fonctionne très bien, mais si le dossier "C:Questions" contient également un fichier RAR, cela l'ouvre. Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ? Je vous remercie Alain
Sub test() Const Chemin As String = "C:Questions" fich = Dir(Chemin & "Question 2009*") Workbooks.Open Chemin & fich End Sub
Cordialement. Daniel
Bonsoir, Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du nom. Il s'appelle "Question 2009....xls" il se trouve dans C:Questions Je vous remercie Alain
Salut Alain
essaye ceci
fich = Dir(Chemin & "Question 2009*.xls")
xavier
alain Lebayle a écrit :
Bonsoir,
Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un
classeur dont je ne connais pas la fin du nom.
Cela fonctionne très bien, mais si le dossier "C:Questions" contient
également un fichier RAR, cela l'ouvre.
Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ?
Je vous remercie
Alain
Sub test()
Const Chemin As String = "C:Questions"
fich = Dir(Chemin & "Question 2009*")
Workbooks.Open Chemin & fich
End Sub
Cordialement.
Daniel
Bonsoir,
Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du
nom.
Il s'appelle "Question 2009....xls"
il se trouve dans C:Questions
Je vous remercie
Alain
Bonsoir, Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un classeur dont je ne connais pas la fin du nom. Cela fonctionne très bien, mais si le dossier "C:Questions" contient également un fichier RAR, cela l'ouvre. Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ? Je vous remercie Alain
Sub test() Const Chemin As String = "C:Questions" fich = Dir(Chemin & "Question 2009*") Workbooks.Open Chemin & fich End Sub
Cordialement. Daniel
Bonsoir, Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du nom. Il s'appelle "Question 2009....xls" il se trouve dans C:Questions Je vous remercie Alain
alain Lebayle
Salut Xavier, C'est parfait ! Très bonne journée Alain
"Xavier" a écrit dans le message de news: 4ae3f0e4$0$9953$
Salut Alain essaye ceci
fich = Dir(Chemin & "Question 2009*.xls")
xavier
alain Lebayle a écrit :
Bonsoir, Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un classeur dont je ne connais pas la fin du nom. Cela fonctionne très bien, mais si le dossier "C:Questions" contient également un fichier RAR, cela l'ouvre. Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ? Je vous remercie Alain
Sub test() Const Chemin As String = "C:Questions" fich = Dir(Chemin & "Question 2009*") Workbooks.Open Chemin & fich End Sub
Cordialement. Daniel
Bonsoir, Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du nom. Il s'appelle "Question 2009....xls" il se trouve dans C:Questions Je vous remercie Alain
Salut Xavier,
C'est parfait ! Très bonne journée
Alain
"Xavier" <Xavierpowaga@free.fr> a écrit dans le message de news:
4ae3f0e4$0$9953$426a74cc@news.free.fr...
Salut Alain
essaye ceci
fich = Dir(Chemin & "Question 2009*.xls")
xavier
alain Lebayle a écrit :
Bonsoir,
Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un
classeur dont je ne connais pas la fin du nom.
Cela fonctionne très bien, mais si le dossier "C:Questions" contient
également un fichier RAR, cela l'ouvre.
Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ?
Je vous remercie
Alain
Sub test()
Const Chemin As String = "C:Questions"
fich = Dir(Chemin & "Question 2009*")
Workbooks.Open Chemin & fich
End Sub
Cordialement.
Daniel
Bonsoir,
Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin
du
nom.
Il s'appelle "Question 2009....xls"
il se trouve dans C:Questions
Je vous remercie
Alain
Salut Xavier, C'est parfait ! Très bonne journée Alain
"Xavier" a écrit dans le message de news: 4ae3f0e4$0$9953$
Salut Alain essaye ceci
fich = Dir(Chemin & "Question 2009*.xls")
xavier
alain Lebayle a écrit :
Bonsoir, Grâce à Daniel.C, je possède cette procédure qui me permet d'ouvrir un classeur dont je ne connais pas la fin du nom. Cela fonctionne très bien, mais si le dossier "C:Questions" contient également un fichier RAR, cela l'ouvre. Comment faire pour que dans ce cas, seul le fichier Excel soit ouvert ? Je vous remercie Alain
Sub test() Const Chemin As String = "C:Questions" fich = Dir(Chemin & "Question 2009*") Workbooks.Open Chemin & fich End Sub
Cordialement. Daniel
Bonsoir, Je souhaite ouvrir un classeur par macro dont je ne connais pas la fin du nom. Il s'appelle "Question 2009....xls" il se trouve dans C:Questions Je vous remercie Alain