Bonjour,
J'ai un problème avec une macro qui effectue un collage spécial (copie des valeurs sans les formules) vers un nouveau classeur après un clic sur un bouton puis enregistrement du nouveau classeur.
Voici le code utilisé :
Public Sub CommandButton1_Click()
sortie = "Sortie" & ".xlsx"
ActiveSheet.Select
Range("A1:B7" ).Select
Selection.Copy
Workbooks.Add.SaveAs sortie
Worksheets.Add.Name = "Consommation"
Workbooks(sortie).Activate
Sheets("Consommation" ).Select
'Jusqu'ici tout va bien le classeur avec une feuille consommation est bien créé.
'J'ai une erreur ensuite, une alertbox comportant seulement le texte "400" !
Range("A1" ).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks(sortie).Save
Workbooks(sortie).Close
End Sub
Merci d'avance pour vos réponses