Enregistrer une seul feuille sans les formules

bonjour

voilà j'ai un souci que je n'arrive pas régler, j'ai un classeur avec plusieurs feuille et ja'une macro pour enregistrer seulement une feuille de ce classeur tout ce passe bien sauf que dans la feuille sauvegardé il y a des#REFF\\ a la place des données qui devrait etre enregistré.

dans l'original il y a des formules genre indirect(......

merci pour votre aide

Bonjour cemoibob,

Une macro à adapter qui copie colle juste les valeurs ( sans les formules ).

Sub Macro1()

    With ActiveSheet
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=False
    End With

End Sub

Florian53 a écrit :

Bonjour cemoibob,

Une macro à adapter qui copie colle juste les valeurs ( sans les formules ).

Sub Macro1()

    With ActiveSheet
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=False
    End With

End Sub

Merci beaucoup florian pour ton aide

Vraiment merci

Bonjour,

le même en plus court :

Sub copie()
    Sheets("Feuil1").UsedRange.Value = Sheets("Feuil1").UsedRange.Value
End Sub

eric

bonjour

merci pour votre aide ça fonctionne bien.

j'ai une autre question si possible j'ai le code ci dessous qui sauvegarde en pdf une feuille en fonction d'une liste deroulante (celle22, 8)

je voudrais qu'il soit sauvegarder en xlsm

merci pour votre aide.

code:

If Range("i22") = "Facture" Then

With ActiveWorkbook

strPath = "C:\Users\Utilisateur\Desktop\clients\Factures\" & Worksheets("tarif 2019").Range("G13").Value

strSheetName = .Worksheets("tarif 2019").Cells(22, 8).Value

On Error Resume Next

Set ws = .Worksheets(strSheetName)

On Error GoTo 0

End With

If Not ws Is Nothing Then

strFilename = strPath & Range("G5") & ".pdf"

ws.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=strFilename, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End If