Microsoft 365 Test existence fichier dynamique avec une boucle

[Alghorn]

Bonjour à tous !

Mon piètre niveau m'empêche de réaliser une petite opération qui me ferai gagner beaucoup de temps.
Je m'explique
Un fichier est mis à jour de manière aléatoire par notre système info. Il est toujours nommé de la même manière et il n'y a que l'entête qui change et qui correspond à la date du jour (format "yymmdd"). En gros cela donne "yymmdd_nomfichier.xlsb".

Je cherche à créer une boucle qui me permet de tester un nom de fichier avec la date du jour, voir s'il existe et l'ouvrir. Sinon il prend la date moins un jour et recommence le test, etc.

Quelqu'un aurai une idée ?

Merci d'avance à vous tous qui vous penchez sur mon problème !

 

[shinozak]

Salut,

Tu peux remplacer le inputBox par le chemin directement et le nomfichier.xlsb par le reel nom du fichier

Sub test()
Dim NbFile As Integer
'manipule le système de fichiers de Windows
Set Fso = CreateObject("Scripting.FileSystemObject")

'chemin du dossier contenant les fichiers
Dossier = InputBox("Veuillez saisir le chemin du dossier des fichiers." & vbCrLf & vbCrLf)

'Lit les fichiers du dossier
Set objFiles = Fso.GetFolder(Dossier)

'Boucle sur les fichiers
For Each Item In objFiles.Files
                If Item.Name Like "*_nomfichier.xlsb" Then
                         Workbooks.Open Item: Exit Sub
                End If
Next
End Sub

 

[Alghorn]

Salut,

Tu peux remplacer le inputBox par le chemin directement et le nomfichier.xlsb par le reel nom du fichier

Sub test()
Dim NbFile As Integer
'manipule le système de fichiers de Windows
Set Fso = CreateObject("Scripting.FileSystemObject")

'chemin du dossier contenant les fichiers
Dossier = InputBox("Veuillez saisir le chemin du dossier des fichiers." & vbCrLf & vbCrLf)

'Lit les fichiers du dossier
Set objFiles = Fso.GetFolder(Dossier)

'Boucle sur les fichiers
For Each Item In objFiles.Files
                If Item.Name Like "*_nomfichier.xlsb" Then
                         Workbooks.Open Item: Exit Sub
                End If
Next
End Sub

Merci !
Bon par contre j'ai oublié de préciser une chose importante... le fichier se trouve sur un Sharepoint Du coup je n'ai pas testé mais j'imagine que cela ne va pas fonctionner ?