Enregistrement d'une macro selon valeur

Salut les amis,

voila pour l'enregistrement j'ai pas de problème, par contre je n'arrive pas à lui donner le chemin que je veux sans avoir d'erreur...

Dim chemin As String, fichier As String

chemin = ThisWorkbook.Path

ActiveWorkbook.SaveAs Filename:=[b2] & " " & Format(Date, "yy-mm-dd") & " " & [d4] & ".xls"

J'aimerais que le fichier s'enregistre dans C:\Users\helium\ownCloud\Tickets car là il s'enregistre dans MES DOCUMENTS, j'ai testé quelques truc mais sans espoir, je dois bloquer sur une bébête....

Bonjour,

Si tu nous mettais le fichier ce serait plus pratique pour savoir ce qui se trouve en B2 et D4

A+

Chris

Salut !

C'est juste des Valeurs

B2 un numéro de Facture

D4 le nom de la société

ma macro fonctionne je veux juste qu'elle empreinte un autre chemin, pourquoi as tu besoin de savoir ce qui ce trouve dans mes cellules ? c'est pas tellement mon problème initiale hein

Bonjour,

J'ai le même problème à peu de chose près...

https://forum.excel-pratique.com/post401616.html#p401616

J'ai une macro pour enregistrer en PDF, mais j'aimerai rajouter le chemin ou je veux que mes PDF s'enregistrent.

Peut-être qu'à plusieurs on sera plus forts.

Je continue mes recherches, et si je trouve la solution, je vous en fait part.

Ha oui n’hésites pas

Voici le lien de mon post

https://forum.excel-pratique.com/post401680.html#p401680

Et voici mon code

Sub DessinImprimerPDF()
    Fichier = Range("D2") & ".pdf"
    Dossier = "Volumes:SERVEUR-ADMIN:017 REFERENT:07 Gestion d'utilisateurs:01 Rapport annuel:2016:Dessin:"
    Chemin = Dossier & Fichier

    ActiveSheet.PageSetup.PrintArea = "$A$4:$U$50"
    choix = MsgBox("Imprimer tout ?", vbQuestion + vbYesNoCancel + vbDefaultButton2, "ImpressionDessin")
    If choix = vbCancel Then Exit Sub
    If choix = vbNo Then
        ' imprimer feuille
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
        ActiveSheet.PageSetup.PrintArea = ""
    Else
        ' imprimer tout
        Application.ScreenUpdating = False
        savSelection = [D2]
        For Each c In [DonnéesDessin[Clé]]
            [D2] = c.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
        Next c
        [D2] = savSelection
    End If
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

Je donne tous les renseignements au début sur le nom que je veux donner à mon fichier (Fichier), au chemin d'accès (Dossier)

et je crée une ligne "raccourci" (Chemin)

Plus loin dans mon code, je n'ai plus qu'à indiqué Filename:=Chemin

Je suis sur MAC, j'ai du remplacé les / par :

J'espère que cela peut t'aider.

Bonne fin de journée.