Ouverture en VBA d'un fichier dont le nom est incompler
2 réponses
Laurent
Re Bonjour
Décidemment c'est aps ma journée aujourd'hui, vivement ce soir.
Je cherche à ouvrir un fichier mais je n'ai que le début (qui est unique).
Par exemple mon fichier s'appelle :
Mon Fichier 20051222 9:00:01.xls
Je connais la date (date du jour) mais l'heure peut varier, je passe par une
variable nom fichier qui concatène la date du jour et mon nom puis j'ai
essayé :
Workbooks.Open Filename:=NomFichier & "*".... mais ça ne focntionne pas.
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
anonymousA
Bonjour ,
pas testé
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO" With Application.FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then Workbooks.Open .FoundFiles(i) Exit For Next End With
Bonjour ,
pas testé
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO"
With Application.FileSearch
.NewSearch
.LookIn = Directory1
.Filename = "*.xls"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then
Workbooks.Open .FoundFiles(i)
Exit For
Next
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO" With Application.FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then Workbooks.Open .FoundFiles(i) Exit For Next End With
Laurent
Encore Merci. Je pense que ça doit marcher, mais en fait ton idée m'a fait pensé à quelque chose de plus simple la fonction "dir" :
.... et ca marche ... Encore merci et joyeux Noel à tous, finis les macros pour moi cette semaine
Cdlmt Laurent
Bonjour ,
pas testé
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO" With Application.FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then Workbooks.Open .FoundFiles(i) Exit For Next End With
Encore Merci.
Je pense que ça doit marcher, mais en fait ton idée m'a fait pensé à quelque
chose de plus simple la fonction "dir" :
.... et ca marche ...
Encore merci et joyeux Noel à tous, finis les macros pour moi cette semaine
Cdlmt
Laurent
Bonjour ,
pas testé
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO"
With Application.FileSearch
.NewSearch
.LookIn = Directory1
.Filename = "*.xls"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then
Workbooks.Open .FoundFiles(i)
Exit For
Next
End With
.... et ca marche ... Encore merci et joyeux Noel à tous, finis les macros pour moi cette semaine
Cdlmt Laurent
Bonjour ,
pas testé
Set fso = CreateObject("Scripting.FileSystemObject")
Directory1 = "C:TOTO" With Application.FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count If Left(fso.GetBaseName(.FoundFiles(i)), 8) = "20051222" Then Workbooks.Open .FoundFiles(i) Exit For Next End With