Chemin et nom de stockage

Question

Bonjour, 
Me revoilà avec une nouvelle énigme,
Suite à l'enregistrement de ma feuille excel vers un répertoire spécifique grâce à une macro, j'aimerai que le chemin soit noté automatiquement dans une cellule d'un tableur afin de pouvoir récupérer ce fichier ultérieurement, par une formule qui reprendrez les infos suivantes 
C:\Users\xxx\xxx
om du fichier
Le hic, lors de l'enregistrement de ce fichier la macro a pris 3 infos :
info1 = Sheets("DEVIS").Range("G8")
info2 = Sheets("DEVIS").Range("F11")
info3 = Sheets("DEVIS").Range("A13")
Nom = info1 & "-" & info2 & "-" & info3 & "-" & ".xls"

Ces infos je les retrouves dans cette nouvelle feuille mais dans 3 cellules 
j'aimerai donc trouver une formule qui me noterai le chemin d'enregistrement complet

Je fouine de mon coté et j'attends des idées

Merci d'avance à tous

cs_Le Pivert · Answer

Bonjour

https://forums.commentcamarche.net/forum/affich-33698225-macro-pour-enregistrer-une-feuille-excel-d-un-classeur#p33702452

en reprenant le code donné sur ce post, je te propose de faire des liens hypertextes dans la colonne A en même temps que tu enregistres ton PDF ,

 a adapter bien entendu:

Option Explicit
Private Sub CommandButton1_Click()
Dim chemin, nom As String
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row 'excel 2003
'DernLigne = Range("A1048576").End(xlUp).Row 'excel 2007
chemin = "C:\Users\Le Pivert\Documents\" 'adapter le chemin finir par \
nom = "monpdf" 'adapter le nom
'enregistrement PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        'création lien hypertexte dans colonne A
      Range("A" & DernLigne + 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
       chemin & nom & ".pdf", TextToDisplay:=nom
End Sub

Chemin et nom de stockage

1 réponse

Discussions similaires

Newsletters