XL 2019 Modification code vba pour envoie pj Excel au lieu d'un pdf

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Q

Quicksland

XLDnaute Occasionnel
Bonsoir le forum 😉

je souhaiterai si possible que dans mon fichier " GESTION STOCK "

que la pj " journal des stocks " soit envoyé au format excel et plus au format pdf

et laisser au format pdf la pj " recap stock "

Merci a tous pour votre aide 🙏
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Sequoyah à dit:
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
Cliquez pour agrandir...
Bonsoir @Sequoyah

Merci pour ta réponse 👍

Je te remet le fichier sans mot de passe et sans feuille cachées

Merci pour tout
 

Pièces jointes

Vote positif 0 Vote négatif
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. 😉
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy à dit:
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. 😉
Cliquez pour agrandir...
Bonjour @TooFatBoy 😉

Tu ne dors jamais !!! 🙄

Merci pour ta réponse et pour ta proposition👍

Je me retrouve avec cette erreur



VB: 
Sub ArreteStockJournalier()[/COLOR][/COLOR]

[COLOR=rgb(0, 0, 0)]Sheets("ETAT").Activate[/COLOR]
[COLOR=rgb(250, 197, 28)]Sheets("ETAT").Calculate[/COLOR]

[COLOR=rgb(41, 105, 176)][COLOR=rgb(0, 0, 0)]Call ExportSheetJL[/COLOR][/COLOR]
[COLOR=rgb(250, 197, 28)]Call EditionRECAP
Call Reinitialisation
MsgBox "Edition du dernier stock connu : OK" & vbCrLf & "Reinitialisation du fichier : OK"
Call EnvoiMail

End Sub

Merci pour ton aide
 
Vote positif 0 Vote négatif
Quicksland à dit:
Tu ne dors jamais !!! 🙄
Cliquez pour agrandir...
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 ! 😡😤
TooFatBoy à dit:
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").
Cliquez pour agrandir...

Bon allez, il n'est même pas encore 06h00 alors tu ne seras pas puni. 😇
 
Dernière édition:
Vote positif 0 Vote négatif
VB: 
Sub ArreteStockJournalier()
'
    Sheets("ETAT").Activate
    Sheets("ETAT").Calculate

'    Call EditionJL(".pdf")
    Call EditionJL(".xlsx")
'    Call EditionJL(".xlsm")
    Call EditionRECAP
    Call Reinitialisation
    MsgBox "Edition du dernier stock connu : OK" & vbCrLf & "Reinitialisation du fichier : OK"
    Call EnvoiMail

End Sub
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
VB: 
Sub ArreteStockJournalier()
'
    Sheets("ETAT").Activate
    Sheets("ETAT").Calculate

'    Call EditionJL(".pdf")
    Call EditionJL(".xlsx")
'    Call EditionJL(".xlsm")
    Call EditionRECAP
    Call Reinitialisation
    MsgBox "Edition du dernier stock connu : OK" & vbCrLf & "Reinitialisation du fichier : OK"
    Call EnvoiMail

End Sub
Cliquez pour agrandir...
Plus de message d'erreur , mais je reçois le mail qu'avec le recap en pdf

J'ai un enregistrement pdf du recap et le fichier journal en xlsx 👍

Pas eu le choix de l'envoie mais ça ne me dérange pas 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
196
Phil69970
Phil69970
riton00
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
408
kiki29
kiki29
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
628
JPaul78
J
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
848
JPaul78
J
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
267
AtTheOne
AtTheOne
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Modification du code de pdf au xlsm
Réponses
2
Affichages
530
chaelie2015
chaelie2015
F
  • Question Question
XL 2016 Générer un rapport pdf depuis excel
2
Réponses
22
Affichages
2 K
fraux
F
O
  • Question Question
XL 2019 Formulaire vba pour filtrer les données
Réponses
7
Affichages
518
olivier1984
O
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
532
arnoldbrice19
A
Z
  • Question Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
548
zedude
Z
P
  • Question Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
2 K
pouetpouetlagalette
P
L
  • Question Question
XL 2019 Code VBA pour imprimer en PDF
Réponses
7
Affichages
3 K
kiki29
kiki29
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
640
Nico2978
Nico2978
F
  • Question Question
XL pour MAC Envoi de rappel automatique de rdv adressé au client à partir d'une feuille excel
Réponses
2
Affichages
736
fred936
F
Lulu974
  • Question Question
Microsoft 365 Recherche d'un code à 13 chiffres dans des fichiers PDF via excel ou PowerQuery
2 3
Réponses
39
Affichages
2 K
Bernard_XLD
Bernard_XLD
AugusteP
  • Question Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
1 K
AugusteP
AugusteP
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
752
olivier388
O
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
646
Averell1976
A
S
  • Résolu(e)
Microsoft 365 Fusion de 2 macro VBA (selection envoi de mail + envoie de fichier PDF)
Réponses
6
Affichages
2 K
soNZOOO
S
Retour