Activer feuille excel contenant terme fixe + terme aleatoire

[VBA_DEAD]

Bonjour

J`ai une macro qui transfere les donnees de factures excel que je recois vers un file de recuperation.

Le file excel que je recois (factures ss excel) change de nom a chaque fois mais un terme existe tjs : FACTURE XXX XLS – nom Client

Alors avec le code ci dessous j`active une feuille FACTURE mais comment puis je activer une feuille qui contient le terme FACTURE??

Windows("FACTURE.xls").Activate


donc les files s`appellent
FACTURES BOI XLS- AAA
FACTURE TRI XLS - BBB

Merci pour votre aide

A+

VBA_DEAD

 

[Robert]

Re : Activer feuille excel contenant terme fixe + terme aleatoire

Bonjour VBA_DEAD, bonjour le forum,

Si j'ai bien compris, un code un peu tiré par les cheveux. Il doit y avoir beaucoup plus simple mais je te propose ça :

Sub Macro1()
Dim Cl As Workbook 'déclare la variable Cl
For Each Cl In Workbooks 'boucles sur tous les classeurs ouverts
    'condition : si les 7 premières lettre du nom du classeur sont "FACTURE"
    If Left(Cl.Name, 7) = UCase("FACTURE") Then
        Cl.Activate 'active le classeur
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next Cl 'prochain classeur de la boucle
End Sub

 

[VBA_DEAD]

Re : Activer feuille excel contenant terme fixe + terme aleatoire

Bonsoir Robert

Je te remercie pour ton aide.

Je vais tester ton code. ca devrait marcher

si ca marche pas, je joindrai tout le code demain
Bonne soiree

VBA_DEAD

 

[VBA_DEAD]

Re : Activer feuille excel contenant terme fixe + terme aleatoire

Bonsoir Robert et le forum

juste un petit coucou pour te remercier.

ca marche nickel ton code. merci et bonne soiree a tous

VBA_DEAD