Classeur et feuilleRésolu

Question

Bonjour,

J'essaye de faire une macro qui fait ceci :
1. Ouvre un fichier .xls dont on ne connais que le début du nom (EX: "Fichier_1234")
2. Copie une des feuilles de ce fichier dont on connais que le début (EX: "Donnee_1234")
3. Ferme le fichier "Fichier_1234"
4. Recommence avec un autre fichier et une feuille de cet autre fichier.

Voilà mon code :

Sub Test()
Dim Fich As String
Dim Donn As String

Fich = Dir("C:/DOSSIER_XLS/FICHIER" & "*" & ".xls") 'là ça marche
Workbooks.Open Filename:=Fich 'là ça marche

Donn = Sheets("Donnee" & "*") 'là ça marche PLUS DU TOUT

Sheets(Donn).Activate

End sub

Voilà mon problème..


Merci d'avance
Kikoo

cs_Jack · Accepted Answer

Salut
Enumération des feuilles  disponibles dans un classeur : deux techniques :
    Dim maFeuille As Object
    For Each maFeuille In ActiveWorkbook.Sheets
        Debug.Print maFeuille.Name
    Next    
    Dim r As Long
    For r = 1 To ActiveWorkbook.Sheets.Count
        Debug.Print ActiveWorkbook.Sheets(r).Name
    Next r
A toi de jongler avec le nom que tu recherches et le .Name avec un Like par exemple.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Classeur et feuille

1 réponse

Votre réponse

Discussions similaires