Bonjour à tous,
J'ai un souci avec la fonction xlPasteValues qui me renvoie systématiquement une erreur 1004...
J'en suis même venu à faire des .Select etc mais rien n'y fait et là je sèche complétement! Pourtant avec la fonction .Paste toute simple il n'y a aucun souci. La macro doit simplement coller ce qui a été copié plus tôt par l'utilisateur (pas forcément des données provenant d'Excel).
Voici le bout de code:
Ca ne doit pas être bien compliqué mais je n'y vois plus clair du tout!
D'avance merci à celui qui saura m'aider.
J'ai un souci avec la fonction xlPasteValues qui me renvoie systématiquement une erreur 1004...
J'en suis même venu à faire des .Select etc mais rien n'y fait et là je sèche complétement! Pourtant avec la fonction .Paste toute simple il n'y a aucun souci. La macro doit simplement coller ce qui a été copié plus tôt par l'utilisateur (pas forcément des données provenant d'Excel).
Voici le bout de code:
Sub Paste()
Dim scopy As Variant
Set scopy = Sheets(13)
If MsgBox("Mon Message", vbOKCancel) = vbOK Then
scopy.Visible = True
scopy.Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues
scopy.Visible = xlVeryHidden
Else
Exit Sub
End If
End Sub
Dim scopy As Variant
Set scopy = Sheets(13)
If MsgBox("Mon Message", vbOKCancel) = vbOK Then
scopy.Visible = True
scopy.Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues
scopy.Visible = xlVeryHidden
Else
Exit Sub
End If
End Sub
Ca ne doit pas être bien compliqué mais je n'y vois plus clair du tout!
D'avance merci à celui qui saura m'aider.