Excel en pdf répertoire auto
Bonjour,
Je travail sur un tableau excel de suivi et j'aimerai créer une macro me permettant de gérer un pdf a parti de la feuille activé de mon tableau excel en pdf. Mon problème étant que je ne parviens pas à faire en sorte que mon pdf s'enregistre automatiquement dans le dossier où se trouve le fichier excel.
ce fichier est amener a être utilisé sur plusieurs ordinateur différent et placer a différent répertoire différent et je suis obliger d'écrire moi même le chemin répertoire d'enregistrement pour ordinateur manuellement ce qui est problématique.
je suis novice encore en Excel et actuellement j'utilise ce code qui me permet de nommer le pdf automatiquement ( suivi groupage ) avec la date et l'heure d'enregistrement.
ce qui me donne : Suivi groupage le 01.01.2021 14h23m
quelqu'un pourrais m'aider svp je galère beaucoup même en lisant pas mal d'article sur ce problème.
merci beaucoup
Mon code :
Sub PDF_SAVE_GS()
Dim LHeure As String, LeDate As String
LHeure = Format(Time, "H" & "." & "M")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\User\thomas\suivi\ Suivi Groupage le " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=5, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub
Bonjour, le principe pour que ce soit utilisable sur plusieurs PC :
utiliser l'adresse du fichier Excel lui même.
On suppose que vous enregistrez votre fichier Excel dans : C:\User\thomas\suivi
Dim chemin as string
chemin=ThisWorkbook.Path & "\"
'le chemin dans cet exemple va donc être égal à : "C:\User\thomas\suivi\"
'il ne reste plus qu'à y ajouter le nom du pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "Suivi Groupage le " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=5, OpenAfterPublish:=False....Si vous enregistrez votre fichier excel dans un autre répertoire l'adresse (chemin) sera donc changée
Merci beaucoup d'avoir pris le temps de me renseigner et de m'aider.
Le code m'indique une erreur quand je tape le code
C'est bon j'ai trouvé l'erreur c'était ma faute étourderie de ma part
encore merci pour tout vraiment
bonne journée à vous
pourquoi "Type:=......" est à la ligne du dessous ? regarder le modèle dans la macro du dessous.
s'il ny a pas de caractère : " _ " alors celà doit être écrit sur la même ligne.
Oops trop tard vous avez trouvez tout seul lol mais c'est tant mieux c'est bon pour l'apprentissage.
bonsoir
A présent je cherche à faire a insérer en plus dans mon code de nommage le contenu d'une cellule en plus avant suivi groupage le ...
cela est'il possible ?
Oui tout est possible. aprés il faut savoir si ce que vous voulez ajouter est un nom de sous-répertoire ou ajouter le contenu de votre cellule
dans le nom même de votre fichier ?
'Info ajout du contenu d'une cellule exemple A1 au nom de fichier pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "Suivi Groupage le " & range("A1").value & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=5, OpenAfterPublish:=False....' ou Ajouter un sous répertoire avant le nom de fichier.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & Range("A1").value & "\" & "Suivi Groupage le " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=5, OpenAfterPublish:=False....Merci pour tous
Grave a vous je me suis aperçu que ma valeur manquante était " .value "
geniale et encore merci pour tout