Macro d'enregistrement erreur chemin

Bonjour à tous,

J'utilise une macro activable via un bouton qui enregistre automatiquement une feuille de mon classeur dans un dossier en.xls

Pas de soucis pour la macro d'enregistrement, cependant, le fichier s'enregistre automatiquement dans mes documents au lieu du chemin définit, je vous link le code ci-dessous:

    Sub print_older()
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xls" ' enregistre en format excel
    chemin = "C:\Users\MON NOM\Desktop\Da Ca\Excel\Storage\" ' désigne l'endroit où doit être enregistré le fichier
    nomfichier = Format(Date, "DDMMYYYY") & "_Older_Da Ca" & extension ' enregistre le fichier en lui donnant la date du jour + older Da ca en nom
    With ActiveWorkbook
        .ActiveSheet.DrawingObjects(1).Delete ' dans le fichier à enregistrer supprime le bouton de la macro
        .SaveAs Filename:=nomfichier
        .Close ' Ferme le fichier
    End With
    End Sub

Mon chemin ne me semble pas éronné pourtant rien à faire ça enregistre automatiquement dans "mes documents", auriez-vous une idée?

Bonne journée

Bonjour,

je pense que l'erreur vient de la ligne "saveas".

Remplace ".SaveAs Filename:=nomfichier" par :

.SaveAs Filename:=chemin & nomfichier

Confirme moi si cela marche bien,

RemBabar

Tu ne spécifies pas du tout ici le chemin que tu veux utiliser !

.SaveAs Filename:=nomfichier

A quoi sert également

ThisWorkbook.ActiveSheet.Copy

?

Bonjour,

ça fonctionne, merci pour votre aide. Je croyais que ce bout de code ne servait qu'à indiquer le nom du fichier et que la variable chemin suffisait en la citant au dessus.

Bonne journée