[RESOLU] Macro - Ouvrir une feuille dont le nom varie

[guigol]

Bonjour,

Je commence surement à fatiguer mais je ne vois pas comment résoudre mon problème.

Lors de l’exécution d'une macro, j'ai besoin d'ouvrir un fichier et de me positionner sur une feuille bien précise.
Hors, le nom de cette feuille varie, tout comme le nombre de feuille dans le fichier.

Ma seule certitude, c'est que cette feuille commence par "RP_Station" (parfois d'ailleurs, elle s'appelle uniquement "RP_Station"

Question subsidiaire :
Actuellement, je sélectionne ce fichier à la main en milieu de macro via workbooks.open(). Car ce fichier n'a pas de nom constant.
Seule certitude, là encore, il commence par "devis".
y a t il un moyen d'automatiser l'ouverture d'un fichier excel dont le nom varie ?

Par avance, merci pour votre aide.

 

[pierrejean]

Re : Macro - Ouvrir une feuille dont le nom varie

Bonjour guigol (Attention !! pas de n superflu)

Supposant le fichier actif

Non testé !!

for each sh in ActiveWorkbook.sheets
  if left(sh.name,10)= "RP_Station" then LeNom=sh.name
next

 

[Robert]

Re : Macro - Ouvrir une feuille dont le nom varie

Bonjour Guigol, Pierrejean, bonjour le forum,

Pour la question subsidiaire, est-ce que le chemin d'accès est fixe ? Si oui quel est-il ?
Existe-t-il, dans le dossier, plusieurs fichiers pouvant commencer par devis ?

 

[guigol]

Re : Macro - Ouvrir une feuille dont le nom varie

Oui, le chemin d'accès est fixe. (enregistré en début de macro par : Chemin_Fichier = ActiveWorkBook.Path & "\" )

Actuellement, il n'y a qu'un seul fichier commençant par devis.

Evidemment, j'imagine que s'il y en a plusieurs, ça risque de poser problème. Donc, je me débrouillerai pour qu'il n'y en ai qu'un.

 

[tototiti2008]

Re : Macro - Ouvrir une feuille dont le nom varie

Bonjour guigol, Bonjour Pierre, Bonjour Robert, 🙂

Oui, le chemin d'accès est fixe. (enregistré en début de macro par : Chemin_Fichier = ActiveWorkBook.Path & "\" )

Actuellement, il n'y a qu'un seul fichier commençant par devis.

Dans ce cas le nom de ton fichier devrait être donné par

Dim NomFic as string
NomFic = Dir(Chemin_Fichier & "devis*.xls*")
if NomFic = "" then Msgbox "Fichier devis introuvable"

 

[pierrejean]

Re : Macro - Ouvrir une feuille dont le nom varie

Re

A tester

Chemin_Fichier = ActiveWorkbook.Path & "\"
MonFichier = Dir(Chemin_Fichier & "*.xls")
Do While MonFichier <> ""
 If InStr(MonFichier, "devis") <> 0 Then
   LeFichier = MonFichier
 End If
 MonFichier = Dir
Loop

Arf: A la bourre moi !!

Salut Tototiti

NB: si plusieurs fichiers contenant devis c'est le dernier qui sera ainsi defini

 

[Robert]

Re : Macro - Ouvrir une feuille dont le nom varie

Bonsoir le fil, bonsoir le forum,

Toujours pour la question subsidiaire, une proposition avec une UserForm au cas où il pourrait y avoir plusieus fichiers commençant par Devis. La ListBox1 affiche la liste, un clic sur un des fichiers de la liste et le fichier s'ouvre...
Il faut enregistrer la pièce jointe dans le dossier adéquat pour que la ListBox affiche le ou les fichiers...
Le fichier :

 

[guigol]

Re : Macro - Ouvrir une feuille dont le nom varie

Merci beaucoup à tous.
j'ai utilisé les méthodes de pierrejean. cela fonctionne parfaitement.