Bouton sauvegarder

[Ilino]

Bonjour Forum
j'ai trouvé ce code et le l'ai adapté selon mon besoin mais malheureusement ca fonctionne pas, j'ai un message d'erreur
"Erreur d'execution '-2147024773'
Document non enregistré"
le code :

Sub ENREGISTRER()
    'Macro par Dan
    Dim extension As String
    Dim chemin As String, nomfichier As String, monfichier_pdf
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xls"
    chemin = "C:\Documents and Settings\Admin\Mes documents\Ma musique\"
    nomfichier = ActiveSheet.Range("A6") & extension
    nomfichier_pdf = ActiveSheet.Range("A6").Text
    With ActiveWorkbook
        .ActiveSheet.DrawingObjects(1).Delete
        [COLOR="#FFFF00"].ExportAsFixedFormat xlTypePDF, chemin & nomfichier_pdf[/COLOR]
        .SaveAs Filename:=chemin & nomfichier
        '.Close
    End With
    
    End Sub

 

[Matheop]

Re : Bouton sauvegarder

Salut Ilino,

Sub enregistrer()
    Dim extension As String
    Dim chemin As String, nomfichier As String, monfichier_pdf
    Dim style As Integer
    Application.ScreenUpdating = False
    'ThisWorkbook.ActiveSheet.Copy  -> à quoi te sert cette ligne?
    extension = ".xls"
    chemin = "C:\Documents and Settings\Admin\Mes documents\Ma musique\"
    nomfichier = ActiveSheet.Range("A6") & extension
    nomfichier_pdf = ActiveSheet.Range("A6").Text
    Application.DisplayAlerts = False
    With ActiveWorkbook
        '.ActiveSheet.DrawingObjects(1).Delete -> à quoi te sert cette ligne?
        .SaveAs Filename:=chemin & nomfichier
        .Close
    End With
    Application.DisplayAlerts = True
End Sub

La macro récupère la valeur de la cellule A6 et définit cette valeur comme étant le nom que doit porter le classeur. L'extension de celui-ci est .xls, on désactive temporairement les messages d'alertes d'Excel, on enregistre le classeur et on réactive les messages d'alertes. J'ai testé, je n'ai aucune erreur.

Cordialement,
Mat'