Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylus SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Quittance) en Pdf plage (A1:K40) prénommé en format date aujourd'hui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistrement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros, mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylus SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Quittance) en Pdf plage (A1:K40) prénommé en format date aujourd'hui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistrement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros, mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylus SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Quittance) en Pdf plage (A1:K40) prénommé en format date aujourd'hui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistrement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros, mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :
> Bonjour à tous
>
>
> J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
>
> Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
>
>
> J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :
> Bonjour à tous
>
>
> J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
>
> Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
>
>
> J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Bonjour,
Le 03/07/2020 à 14:13, Syleg a écrit :Bonjour à tous
J'ai l'imprimante Adobe PDF et par défaut EPSON6FF26F (Epson Stylu s SX535WD)
Est-ce qu'il serait possible avec une macro d'enregistrer ma feuille (Q uittance) en Pdf plage (A1:K40) prénommé en format date aujourd'h ui format (yyyy mm dd) avec fenêtre pour donner son chemin d'enregistr ement.
J'ai fait des recherches sur internet, j'ai bien trouvé des macros , mais y'a certaine ligne qui ne fonctionne pas ! la procédure bloque
Si tu nous donnais ce que tu as essayé et ou cela bloque.
Le 03/07/20 à 13:51, Syleg a écrit :Ou bien celle-ci bloque à la septième ligne
.ExportAsFixedFormat...
Sub Export_PDF()
Dim fichier As String
Date_F = Format(Date, "yyyy mm dd_")
'adaptez le nom de la feuille
With Worksheets("Quittance")
fichier = "" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:= xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:lse, OpenAfterPubli sh:lse
End With
End Sub
Bonjour,
Cette procédure fonctionne, je l'ai testé :
Qu'est-ce qu'il y a dans la cellule B7 de la feuille "Quittance".
Attention, un certain nombre de caractères est non accepté dans le nom
d'un fichier comme : / : ? * " | > < Si un de ces symboles est
présent dans la cellule B7 > source de problèmes!
Dans la procédure n'oublie de spécifier ta plage de cellules à imprimer...
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Fichier = "" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
Le 03/07/20 à 13:51, Syleg a écrit :
> Ou bien celle-ci bloque à la septième ligne
> .ExportAsFixedFormat...
>
> Sub Export_PDF()
> Dim fichier As String
> Date_F = Format(Date, "yyyy mm dd_")
> 'adaptez le nom de la feuille
> With Worksheets("Quittance")
> fichier = "" & Date_F & .Range("B7") & ".pdf"
> Dossier = "C:UsersVincentDocumentsCommande DNA"
> Chemin = Dossier & fichier
> .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:= xlQualityStandard, _
> IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPubli sh:=False
> End With
> End Sub
Bonjour,
Cette procédure fonctionne, je l'ai testé :
Qu'est-ce qu'il y a dans la cellule B7 de la feuille "Quittance".
Attention, un certain nombre de caractères est non accepté dans le nom
d'un fichier comme : / : ? * " | > < Si un de ces symboles est
présent dans la cellule B7 > source de problèmes!
Dans la procédure n'oublie de spécifier ta plage de cellules à imprimer...
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Fichier = "" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
'-------------------------------------------------
Le 03/07/20 à 13:51, Syleg a écrit :Ou bien celle-ci bloque à la septième ligne
.ExportAsFixedFormat...
Sub Export_PDF()
Dim fichier As String
Date_F = Format(Date, "yyyy mm dd_")
'adaptez le nom de la feuille
With Worksheets("Quittance")
fichier = "" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:= xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:lse, OpenAfterPubli sh:lse
End With
End Sub
Bonjour,
Cette procédure fonctionne, je l'ai testé :
Qu'est-ce qu'il y a dans la cellule B7 de la feuille "Quittance".
Attention, un certain nombre de caractères est non accepté dans le nom
d'un fichier comme : / : ? * " | > < Si un de ces symboles est
présent dans la cellule B7 > source de problèmes!
Dans la procédure n'oublie de spécifier ta plage de cellules à imprimer...
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Fichier = "" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
J'ai déplacé cette ligne de code et j'aurais dû écrir e :
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
Désolé. Correction apportée à la procédure suiva nte.
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
MichD
J'ai déplacé cette ligne de code et j'aurais dû écrir e :
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
Désolé. Correction apportée à la procédure suiva nte.
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
'-------------------------------------------------
MichD
J'ai déplacé cette ligne de code et j'aurais dû écrir e :
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
Désolé. Correction apportée à la procédure suiva nte.
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
MichD
Bonjour MichD
Merci pour ta réponse
Cette fois ci elle fonctionne mais ne met pas la date, comme je souhaiter ais.
Sans vouloir abuser est-ce qu'il est possible de modifié cette nouve lle procédure que j'ai trouver sur Internet, qui met bien la date avec tirait du 8 et je ne sais pas ce qu'il faut changer dans la procédure pour qu'après le tirait elle ajoute ce qui ce trouve dans les cellule s (A12) (D15) (E12) pour que sa nomme le fichier de cette façon :
2020 07 04_QuittanceJuillet_N°5
En (A12) Quittance
En (D15) Juillet
En (E12) N°5
Merci.
Sub PDF_SAVE()
Dim LHeure As String, LeDate As String
'LHeure = Format(Time, "HMS")
LaDate = Format(Date, "yyyy" & " " & "mm" & " " & "dd")
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:UserssylegDocumentsMes DocumentsTeste " & LaDate & "_" & " " & " .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:ls e, _
From:=1, To:=1, OpenAfterPublish:lse
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub
Le samedi 4 juillet 2020 12:23:31 UTC+2, MichD a écrit :J'ai déplacé cette ligne de code et j'aurais dû écr ire :
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
Désolé. Correction apportée à la procédure sui vante.
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
MichD
Bonjour MichD
Merci pour ta réponse
Cette fois ci elle fonctionne mais ne met pas la date, comme je souhaiter ais.
Sans vouloir abuser est-ce qu'il est possible de modifié cette nouve lle procédure que j'ai trouver sur Internet, qui met bien la date avec tirait du 8 et je ne sais pas ce qu'il faut changer dans la procédure pour qu'après le tirait elle ajoute ce qui ce trouve dans les cellule s (A12) (D15) (E12) pour que sa nomme le fichier de cette façon :
2020 07 04_QuittanceJuillet_N°5
En (A12) Quittance
En (D15) Juillet
En (E12) N°5
Merci.
Sub PDF_SAVE()
Dim LHeure As String, LeDate As String
'LHeure = Format(Time, "HMS")
LaDate = Format(Date, "yyyy" & " " & "mm" & " " & "dd")
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:UserssylegDocumentsMes DocumentsTeste " & LaDate & "_" & " " & " .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=Fals e, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub
Le samedi 4 juillet 2020 12:23:31 UTC+2, MichD a écrit :
> J'ai déplacé cette ligne de code et j'aurais dû écr ire :
>
> Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
>
> Désolé. Correction apportée à la procédure sui vante.
>
>
> '-------------------------------------------------
> Sub Export_PDF()
> Dim Chemin As String, Date_F As String
> Dim Fichier As String, Dossier As String
>
>
> Dossier = "C:UsersVincentDocumentsCommande DNA"
> Chemin = Dossier & Fichier
> Date_F = Format(Date, "yyyy mm dd_")
> Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
>
> 'adaptez le nom de la feuille,Plage de cellules à adapter
> With Worksheets("Quittance").Range("A1:H30")
> .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
> Quality:=xlQualityStandard, IncludeDocProperties:=True, _
> IgnorePrintAreas:=False, OpenAfterPublish:=False
> End With
>
> End Sub
> '-------------------------------------------------
>
> MichD
Bonjour MichD
Merci pour ta réponse
Cette fois ci elle fonctionne mais ne met pas la date, comme je souhaiter ais.
Sans vouloir abuser est-ce qu'il est possible de modifié cette nouve lle procédure que j'ai trouver sur Internet, qui met bien la date avec tirait du 8 et je ne sais pas ce qu'il faut changer dans la procédure pour qu'après le tirait elle ajoute ce qui ce trouve dans les cellule s (A12) (D15) (E12) pour que sa nomme le fichier de cette façon :
2020 07 04_QuittanceJuillet_N°5
En (A12) Quittance
En (D15) Juillet
En (E12) N°5
Merci.
Sub PDF_SAVE()
Dim LHeure As String, LeDate As String
'LHeure = Format(Time, "HMS")
LaDate = Format(Date, "yyyy" & " " & "mm" & " " & "dd")
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:UserssylegDocumentsMes DocumentsTeste " & LaDate & "_" & " " & " .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:ls e, _
From:=1, To:=1, OpenAfterPublish:lse
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")
End Sub
Le samedi 4 juillet 2020 12:23:31 UTC+2, MichD a écrit :J'ai déplacé cette ligne de code et j'aurais dû écr ire :
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
Désolé. Correction apportée à la procédure sui vante.
'-------------------------------------------------
Sub Export_PDF()
Dim Chemin As String, Date_F As String
Dim Fichier As String, Dossier As String
Dossier = "C:UsersVincentDocumentsCommande DNA"
Chemin = Dossier & Fichier
Date_F = Format(Date, "yyyy mm dd_")
Fichier = "" & Date_F & Worksheets("Quittance").Range("B7") & ".pdf"
'adaptez le nom de la feuille,Plage de cellules à adapter
With Worksheets("Quittance").Range("A1:H30")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:lse, OpenAfterPublish:lse
End With
End Sub
'-------------------------------------------------
MichD