VBA enregistrer sous

Bonjour à tous,

Je souhaite une macro qui permette d'enregistrer un fichier.

Sur cette macro j'ai un problème :

- Quand je fais "enregistrer" dans l'explorateur de fichier il me met une erreur de macro sur excel par rapport à la ligne en gras

Ensuite j'ai essayé une autre macro, celle-ci marche mais ouvre un autre fichier "faux" quand je fais annuler donc je ne l'ai pas gardée.

De plus, quand je voulais exécuter une autre macro présente sur ce même fichier qui a été sauvegardé auparavant, mais cela me met une erreur car la macro est liée au fichier original. Comment puis-je régler ce problème ?

Sub Enregistrer_sous()

Dim Fichier As String

Fichier = "Nouveau client - " & Range("B1")

ThisWorkbook.Sheets("Nouveau client").Copy

f = Application.GetSaveAsFilename(Fichier, Filefilter:="Feuille de calcul Microsoft Excel prenant en charge les macros (*.xlsm), *.xlsm")

If f = False Then

ActiveWindow.Close False

Else

ActiveWorkbook.SaveAs Filename:=f

End If

End Sub

bonjour,

essaie ceci

Sub Enregistrer_sous()

    Dim Fichier As String

    Fichier = "Nouveau client - " & Range("B1")

    ThisWorkbook.Sheets("Nouveau client").Copy

    f = Application.GetSaveAsFilename(Fichier, Filefilter:="Feuille de calcul Microsoft Excel prenant en charge les macros (*.xlsm), *.xlsm")

    If f = False Then

        ActiveWindow.Close False

    Else

        ActiveWorkbook.SaveAs f, 52

    End If

End Sub

ça marche nickel.

Par contre, sur le fichier enregistré, il y a que la feuille sur laquelle le bouton de la macro est présent, hors je voudrais que toutes les feuilles du fichier soient enregistrées.

C'est possible ?

Peut-être faudrait il juste l'enregistrer sous classeur excel prenant en charge les macros ?

re,

si tu enlèves cette instruction, cela devrait être ok.

ThisWorkbook.Sheets("Nouveau client").Copy

Parfait, merci beaucoup pour ton aide !!