Bonjour,

je cherche tout simplement à aller sur un fichier fermé pour copier une plage de données et ensuite la coller sur le fichier sur lequel je suis.

pour l'instant la portion de code sur laquelle je travaille pour arriver à cette réalisation est celle-ci

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
        With Worksheets(NomFeuille)
 
            'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
            plage_JSem.Copy .Range("A1")
 
             Select Case JSem(Cells(1, 6))
 
            Case Is = "lundi"
                 Chemin = "C:\Users\\Desktop\semaine.xlsm"    ' boucler sur toutes les feuilles du fichier
 
                ThisWorkbook.Names.Add "plage_a_copier", _
                                       RefersTo:="='" & Chemin & "Feuil1'!$A$1:$F$10"
 
                With Sheets("Feuil1")
                    .[A1:F10] = "=plage_a_copier"
                    .[A1:F10].Copy
                End With
 
                .Range("A2").PasteSpecial xlPasteValues
 
 
         Case Is = "dimanche"
                          MsgBox ("c'est dimanche")
            End Select
 
        End With
j'ai essayé d'adapter des bouts de ce que j'ai pu trouver sur le net mais en vain...

Merci infiniment