Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2019Modification code vba pour envoie pj Excel au lieu d'un pdf
Bonjour Quicksland et le Forum,
à tester, ça devrait suffire de remplacer la macro EditionJL par la macro suivante (difficile pour moi de faire plus avec des feuilles cachées et protection par mot de passe)
VB:
Sub ExportSheetJL()
Dim Dossier As String, Horodatage As String, NomFichier As String
Dim targetWorkbook As Workbook
Dossier = ThisWorkbook.Path 'r_pertoire courant o? sera cr__ le fichier PDF
Horodatage = WorksheetFunction.Text(Now, "YYYYMMDD-HHMM") 'avec les heures et minutes
NomFichier = "Journal des stocks " & Horodatage
Extension = ".xlsx"
CheminJL = Dossier & "\" & NomFichier & Extension
ThisWorkbook.Sheets("JOURNAL").Copy
With ActiveWorkbook
.SaveAs CheminJL
.Close
End With
End Sub
Bonjour Quicksland et le Forum,
à tester, ça devrait suffire de remplacer la macro EditionJL par la macro suivante (difficile pour moi de faire plus avec des feuilles cachées et protection par mot de passe)
VB:
Sub ExportSheetJL()
Dim Dossier As String, Horodatage As String, NomFichier As String
Dim targetWorkbook As Workbook
Dossier = ThisWorkbook.Path 'r_pertoire courant o? sera cr__ le fichier PDF
Horodatage = WorksheetFunction.Text(Now, "YYYYMMDD-HHMM") 'avec les heures et minutes
NomFichier = "Journal des stocks " & Horodatage
Extension = ".xlsx"
CheminJL = Dossier & "\" & NomFichier & Extension
ThisWorkbook.Sheets("JOURNAL").Copy
With ActiveWorkbook
.SaveAs CheminJL
.Close
End With
End Sub
C'est normal que tu aies ce message d'alerte : tu as des macros dans ta feuille "JOURNAL", mais tu enregistres la feuille en .xlsX.
Soit tu veux envoyer la feuille avec ses macros, et donc tu enregistres la feuille en .xlsM.
Soit tu veux envoyer la feuille sans ses macros, et donc tu enregistres la feuille en xlsX.
Je te propose une macro qui fait, au choix, un des 3 formats (pdf, xlsx, xlsm) :
VB:
Sub EditionJL(Extension As String)
'
Dim Dossier$, Horodatage$, NomFichier$
Application.ScreenUpdating = False
Dossier = ThisWorkbook.Path ' Répertoire courant où sera créé le fichier PDF
Horodatage = Format(Now, " YYYYMMDD-HHMM") ' Avec les heures et minutes
NomFichier = "Journal des stocks " & Horodatage
CheminJL = Dossier & "\" & NomFichier & Extension
With Sheets("JOURNAL")
Select Case Extension
Case ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminJL, IgnorePrintAreas:=False
Case ".xlsx"
.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CheminJL, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Case ".xlsm"
.Copy
ActiveWorkbook.SaveAs Filename:=CheminJL, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
Case Else
MsgBox "Feuille non enregistrée car format '" & Extension & "' inconnu.", vbOKOnly + vbInformation, "Erreur"
End Select
End With
End Sub
Il faut donc appeler la macro de cette façon, selon le format sous lequel tu veux enregistrer la feuille : call EditionJL(".pdf") ou call EditionJL(".xlsx") ou call EditionJL(".xlsm").
Si tu passes en paramètre autre chose qu'une de ces trois extensions, tu as un message d'alerte qui te prévient immédiatement que l'enregistrement n'a pas été effectué car le format n'est pas connu.
Si tu trouves que c'est trop compliqué, tu supprimes tout ce qu'il y a en trop pour ne garder que le format que tu veux.
C'est normal que tu aies ce message d'alerte : tu as des macros dans ta feuille "JOURNAL", mais tu enregistres la feuille en .xlsX.
Soit tu veux envoyer la feuille avec ses macros, et donc tu enregistres la feuille en .xlsM.
Soit tu veux envoyer la feuille sans ses macros, et donc tu enregistres la feuille en xlsX.
Je te propose une macro qui fait, au choix, un des 3 formats (pdf, xlsx, xlsm) :
VB:
Sub EditionJL(Extension As String)
'
Dim Dossier$, Horodatage$, NomFichier$
Application.ScreenUpdating = False
Dossier = ThisWorkbook.Path ' Répertoire courant où sera créé le fichier PDF
Horodatage = WorksheetFunction.Text(Now, " YYYYMMDD-HHMM") ' Avec les heures et minutes
NomFichier = "Journal des stocks " & Horodatage
CheminJL = Dossier & "\" & NomFichier & Extension
With Sheets("JOURNAL")
Select Case Extension
Case ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminJL, IgnorePrintAreas:=False
Case ".xlsx"
.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CheminJL, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Case ".xlsm"
.Copy
ActiveWorkbook.SaveAs Filename:=CheminJL, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
Case Else
MsgBox "Feuille non enregistrée car format '" & Extension & "' inconnu.", vbOKOnly + vbInformation, "Erreur"
End Select
End With
End Sub
Il faut donc appeler la macro de cette façon, selon le format sous lequel tu veux enregistrer la feuille : call EditionJL(".pdf") ou call EditionJL(".xlsx") ou call EditionJL(".xlsm").
Si tu passes en paramètre autre chose qu'une de ces trois extensions, tu as un message d'alerte qui te prévient immédiatement que l'enregistrement n'a pas été effectué car le format n'est pas connu.
Si tu trouves que c'est trop compliqué, tu supprimes tout ce qu'il y a en trop pour ne garder que le format que tu veux.
Je me posais la même question quand je t'ai vu arriver il y a 10 ou 15 minutes.
Je n'ai pas touché à cette macro.
Tu n'avais pas l'erreur avant ?
Tu as bien lu tout ce que j'ai écrit en #8 ???
J'ai changé le nom de la macro (j'ai en fait laissé celui d'origine), donc si tu veux l'appeler, il faut mettre son nom...
Et c'est pas comme si je l'avais écrit en couleur, et avec les 3 possibilités !
Il faut donc appeler la macro de cette façon, selon le format sous lequel tu veux enregistrer la feuille : call EditionJL(".pdf") ou call EditionJL(".xlsx") ou call EditionJL(".xlsm").
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.
