Save des valeurs et formats d'une feuille

[natbru]

Bonjour le forum,

Je voudrais faire une sauvegarde d'une feuille de mon classeur d'origine sur un nouveau classeur mais sans recopier les formules.
Autrement dit, je voudrais sauvegarder les valeurs et les formats.

Pour le moment le code que j'utilise est :

Sheets('RAPPRO').Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close savechanges:=False

Pour le moment, il y a des liaisons entre ma sauvegarde et mon classeur d'origine.

De plus, je voudrais que dans la sauvegarde les macros soit supprimés (les boutons aussi).

Je suis une tres grande débutante en vba et je ne trouve pas le code nécessaire.

Quelqu'un peut il m'aider ?

Merci beaucoup. [file name=RAPPRO.zip size=9699]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RAPPRO.zip[/file]

 

[JYLL]

Bonsoir,

J'ai une ou deux petits modifs sur ton classeur, fait un essai et j'espère que je t'aurai fait avancer.

Amicalement.

Jean-Yves [file name=RAPPRO_20051217195109.zip size=10514]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RAPPRO_20051217195109.zip[/file]

 

[Blunet]

Voila deux routines qui peuvent t'aider, appelle les dans ton code à l'endroit où tu veux: Par Exple

Private Sub Enregistrer ()
Call CopierFormat
Call CopieValeurs
End Sub


Public Sub CopieFormat()
'copie uniquement les formats

    Windows('RAPPRO.xls').Activate
    Range('A1:X150').Select
    Selection.Copy
    Windows('Classeur2.xls').Activate
    
    Range('A1').Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Public Sub CopieValeurs()
'copie uniquement les valeurs
    
    Windows('RAPPRO.xls').Activate
    Range('A1:X150').Select
    Selection.Copy
    Windows('Classeur2.xls').Activate
    
    Range('A1').Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range('A2').Select
End Sub

Attention , L 'odre d'appel des procédures est important, car le format prédéfinit
récupère les valeurs correspondantes. J'essaye de t'envoyer le Zip. Voilà déja 1 code.

[file name=Classeur2_20051217205421.zip size=10287]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051217205421.zip[/file]

 

[natbru]

Merci de vos réponse, j'ai pu voir le code pour copier uniquement les formats et les valeurs.

j'essai maintenant d'améliorer en faisant en sorte que le fichier de sauvegarde soit mis à jour chaque mois (en ajoutant une feuille dans le fichier).

Merci encore.