Adaptation collage spécial valeur dans macro

[Sang1]

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]

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:

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

Modeste

 

[Sylvain]

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