Etoile à la place de date

Bonjour,

J'ai un fichier excel qui se nomme sous ce format : "20201024 GAMME.xlsm"

Sous VBA, j'ai besoin de passer sur différents fichiers et cela fonctionne quand je fais : Windows("20201024 GAMME.xlsm").Activate

Toutefois, la date peut parfois changer et j'aimerais appliquer cette nomenclature, qui ne fonctionne pas : Windows("* GAMME.xlsm").Activate

Avez-vous une solution ?

Merci par avance.

Bonjour,

tu peux employer like sur le nom du fichier

if fichier like "* GAMME.xlsm" then Windows(fichier).Activate

Merci. Toutefois, ça ne fonctionne pas en l'état comme je voudrais.

J'ai donc préalablement défini le chemin du fichier :

Dim fichier As String
fichier = Dir("Y:\GESTION\GAMME\* GAMME.xlsm")

Et ensuite ajouté l'activation :

Windows(fichier).Activate

Si besoin, le "If ... Like" fonctionne dans ce cas :

If fichier Like ("*GAMME.xlsm") Then
Windows(fichier).Activate

En revanche, s'il y a plusieurs fichiers avec une date différente dans le dossier, ça ne fonctionne pas...

Si tu veux une aide plus précise, poste un fichier témoin. Voire un dossier avec quelques fichiers vides.