Ouverture d'un fichier Excel au nom incomplet

[tim.vinch]

Bonjour,

J'ai un repertoire avec différent fichiers Excel que j'exploite les uns après les autres. Chaque mois, ces fichiers changent.

Exemple : pour l'instant j'ai TOTO.xls et ma macro fonctionne.
J'aimerai pouvoir mettre TOTO_0309.xls puis le mois suivant TOTO_0409.xls, et que ma macro ne voit pas la différence. J'ai essayé avec TOTO_*.xls, mais ça ne trouve pas le fichier.

Pourriez-vous m'aider ?

Merci d'avance

 

[Cousinhub]

Re : Ouverture d'un fichier Excel au nom incomplet

Bonjour,

en supposant les fichiers dans le même répertoire que le fichier actif...

essaie avec ce code :

Sub ee()
ChDir ActiveWorkbook.Path
debut:
mois = InputBox("Veuillez entrer le mois désiré sous format numérique", "Ouverture du fichier du mois de?")
If Not IsNumeric(mois) Then
    MsgBox "Entrer un mois en numérique"
    GoTo debut
End If
lenom = "Toto_" & Format(mois, "00") & "09.xls"
Workbooks.Open Filename:=lenom
End Sub

 

[tim.vinch]

Re : Ouverture d'un fichier Excel au nom incomplet

Merci de répondre aussi rapidement.

En fait la question du mois importe peu, c'est simplement un repère. En effet, le dossiers contenant mes bases sera vidé chaque mois et "rerempli" avec des bases d'un autre mois.

Au lieu de supprimer TOTO pour remettre une base d'un autre mois appelée TOTO aussi, je voudrais supprimer TOTO_0209 et mettre TOTO_0309.

C'est histoire de ne pas laisser deux foix la même base.

 

[Catrice]

Re : Ouverture d'un fichier Excel au nom incomplet

Bonjour,

ci-joint un exemple à tester dans le fichier Classeur2.xls
copie le repertoire Test sur ta machine.

Edit : l'énoncé du probleme n'est pas tout à fait identique entre ton premier Post et le dernier ...
Mais tu dois pouvoir adapter...

 

[tim.vinch]

Re : Ouverture d'un fichier Excel au nom incomplet

C'est vrai que l'énoncé de mon problème n'est pas clair...

En gros j'ai :

Workbooks.Open Filename:=ChemBases & "\TOTO.xls" pour l'instant,

et je voudrais pouvoir ouvrir un fichier dont le nom est "TOTO_0309" sans qu'il considère "_0309", un fichier qui commence par TOTO si vous voulez.

J'ai essayé ça mais ça ne marche pas.
Workbooks.Open Filename:=ChemBases & "\TOTO_*" & ".xls"

 

[Catrice]

Re : Ouverture d'un fichier Excel au nom incomplet

Re,

As tu testé mon exemple ?
Il ouvre le fichier dont la date est la plus récente.

Si tu veux ouvrir le fichier qui contient "TOTO" c'est encore plus facile mais ça ouvrira le premier qu'il trouvera ...

 

[tim.vinch]

Re : Ouverture d'un fichier Excel au nom incomplet

Merci de tes réponses Catrice,

J'ai regardé ton exemple.

En fait je veux simplement ouvrir le fichier commençant par "TOTO_".

Peu importe ce qu'il y a derrière.

Ce fichier "TOTO_LSGKLDKG" sera le seul commençant par "TOTO_" dans le répertoire contenant les bases.

 

[Catrice]

Re : Ouverture d'un fichier Excel au nom incomplet

Re,

Ce code ouvre le premier fichier commençant par TOTO_

Sub Test()
Chemin = ThisWorkbook.Path
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Chemin)
Set fc = f.Files
For Each f1 In fc
If Left(f1.Name, 5) = "TOTO_" Then Workbooks.Open Filename:=Chemin & "\" & f1.Name
Next
End Sub

 

[tim.vinch]

Re : Ouverture d'un fichier Excel au nom incomplet

Merci beaucoup Catrice, c'est exactement ce que je cherchais

Désolé pour le manque de clarté de l'énoncé de mon problème.

Bonsoir à tous.