Discussion :

[youssy]

Bonjour à tous,

je suis novice en VBA, et je suis en mission de création d'un nouveau outil de reporting dans mon stage.
Dans un classeur, j'ai une feuille "Data" et une feuille "Dashbord". Dans un autre classeur nommé "Historique" j'ai des feuilles nommées par mois (exp : 01-15, 02-15...) contenant les données. Sur la feuille "Dashbord", j'ai une cellule de période c'est la P4. Ce que j'aimerai avoir c'est à chaque fois qu'on insère le mois (exp: 02-15), la macro aille copier la feuille "02-15" du classeur "Historique" et vient la coller dans la feuille "Data" qui alimente mon tableau de bord.

Voilà, je serai vraiment reconnaissante si quelqu'un pourrait m'aider. Merci par avance

[OBO29]

Bonjour,

Voici une base :

1) Dans le code de ta page "Dashbord"

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 4) And (Target.Column = 16) Then
        If Len(Target.Value) = 5 Then consulte_histo (Target.Value)
    End If
End Sub

2) Dans un module; et remplace "C:\............\Classeur2.xlsx"

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
21
22
23
24
25
26
27
28
29
 
Public Function Consulte_Histo(periode As String)
 
            Dim wkSource As Workbook ' Classeur source
 
            ThisWorkbook.Sheets("Data").Select
            Cells.Select
            Selection.ClearContents
            Range("A1").Select
 
            Set wkSource = Application.Workbooks.Open("C:\............\Classeur2.xlsx")
 
            Sheets(periode).Select
            Cells.Select
            Selection.Copy
 
            ThisWorkbook.Activate
            Sheets("Data").Select
            Cells.Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
 
            wkSource.Close False 'Ferme sans modif
 
            ThisWorkbook.Activate
            Sheets("Data").Select
            Range("A1").Select
 
End Function

Pas très joli mais ça marche.

Bonne continuation.

[youssy]

Bonjour OBO 29

Je te remercie beaucoup pour ta réponse. J'ai inséré ton code le premier en tant que "sub" et le deuxième en tant que "function" mais cela ne marche pas.
quand je saisis dans la cellule "P4" un mois ( 03-15 par exp) rien ne se produit.
Je ne sais pas exactement ou réside le problème.

[Nico Chg]

Bonjour,

1) Dans le code de ta page "Dashbord"

Il faut insérer le code dans la feuille "Dashboard", et pas dans un module.

Il faut insérer le second code en tant que Public Function dans un module.

Le premier code gère l'évenement "Change" de la feuille Dashboard. Grosso modo, si la cellule P4 change, le code s'exécute. Si tu ne place pas ce code dans la feuille "Dashboard", il ne va rien se passer.

[youssy]

donc le premier doit être inseré en tant que macro dans la feuille "Dashbord"?

[Nico Chg]

Exactement.

Plus précisément, tu dois le copier tel qu'OBO29 l'a écrit, dans la feuille "Dashboard"

[youssy]

MERCI infiniment à vous. ça marche très bien

[Nico Chg]

Parfait !

Passe donc le sujet en "résolu", et n'hésite pas à remercier OBO29 qui t'a apporté la solution par un petit pouce vert !

[youssy]

bonjour,

Je suis de retour. En fait, afin d'éviter les erreurs je veux faire une zone de liste déroulante (contrôle de formulaire) pour choisir la période. Comment on peut récupérer le contenu de cette liste (janvier15, février15....) pour aller consulter l'historique (le même module).

Merci