Problème de sauvegarde des feuilles sous VBA

[Max]

Bonjour,

Je suis débutant en VBA et en cherchant sur ce site, j'ai eu découvrir un code me permettant de sauvegarder des feuilles de calculs. Mais lorsque je sauvegarde les feuilles, les formules suivent.
Je voudrai pouvoir sauvegarder les feuilles sans les formules...
Je voudrai que seulement les valeurs inscrites dans les cellules de la feuilles soient sauvegardées.
Merci d'avance...

Cordialement

 

[Robert]

Re : Problème de sauvegarde des feuilles sous VBA

Bonjour Max, bonjour le forum,

Peut-être en modifiant le code comme ça :

Sub sauvecnps()
Dim ws As Worksheet, wb As Workbook
Dim sClient$, sFacture$
Set ws = Sheets("CNPS")
With ws
    sClient = .Range("O1")
    sFacture = .Range("O2")
    Set wb = Workbooks.Open("[URL="file://\\Serveur\sauvegardes\GENE"]\\Serveur\sauvegardes\GENE[/URL] COMPTA 05\DECLARATIONS\Recap Déclaration 2011\Recap CNPS 2011.xls") 'à adapter
    .Copy after:=wb.Sheets(wb.Sheets.Count)
    ActiveSheet.Name = sClient & " " & sFacture
    ActiveSheet.Cells.Copy
    ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
    Application.CutCopyMode = False
    ActiveSheet.Range("A1").Select
    wb.Close True
End With
End Sub

Les lignes ajoutées sont :

    ActiveSheet.Cells.Copy
    ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
    Application.CutCopyMode = False
    ActiveSheet.Range("A1").Select

 

[flyonets44]

Re : Problème de sauvegarde des feuilles sous VBA

Bonjour
Il suffit que tu réalises un copier -collage spécial des valeurs des feuilles de ton classeur pour ensuite le sauver sous un nom différent
de cette manière ce fichier ne conservera que les valeurs.
Bon courage
ci-dessous une macro à tester
Sub copieSpecial()
Dim Rg as range
Application.ScreenUpdating = False
Set Rg =ActiveSheet.SpecialCells(xlCellTypeFormulas).
Application.CommandBars.FindControl(ID:=19).Execute
set rg =nothing
End Sub

FLYONETS

 

[Dranreb]

Re : Problème de sauvegarde des feuilles sous VBA

Bounjour
Sugestion: Ajoutez ceci derrière le .Copy

ActiveSheet.Cells.Value = .Cells.Value

À+

 

[Max]

Re : Problème de sauvegarde des feuilles sous VBA

Bonjour,

Merci Robert !
Merci flyonets44 !
Merci Dranred !
C'est exactement ce que je cherchais...
Merci encore...

Cordialement