Discussion :

[tonyfrost]

Bonjour

Mon premier post sur ce forum
Je voudrais rapidement commencer par remercier les membres et staff du forums car j'avoue que le site m'a beaucoup aider précédemment pour terminer certaines macro^^

Bref, voici mon problème :

[Sur Excel 2010] J'ai deux classeur, disons "classeur 1" et "classeur 2"

Dans le premier, à la cellule B40 j'aimerai rentré un Mois de l'année (avec une liste déroulante de Janvier à Décembre).
Jusque ici pas de problème...

J'aimerai que ma macro, en fonction du mois rentré dans cette cellule, ouvre le "classeur 2" (çà je sait faire) et sélectionne la feuille (déjà existante) portant le nom correspondant au mois de l'année choisis dans la cellule B40 du "classeur 1" (c'est la que ça coince).

Voila c'est tout

Par contre (je sais pas si c'est possible) si il y à une méthode qui permet a la macro d'utiliser l'horloge interne du PC pour connaitre le mois en cour et ouvrir la feuille correspondante ce serait encore mieux.

J'espère ne pas trop en demander.

Merci d'avance

Bien à vous,

[rvtoulon]

salut,
sans code difficile de t'aider.
voici un code qui fonctionne, tu devras l'adapter à tes besoins:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim classeur1 As Workbook
Dim classeur2 As Workbook
 
 
Set classeur1 = ThisWorkbook
 
 
Workbooks.Open "c:\test\test.xlsx"
 
 
Set classeur2 = Workbooks("test.xlsx")
 
 
'je récupère le mois en cours
mois = Format(Date, "MMMM")
 
 
'active la feuille qui a pour nom le mois en cours
classeur2.Sheets(mois).Activate

[yaqqq]

1. avec liste deroulante (fait avec "data validation" - desole, je ne sais pas un nom en francais) en B40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub qqchose()
    Dim file As String
    Dim mois as String
 
    file = "book1.xlsm" ' nom d'autre classeur
 
    mois = Range("b40").Value       ' avec une liste deroulante OU avec object activeX Combobox associe a cette cellule
 
    Workbooks.Open (file)
    Workbooks(file).Worksheets(mois).Activate
End Sub

Pour ca, tu as besoin d'un button pour commencer cet macro.
Ou - si tu veux le faire automatiquement chaque fois apres changer une cellule b40:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
' ajoutez ca en VBE pour la feuille avec ta cellule B40
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("b40")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    qqchose
End Sub

C'est aussi possible avec un mois courant et le button par exemple. Pour ca, simplement essayez a B40
et le premier code (sub qqchose) + button

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
=TEXT(NOW(); "mmmm")
' ou en VBA
mois = Format(Date, "MMMM")

(desole je ne sais pas les noms de fonctions en francais)

[tonyfrost]

Merci beaucoup à vous deux d'avoir pris le temps de me répondre

Je suis impatient de pouvoir tester vos formules !
Je vous tiendrai informé du résultat dès que possible (demain ).

Bonne soirée

Edit : Votre méthode fonctionne parfaitement merci pour le coup de main