[RÉSOLU] VBA : sélection de la bonne feuille en fonction de la valeur d'une cellule

[dionys0s]

Bonjour le forum


j'aimerais avoir votre aide sur le problème suivant.

J'ai la feuille suivante (pièce jointe). Lorsque j'appuie sur un bouton, 4 fichiers s'ouvrent. Chacun de ses fichiers comporte 12 onglets (janvier, février, mars, ... , décembre). Je voudrais que les fichiers s'ouvrent directement sur l'onglet intitulé comme la cellule I8 de la feuille en pièce jointe. Quel est le code à insérer dans ma macro (dont voici le code) :

Sub Suite()

Application.ScreenUpdating = False

Application.ShowWindowsInTaskbar = False

    ChDir _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER"
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin HT HSG.xls"
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin HT SG.xls"
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin TTC HSG.xls"
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin TTC SG.xls"
    Windows("CA + Conduites de show + Royalties au 30-09-2010 (macro).xls"). _
        Activate

Application.ShowWindowsInTaskbar = True

Application.ScreenUpdating = True

End Sub

Est-ce seulement possible ?

Edit : je précise que la cellule I8 est toujours un mois de l'année écrit entièrement sans abréviation ni faute d'orthographe

D'avance merci pour votre aide

 

[Fred0o]

Re : VBA : sélection de la bonne feuille en fonction de la valeur d'une cellule

Bonjour dionysos,

Essaie ce code, ça devrait fonctionner.

Sub Suite()

    Application.ScreenUpdating = False

    Application.ShowWindowsInTaskbar = False
    Dim Mois
    Mois=[I8]
    ChDir _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER"
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin HT HSG.xls"
    Sheets(Mois).select
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin HT SG.xls"
    Sheets(Mois).select
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin TTC HSG.xls"
    Sheets(Mois).select
    Workbooks.Open Filename:= _
        "X:\Finance\CA - Droits d'auteurs - conduites de show\2010\CA + Conduites de show + Royalties\NE PAS TOUCHER\Alin TTC SG.xls"
    Sheets(Mois).select
    Windows("CA + Conduites de show + Royalties au 30-09-2010 (macro).xls"). _
        Activate

    Application.ShowWindowsInTaskbar = True

    Application.ScreenUpdating = True

End Sub

A+

 

[dionys0s]

Re : VBA : sélection de la bonne feuille en fonction de la valeur d'une cellule

Youpi ^^ Ça marche ! Merci beaucoup !