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

C'est "assez simple" en fait
Excel degage ton Copy apres une autre action. Que ca soit en code, ou en utilsiation "normale".
 
D'ailleurs tu aurais du voir que ta selection n'avait pas les petits pointillés clignotants comme lors d'un copier.
 
Il faut que tu copies et colles quasiment a la suite.
 

• Tu créés ton nouveau fichier.
• Tu atteinds ton premier fichier.
• Tu copies ta selection.
• Tu atteinds ton nouveau fichier.
• Tu colles.
• Enjoy

Merci beaucoup,
J'avais encore une erreur persistante mais en supprimant le  Range("A1" ).Select avant le paste special ça fonctionne.
 
Maintenant j'ai un autre souci, je voudrais qu'il réalise un collage spécial comme quand je fais coller les valeurs et formats des nombres.
Dans la macro actuelle il ne fait que les valeurs, j'arrive aussi à faire seulement le format. Mais les 2 je ne trouve pas ?
 
Merci d'avance pour votre aide.

Il faut faire les deux a la suite non ?
 
Un coup tu colles les valeurs, puis les formats.
 

 
Ou alors j'ai pas compris la question...