Sélectionner une feuille avec un nom variable

Fermé
pepsister
Messages postés
21
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
25 avril 2019
- 27 févr. 2014 à 12:11
pepsister
Messages postés
21
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
25 avril 2019
- 27 févr. 2014 à 15:09
Bonjour,

Voila je cherche a importer un fichier. J'appelle donc mon fichier, je l'ouvre et je veux sélectionner la feuille à importer.
Mon problème c'est que le nom de la feuille contient la date du jour. Donc le nom change tout le temps.
Idem pour le fichier, mais le fichier je suis arrivée à le gérer avec un étoile par contre pour la feuille ca ne marche pas.
Mon fichier et ma feuille s'appelle toto_20142702
Voici mon code:

Set wbdest = ActiveWorkbook
ActiveSheet.Cells.Clear
FileToOpen = Application _
.GetOpenFilename("toto (toto*), toto*")

If FileToOpen = False Then
Close #1
Exit Sub
End If

wb = Right$(FileToOpen, Len(FileToOpen) - InStr(FileToOpen, "toto*") + 1)

'ouvre le fichier actuel à importer
Set wbsource = Workbooks.Open(wb)
'sélectionne la feuille de données à importer
Set ws = wbsource.Sheets("toto*")

Le fichier à importer aucun souci, il traduit le "*", par contre pour sélectionner la feuille la ligne suivante bloque:
Set ws = wbsource.Sheets("toto*")

Comment faire?

Merci de votre aide,

2 réponses

Bonjour,

La feuille que tu as à sélectionner est toujours en première position ou ça peux changer ?

Si elle est toujours en première position tu peux utiliser sheets(1).select

Quelque soit le nom iil sélectionnera la première feuille (la plus à gauche)
0
pepsister
Messages postés
21
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
25 avril 2019

27 févr. 2014 à 15:09
super, merci ca marche.
0