Microsoft 365 enregistrer une feuille excel en pdf

[kamyolande]

Bonne année les collègue.

J'ai besoin de votre aide
Je souhaite que lorsqu'on clique sur le bouton ' enregistrer',
les données de la feuille 'informations' du classeur excel s'enregistre dans le dossier test C:\test avec l'heure et la date
le nom du fichier est contenue dans la cellule C2
j'ai utilisé le code joint, mais mon enregistrement n'est pas totale.
Pouvez vous m'aider SVP?
Merci d'avance

 

[sylvanu]

Bonsoir kamyolande,
Un essai en PJ qui semble marcher avec :

Private Sub CommandButton1_Click()
Dim LHeure$, LeDate$, NomFichier$
LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
Chemin = "C:\Test\"
NomFichier = Chemin & "Création du fichier le " & LaDate & " " & LHeure & ".pdf"
ChDir Chemin
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        NomFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub

 

[Staple1600]

Bonsoir le fil, kamyolande, sylvanu

[Juste en passant]
Pour le fun

Sub Pour_Le_Fun_ou_pas()
LHeure = Format(Time, "HMMSS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
NomFichier_A = "Création du fichier le " & LaDate & " " & LHeure & ".pdf"
MsgBox NomFichier_A
NomFichier_B = Format(Now, """Création du fichier le ""dd.mm.yyyy hmmss"".pdf""")
MsgBox NomFichier_B
End Sub

C'est une syntaxe qui fait que A=B mais pour autant faut-il utiliser cette syntaxe raccourcie?
Je pose la question et je vais préparer ma tisane
[/Juste en passant]

 

[job75]

Bonsoir kamyolande, sylvanu, JM,

Pour que les fichiers soient classés chronologiquement dans le dossier :

NomFichier = Chemin & "Création du fichier le " & Format(Now, "yyyy.mm.dd hhmmss")

Il n'est pas nécessaire de préciser l'extension.

A+

 

[kamyolande]

Bonsoir kamyolande,
Un essai en PJ qui semble marcher avec :

Private Sub CommandButton1_Click()
Dim LHeure$, LeDate$, NomFichier$
LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
Chemin = "C:\Test\"
NomFichier = Chemin & "Création du fichier le " & LaDate & " " & LHeure & ".pdf"
ChDir Chemin
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        NomFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub

Merci. Ça fonctionne. Mais je souhaiterais que le nom du fichier contenue dans la cellule c2 de la feuille apparaisse dans le nom du fichier lors de la sauvegarde. Donc on aura c\test\range(c2). Value &création du fichier le.....
Peux tu m' aider stp?
Merci

 

[sylvanu]

Avec :

NomFichier = Chemin & [C2] & " - Création du fichier le " & LaDate & " " & LHeure & ".pdf"

 

[kamyolande]

Bonsoir kamyolande,
Un essai en PJ qui semble marcher avec :

Private Sub CommandButton1_Click()
Dim LHeure$, LeDate$, NomFichier$
LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
Chemin = "C:\Test\"
NomFichier = Chemin & "Création du fichier le " & LaDate & " " & LHeure & ".pdf"
ChDir Chemin
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        NomFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub

Avec :

NomFichier = Chemin & [C2] & " - Création du fichier le " & LaDate & " " & LHeure & ".pdf"

Grandement merci. ça marche!

 

[kamyolande]

Grandement merci. ça marche!

Bonjour,
STP dis moi, avec le télétravail, j'ai mis le chemin pour sauvegarder mon fichier sur mon pc à distance.
mais, je ne vois pas le fichier après avoir exécuter ma macro. Et il n'y a pas de message d'erreur. Y a t il un temps d'attente avant de le voir ou il y a une façon particulière d'entré le chemin quand la sauvegarde n'est pas en local.

merci.