Bouton sauvegarder

Ilino

XLDnaute Barbatruc
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 :
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

XLDnaute Occasionnel
Re : Bouton sauvegarder

Salut Ilino,

Code:
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'
 

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 643
Membres
105 773
dernier inscrit
godelvie-divine.bihonda-b