Copie d'une feuille

[Hugues]

Bonjour Le Forum,

J'ai un probléme de code.
J'ai un classeur dans lequel via un bouton je souhaiterais faire une copie d'une feuille appelée "Tableau de bord". Je souhaiterais en plus garder la mise en forme mais effacer les formules donc uniquement garder les valeurs.

Private Sub export_Click()
Sheets("tableau_de_bord").Copy
Activesheets.Columns("B:I").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("tableau_de_bord").Select
nom = Range("E13").Value
Sheets("tableau_de_bord").Name = Range("E13").Value
Range("b1").Select
End Sub

Pouvez vous m'aider ?

Merci par avance,

Hugues

 

[Moulinois]

Re : Copie d'une feuille

Bonjour,

Quelle est la feuille source et quelle est la feuille destiantion ?
Sont-elles dans le même classeur ?

@+

 

[Hugues]

Re : Copie d'une feuille

Bonjour,

La feuille source s'appelle "Tableau de bord" et la feuille de destination se situe dans un nouveau classeur ; cela correspond à faire un "déplacer ou copier une feuille" avec aprés l'effacement des formules de calculs et garder uniquement les valeurs.

Merci pour votre aide,