Microsoft 365 enregistrer une feuille excel en pdf

kamyolande · 18 Janvier 2021

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

kamyolande · 19 Janvier 2021

sylvanu à dit:

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

VB:

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

sylvanu à dit:
Avec :

VB:

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

sylvanu · 18 Janvier 2021

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

VB:

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 · 18 Janvier 2021

Bonsoir le fil, kamyolande, sylvanu

[Juste en passant]
Pour le fun

VB:

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 · 18 Janvier 2021

Bonsoir kamyolande, sylvanu, JM,

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

VB:

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 · 19 Janvier 2021

sylvanu à dit:

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

VB:

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 · 19 Janvier 2021

Avec :

VB:

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

kamyolande · 19 Janvier 2021

sylvanu à dit:

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

VB:

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

sylvanu à dit:
Avec :

VB:

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

Grandement merci. ça marche!

kamyolande · 4 Février 2021

kamyolande à dit:
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.

Microsoft 365 enregistrer une feuille excel en pdf

kamyolande

XLDnaute Nouveau

Pièces jointes

kamyolande

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

kamyolande

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

kamyolande

XLDnaute Nouveau

kamyolande

XLDnaute Nouveau

Discussions similaires