Ouvrir un classeur dont on ne connait pas la fin du nom

Le
alain Lebayle
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

--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20409981
Bonjour.

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
Le #20410221
Bonsoir,
Merci beaucoup, c'est parfait !
Très bonne soirée
Alain

"Daniel.C" eLYXD3$
Bonjour.

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






isabelle
Le #20410211
bonjour Alain,

un autre exemple pour un bachfile

Sub bachfile()
Set fs = Application.FileSearch
With fs
.LookIn = "C:Questions"
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
x = Application.Proper(Mid(.FoundFiles(i), 14, 9))
If x = "Questions" Then
'action
End If
Next i
End With
End Sub

isabelle

alain Lebayle a écrit :
Bonsoir,
Merci beaucoup, c'est parfait !
Très bonne soirée
Alain

"Daniel.C" eLYXD3$

Bonjour.

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
Le #20411001
Bonsoir,
Un grand merci Isabelle.
Alain

"isabelle" a écrit dans le message de news:

bonjour Alain,

un autre exemple pour un bachfile

Sub bachfile()
Set fs = Application.FileSearch
With fs
.LookIn = "C:Questions"
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
x = Application.Proper(Mid(.FoundFiles(i), 14, 9))
If x = "Questions" Then
'action
End If
Next i
End With
End Sub

isabelle

alain Lebayle a écrit :
Bonsoir,
Merci beaucoup, c'est parfait !
Très bonne soirée
Alain

"Daniel.C" eLYXD3$

Bonjour.

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













Publicité
Poster une réponse
Anonyme