Bonjour
 
Sous excel en VBA
 
Par exemple
J ai un classeur qui se nomme Janvier
et a la case K35 il a la valeur 10
 
J ai un classeur qui se nomme Fevrier
et a la case K36 il a la valeur 15
 
Et un classeur Total ou je voudrais recuperer ses 2 valeurs 10 et 15 comment je fais  
 
J ai trouvé on peut faire comme ca =Janvier!K35 par exemple
 
Mais Je voudrais le faire sous forme de Macro  
en effet je dois faire des boucles des sums etc des tests sur les valeurs recuperer
Merci
 
 

tu ouvre les classeur tu passe de fenetre en fenetre en faisant toutes les operation que tu as a faire et quand c'est fini tu fermer tous les classeur dont tu n'a plus besoin.
 
j'ai fait du genre une fois
 
'// importation des nouvelles données
    MyPath = Dir(chem + What + ".xls" )
     
        If MyPath = "" Then
            UserForm2.Label1.Caption = "fichier introuvable"
            UserForm2.Show
        End If
     
        If MyPath <> "" Then
            Application.Workbooks.Open chem + What
            Worksheets("liste des articles demandes" ).Activate
            Range("B10:G500" ).Select
            Selection.Copy
            Windows("ruptures.xls" ).Activate
            Worksheets("Feuil4" ).Activate
            Range("A1" ).PasteSpecial
            Windows(What & ".xls" ).Activate
            Worksheets("liste des articles demandes" ).Activate
            Range("I6" ).Select
            Selection.Copy
            Windows("ruptures.xls" ).Activate
            Worksheets("Feuil4" ).Activate
            Range("I6" ).PasteSpecial
            Application.DisplayAlerts = False
            Windows(What + ".xls" ).Activate
            Workbooks(What + ".xls" ).Close SaveChanges:=False
 
            If Feuil4.Range("A2" ).Value = "" Then
                Windows("ruptures.xls" ).Activate
                z = 2
                For i = 3 To 501
                    While Feuil4.Range("a" & i).Value = "" And i <> 501
                    i = i + 1
                Wend
                If Feuil4.Range("a" & i) <> "" Then
                While Feuil4.Range("a" & z) <> "" And z <> 501
                        z = z + 1
                Wend
                Feuil4.Range("A" & z & ":F" & z).Value = Feuil4.Range("A" & i & ":F" & i).Value
                Feuil4.Range("A" & i & ":F" & i).Clear
                End If
                Next i
            End If
'fin d'importation //
 
la il n'y a qu'un classeur et donc deux fenetre mais toi tu aura un classeur et une fentre de plus...
 
amuse toi bien @+

autre chose vite fait j'ai petit conseille:
 
" VIVE LES POINTS D'ARRET" sinon tu pigera presque rien au prog... @+

A ARCHIVER