Ouvrir un classeur dont on ne connait pas la fin du nom
4 réponses
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
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
Daniel.C
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
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
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
Bonsoir, Merci beaucoup, c'est parfait ! Très bonne soirée Alain
"Daniel.C" a écrit dans le message de news: 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
Bonsoir,
Merci beaucoup, c'est parfait !
Très bonne soirée
Alain
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eLYXD3$UKHA.1792@TK2MSFTNGP04.phx.gbl...
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
Bonsoir, Merci beaucoup, c'est parfait ! Très bonne soirée Alain
"Daniel.C" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eLYXD3$UKHA.1792@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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
Bonsoir,
Un grand merci Isabelle.
Alain
"isabelle" <i@v> a écrit dans le message de news:
eivDnRAVKHA.1792@TK2MSFTNGP04.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eLYXD3$UKHA.1792@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de news: 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