Bonjour,

Je souhaite écrire une macro simple qui effectue un collage spécial (valeur et format) d'un classeur à un autre.

J'ai écrit ceci, mais cela ne fonctionne que dans un classeur (sur une même feuille ou d'une feuille à une autre par exemple) :

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
Sub collage_special()
'
' collage_special Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
 
    On Error Resume Next
 
    If TypeName(Selection) = "Range" Then
 
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
 
    End If
 
End Sub
Avez-vous une idée ?

Merci d'avance !