Chemin et nom de stockage
valac06
Messages postés
11
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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\nom 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
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\nom 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
A voir également:
- Chemin et nom de stockage
- Espace de stockage gmail plein - Guide
- Stockage google - Guide
- Stockage du téléphone - Accueil - Guide Android
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Discord aucun chemin de connexion - Forum Réseaux sociaux
1 réponse
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:
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
