Bonjour
J ai un classeur qui contient une centaine de feuilles. Dans chaque feuilles, il y a un tableau "Range("BO2:BQ5")" et je dois le deplacer en "Range("N8")" de sa propre feuille. Il y a 3 feuilles qui ne sont pas concernées les feuilles : "Maquette"; "liste" et "tableau de recup". le copiage est une copie spécial image avec liaison.

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
30
31
32
33
34
35
Sub CopierCollerImageLiaison()
'
' CopierCollerImageLiaison Macro
'
 
'
Application.ScreenUpdating = False
 
Dim MonClasseur As Workbook
Dim MaFeuille As Worksheets
 
For Each MonClasseur In Workbooks
 
        For Each MonSheet In MonClasseur.Sheets '
 
            If MonSheet.Name <> "Maquette" And MonSheet.Name <> "liste" And MonSheet.Name <> "Tableau de recup" Then
 
     With MaFeuille
        Range("BO2:BQ5").Select
        Application.CutCopyMode = False
        Selection.Copy
 
        Range("N8").Select
        'Coller image avec liaison
        ActiveSheet.Pictures.Paste(Link:=True).Select
 
        Range("N13").Select
    End With
 
            End If
 
        Next
 Next
 
End Sub
Merci