Macro nommer et enregistrer en PDF

Bonjour, j'ai besoin d'aide pour une macro.

Je souhaiterai enregistrer la feuille "Résultat" lorsqu'elle est active pour une analyse donnée dans un dossier cristallurie.

Par contre j'aimerai que cette feuille ce nomme selon le nom prénoms du patient et la date de l'analyse.

J'ai essayer de bidouiller un code mais cela ne fonctionne pas.

Sub Enreg_Pdf()

Dim LaDate As String, Noms As String, cristallurie As String

LaDate = Format(Date, "yyyymmdd")

Noms = Range("C13").Value

cristallurie = ThisWorkbook.Path & "I:\NEPHRO\cristalluries" ' à adapter

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Noms & LaDate & "_" & cristallurie & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

From:=1, To:=1, OpenAfterPublish:=False

End Sub

Si vous avez un début d'idée soit sur le code existant ou si il y a une autre solution.

Merci de votre aide

Bonjour Dukoko le forum

bon alors tu veux quoi?? tu parles d’enregistrer avec le nom en C13 et dans ta macro du module 3 tu devrais avoir le nom en N2 ???????

alors il faut faire quoi? commençons par être précis STP

ensuite si tu veux enregistrer avec un chemin comme tu as mis cela ne marchera jamais !!

cristallurie = ThisWorkbook.Path & "I:\NEPHRO\cristalluries

si tu as un dossier Cristallurie dans le dossier ou se trouve ton fichier actuel tu auras

ThisWorkbook.Path & "\Cristallurie\" etc etc

ou si c'est à la racine de" I"

cristallurie = "I:\NEPHRO\cristalluries\"

car avec ta ligne de commande tu ajoutes deux chemins différents avec peut-être même deux disques le "i" et celui de ton fichier!!! ????

autrement explique clairement et on va faire

a te relire

a+

Papou

Bonjour, désolé si je n'est pas été assez clair....

Sur ma feuille "résultat" j'ai insérer 3 boutons de commande, celui nommer "enregister en pdf" je souhaiterai y insérer une macro qui enregistre le feuille sous format pdf et qu'il nomme cette feuille avec le noms en C13, le prénoms en G13 et la date d'analyse en C16.

Ensuite cette feuille s'enregistre dans un sous fichier "cristallurie".

J'espère enfin avoir été clair....

Re Bonjour dukoko le forum

donc si j'arrive à comprendre ta dernière réponse, tu enregistres dans un sous dossier du dossier ou se trouve ton fichier ouvert sous dossier "Cristalluries" tes copies avec le nom date etcetc

a te relire

a+

papou

Bref je ne suis pas clair dans mes histoires de sous dossiers....

J'ai juste un dossier "cristallurie"ou je souhaiterai enregistrer un format PDF de chaque analyse.

Bonjour

Essaie ça et ton fichier devrait s'enregistrer dans le même dossier que celui du fichier de départ.

Bye !

Sub Enreg_Pdf()

    Dim LaDate As String, Noms As String, cristallurie As String
    LaDate = Format(Date, "yyyymmdd")
    Noms = Range("N2").Value
    cristallurie = ThisWorkbook.Path & "\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        cristalurie, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Bye !

re Dukoko le forum

bon si tu ne sais pas ce que c'est qu'un sous dossier là je ne peux rien pour toi

une certitude si c'est ce que j'ai écrit dans mon dernier post que tu veux voilà ce qu'il faut

a+

papou

Sub Enreg_Pdf()
    Dim fichier As String, chemin$
    fichier = Range("C13") & " " & Range("G13") & " " & Format(Range("C16"), "yyyymmdd")
    chemin = ThisWorkbook.Path & "\cristalluries\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    chemin & fichier & ".pdf", Quality:= _
                                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                    From:=1, To:=1, OpenAfterPublish:=False
End Sub

Bonjour à tous

Ma p'tite participation

Sub Enreg_Pdf()
Dim LaDate As String, Noms As String, cristallurie As String
LaDate = Format(Date, "yyyymmdd")
Noms = Range("C13").Value & Range("G13").Value
cristallurie = ThisWorkbook.Path & "\" & Noms & LaDate ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    cristallurie, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub

Re Dukoko le forum

voilà un dossier zippé tu le décompresses sur ton bureau et tu l'ouvres, tu trouveras ton fichier avec un sous dossier Cristalluries et si tu ouvres ton fichier et que tu cliques enregistrer en pdf tu auras une copie de ta feuille dans le dossier Cristalluries

a+

Papou

Super merci....

Cela fonctionne...

A plus

Dukoko