VBA : mettre en variable la méthode de collage

[6_bullet]

Bonjour,

J'ai un outil de reporting qui selon les feuilles contient des graphs ou des tableaux.

J'ai besoin de créer une fonction d'export automatiques de ces feuilles en remplacant les formules par des chiffres et les graphs par des images.

Dans l'ordre :

j'ouvre un nouveau classeur OK
je l'enregistres dans le dossier et avec le nom qui va bien. OK
je copie les feuilles concernées et je les colles dans le nouveau classeur OK (liste des feuilles contenue dans un tableau de paramétrage) - je précise que je copie les feuilles et non leur contenu.
je copie l'intégralité du contenu de la feuille dans le nouveau classeur OK
je colle la feuille selon la méthode (indiqué dans le tableau de paramétrage) qui varie si les feuilles contiennent des graphs ou des tableaux KO

En gros j'ai essayé de remplacer dans "Selection.PasteSpecial Paste:=xlPasteValues" "xlPasteValues" par une variable contenant cette méthode mais ca ne marche pas
J'ai essayé de remplacer Paste:=xlPasteValues par une variable, çà ne marche pas non plus.

Sans la variable, bien sûr, ca marche ;c)

 

[Pierrot93]

Re : VBA : mettre en variable la méthode de collage

Bonjour,

pas sûr d'avoir tout compris... "variabilise" plutôt la valeur associée a la constante...

Dim x As Integer
x = -4163
Range("T1").Copy
Range("H1").PasteSpecial x

'liste des constantes et valeurs associées
'xlPasteAll -4104
'xlPasteAllExceptBorders 7
'xlPasteColumnWidths 8
'xlPasteComments -4144
'xlPasteFormats -4122
'xlPasteFormulas -4123
'xlPasteFormulasAndNumberFormats 11
'xlPasteValidation 6
'xlPasteValues -4163
'xlPasteValuesAndNumberFormats 12

bonne journée
@+

 

[6_bullet]

Re : VBA : mettre en variable la méthode de collage

Nickel ca marche , merci !

Et vous aviez bien compris !!!