Microsoft 365 enregistrer une feuille excel en pdf

kamyolande

XLDnaute Nouveau
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
 

Pièces jointes

  • testsauvegarde.xlsm
    42.8 KB · Affichages: 14
Solution
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

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • testsauvegarde.xlsm
    41.1 KB · Affichages: 5

Staple1600

XLDnaute Barbatruc
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]
 

kamyolande

XLDnaute Nouveau
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
 

kamyolande

XLDnaute Nouveau
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

Avec :
VB:
NomFichier = Chemin & [C2] & " - Création du fichier le " & LaDate & " " & LHeure & ".pdf"
Grandement merci. ça marche!
 

kamyolande

XLDnaute Nouveau
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.
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal