[VBA-E] Problème pour macro collage spécial

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA-E] Problème pour macro collage spécial

0takon

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

Publicité

dje69r

Arme de distraction massive

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

Code :

Public Sub CommandButton1_Click()
sortie = "Sortie" & ".xls"
'sauvegarde du nom du classeur et de la feuille active
originefeuille = ActiveSheet.Name
origineclasseur = ActiveWorkbook.Name
'creation de ton doc "sortie"
Workbooks.Add.SaveAs sortie
Worksheets.Add.Name = "Consommation"
'retour sur le fichier d'origine pour copier
Workbooks(origineclasseur).Activate
Sheets(originefeuille).Select
Range("A1:B7" ).Select
Selection.Copy
'collage dans le classeur créé
Workbooks(sortie).Activate
Sheets("Consommation" ).Select
Range("A1" ).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks(sortie).Save
Workbooks(sortie).Close
End Sub

Message édité par dje69r le 02-11-2009 à 14:31:52

---------------
Plus tu pédales moins vite, moins tu avances plus vite

0takon

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.

dje69r

Arme de distraction massive

Il faut faire les deux a la suite non ?

Un coup tu colles les valeurs, puis les formats.

Code :

'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

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

Message édité par dje69r le 04-11-2009 à 12:45:37

---------------
Plus tu pédales moins vite, moins tu avances plus vite

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA-E] Problème pour macro collage spécial

Sujets relatifs
Problème actionPerformed(ActionEvent e)	Problème avec répétitiion du On error Goto xx
probleme liens dreamweaver mozilla	[RESOLU] Probleme couleur PC et MAC en HTML!! HELP PLZ :)
Problème avec un textarea	Problème d'utilisation de REPLACE
[VBA] Passer d'une TextBox à une autre avec TAB	Problème avec boucle while qui ne s'arrêt pas
[PHP] Include. Problème de mise en place.	Problème pour déclencher un input type=file
Plus de sujets relatifs à : [VBA-E] Problème pour macro collage spécial

Page générée en 0.464 secondes