Copier/coller données et non formules

[DestyNov@]

Yo tout le monde =)
c'est la 1è fois que je poste sur ce forum que je viens de découvrir. j'ai fait une petite recherche mais je n'ai pas trouvé comment copier en VBA les données de plusieurs cellules puis de le coller dans un autre classeur. bon vu les stars qu'il y a ici, ça ne devrait pas poser de problèmes ;-)
Bon journée à tous!!!

-=DestyNov@=- EnJoY It =))))

 

[Munchkin]

Bonjour DestyNov

ce que je fais c'est

Workbooks(Classeur1).Sheets(Feuil).Range("A1:A10") = Workbooks(Classeur2).Sheets(Feuil).Range("A1:A10") ).Value

Ca cipie seulement les valeurs

Munchkin

 

[DestyNov@]

Re =)
merci munchkin, mais le pb c'est que ça marche... lol! c'est de ma faute je n'avais pas préciser que je voulais aussi le format des cellules. j'ai vu que l'on pouvait faire avec la méthode PasteSpecial passer des arguments comme xlPasteValues ou xlPasteFormats.
mais le pb c'est qu'on ne pt pas mettre les deux en même tmps... ou du moins je n'ai pas trouvé comment faire. en c++ il existe des opérateurs logiques pour "additionner" les paramètres, peut-être qu'en VB aussi... je ne suis pas un spécialiste du vb... ++

-=DestyNov@=- EnJoY It =))))

 

[DestyNov@]

Bon j'ai trouvé une soluce, ce n'est ptêt pas la meilleure, mais elle a le mérite de fonctionner : (pour les modos : ce serait sympa d'avoir des balises pour insérer du code ;-)

Workbooks(wb).Worksheets(i).Range("A4:T60").Copy
wb_new.ActiveSheet.Range("A1:T57").Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats

voili voilou @ bientot =)

-=DestyNov@=- EnJoY It =))))

 

[Yeahou]

Bonjour Destinow, Muchkin, le forum

Normalement, cela ne fonctionne pas sous 97 mais tu peux essayer
wb_new.ActiveSheet.Range("A1:T57").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Cordialement, A+

 

[DestyNov@]

Yo yeahou =)
j'avais testé ça en effet, mais le délire c'est que ça copie le format de la cellule (texte, nombre, date,...) mais pas la couleur du texte, du fond, les cellules fusionnées,...
y'a pas moyen alors de faire un xlPasteValues "et" xlPasteFormats en même tps?

++ Desty

 

[Yeahou]

Re bpnjour à tous

y a pas moyen à ma connaissance, par contre tu peux accélérer ton code en ne faisant pas de sélection

Workbooks(wb).Worksheets(i).Range("A4:T60").Copy
With wb_new.ActiveSheet.Range("A1:T57")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With

A+