Microsoft 365 Save dans un dossier & Titre = Cellule et date

[Syb59]

Bonjour tous le monde,

Novice en VBA, je cherche à créer une macro qui enregistre mon fichier Excel (Compte rendu d'examen) dans un dossier spécifique

"C:\Users\SYB\Documents\CRECHO\"

et avec comme titre le nom du patient situé en E9 et la date de l'examen.

J'ai (presque) tout essayé, les codes recopiés, bidouillés avec mes propres références mais soit le fichier PDF ne s'ouvre pas (erreur de paramétrage du chemin je pense) soit il s'enregistre sur le bureau. Je commence à désespérer de trouver toute seule un jour ! J’ai mis en pièce jointe mon fichier et ma macro est Macro1. Merci d’avance ..
Bonjour tous le monde,

Novice en VBA, je cherche à créer une macro qui enregistre mon fichier Excel (Compte rendu d'examen) dans un dossier spécifique

"C:\Users\SYB\Documents\CRECHO\"

et avec comme titre le nom du patient situé en E9 et la date de l'examen.

J'ai (presque) tout essayé, les codes recopiés, bidouillés avec mes propres références mais soit le fichier PDF ne s'ouvre pas (erreur de paramétrage du chemin je pense) soit il s'enregistre sur le bureau. Je commence à désespérer de trouver toute seule un jour ! J’ai mis en pièce jointe mon fichier et ma macro est Macro1. Merci d’avance ..

 

[Bernard_XLD]

Bonjour Syb59, le forum

Macro reprise

Cordialement, @+

Sub Macro1()
Dim LaDate$, Chemin$, NomFichier$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = ThisWorkbook.Path & "\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name
' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
End Sub

 

[Syb59]

Bonjour Syb59, le forum

Macro reprise

Cordialement, @+

Sub Macro1()
Dim LaDate$, Chemin$, NomFichier$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = ThisWorkbook.Path & "\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name
' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
End Sub

Merci Yeahou pour le retour rapide !
Du coup je dois saisir le chemin
"C:\Users\SYB\Documents\CRECHO\"
au niveau Chemin = ThisWorkbook.Path & "\"
=> Chemin = ThisWorkbook.Path & ""C:\Users\SYB\Documents\CRECHO\"
et pour le titre avec la cellule E9
NomFichier = Split(ThisWorkbook.Name, ".")(0)
=> NomFichier = Split(ThisWorkbook.Name, "E9")(0) ?

Désolée je suis vraiment (plus que) novice ...

 

[Bernard_XLD]

Du coup je dois saisir le chemin
"C:\Users\SYB\Documents\CRECHO\"
au niveau Chemin = ThisWorkbook.Path & "\"
=> Chemin = ThisWorkbook.Path & ""C:\Users\SYB\Documents\CRECHO\"
et pour le titre avec la cellule E9
NomFichier = Split(ThisWorkbook.Name, ".")(0)
=> NomFichier = Split(ThisWorkbook.Name, "E9")(0) ?

Re,

voila votre code avec ces modifications intégrées.

Bien cordialement, @+

Sub Macro1()
Dim LaDate$, Chemin$, NomFichier$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = Environ("HOMEPATH") & "\Documents\CRECHO\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name & " " & [E9]
' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
End Sub

 

[Syb59]

Merci infiniment Yeahou ! ça fonctionne parfaitement et au moins j'aurai appris comment faire pour une prochaine fois ! merci