copie feuille sans formule et visual

[hibernatuce]

bonjour a tous

voila je cherche a copier une feuille sans les formule et sans visual, pourriez vous m aidez

Sheets('SAISIE').Select
Sheets('SAISIE').Copy Before:=Sheets('saisie')
ActiveSheet.Name = z
Sheets.Item('SAISIE').Activate

avec ca sa marche bien ,mai il me copie les formule et visual de ma feuille

merci

 

[Jacques87]

Bonjour

Pourquoi tu n'utilises pas tout simplement le collage spécial - uniquement les valeurs, que tu trouves dans le menu

Bon courage

 

[hibernatuce]

bonjour jaques87
oui je pourrai mai j ai fai un bouton pour archiver en automatique

 

[Jacques87]

Re

Alors voici le bout de code qui correspond à ce que tu demandes
A toi de l'adapter

ActiveSheet.Cells.Copy
Sheets('Feuil2').Range('A1').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Range('A1').Select

Message édité par: Jacques87, à: 26/02/2006 17:03

 

[hibernatuce]

merci
je vai essaye de l adapte

 

[hibernatuce]

merci
je vai essaye de l adapte