Adaptation collage spécial valeur dans macro

Sang1 · 12 Juin 2009

Bonjour,

Je n'arrive pas a adapter le code suivant :

Sheets("Datas").Select
Range("J7:J32").Select
Selection.Copy

Workbooks.Open "X:\SITE\FACIL\ST\EXPLOITATION\Rapports\Rapport facilities\2009\Avril\April Facilities Report.process..xls"
Workbooks("April Facilities Report.process..xls").Activate

Windows("April Facilities Report.process..xls").Activate
Sheets("Chemical data").Select
Range("HU21").Select
ActiveSheet.Paste

En faite je souhaite changer le "paste" en "collage spécial de la valeur" mais lorsque je le fait la macro bug. Si quelqu'un peut m aider ce serait sympa.

Merci d'avance

Sang1

Modeste · 12 Juin 2009

Re : Adaptation collage spécial valeur dans macro

Salut Sang1, le forum,

En utilisant l'enregistreur de macro, ta dernière ligne:

ActiveSheet.Paste

peut être remplacée par:

Code:

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

Modeste

Sylvain · 12 Juin 2009

Re : Adaptation collage spécial valeur dans macro

Bonjour,

une idée à la place de tout le code en rouge si les valeurs sont dans le classeur où il y a le programme :

Workbooks.Open "X:\SITE\FACIL\ST\EXPLOITATION\Rapports\Rappor t facilities\2009\Avril\April Facilities Report.process..xls"

Sheets("Chemical data").Range("HU21:hu46").value=thisworkbook.sheets ("datas").range("j7:j32").value

Adaptation collage spécial valeur dans macro

Sang1

XLDnaute Junior

Modeste

XLDnaute Barbatruc

Sylvain

XLDnaute Occasionnel

Discussions similaires