Microsoft 365 Combobox impression et enregistrement

[FCMLE44]

Bonjour

Dans le fichier en pièce jointe onglet Explications, j'explique ce que je souhaite faire sur la feuille ICL IAC TRAVAUX PUBLICS

En fait, je souhaite imprimer, enregistrer, et retourner à une feuille à l'aide d'un combobox de sélection des éléments concernés

Pouvez vous m'aider svp ?

Merci

 

[FCMLE44]

Bonjour

Sur le fichier en pièce jointe je détaille un peu plus ce que je souhaite faire

Pouvez vous me dire si cela est réalisable et comment ?

Merci beaucoup

 

[FCMLE44]

Bonjour

Est ce que cela est réalisable ou bien faut il que je réfléchisse à autre chose ou bien vous manque t il plus d'infos ?

 

[FCMLE44]

Bonjour

J'ai trouvé ce code qui me crée bien mon pdf mais je souhaiterais pour voir l'envoyer par mail

Private Sub Estimation_Click()
    Dim sRep As String
    Dim sFilename As String

 

    Sheets(Array("Renseignements salarié", "Feuille Calcul Indemnités")).Select
    sRep = ThisWorkbook.Path
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"

 

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub

Que dois y ajouter ?

Merci

 

[FCMLE44]

Bonjour

J'ai compléter ce code en y ajoutant des choses pour envoi mail mais la pièce jointe marque "a échoué"

Private Sub Estimation_Click()
    Dim sRep As String
    Dim sFilename As String
    Dim Nom As String


    Sheets(Array("Renseignements salarié", "Feuille Calcul Indemnités")).Select
    sRep = ThisWorkbook.Path
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"



    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Name, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Nom = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "pdf"
  Set olApp = CreateObject("Outlook.application")
  Set m = olApp.CreateItem(0)
  With m
    .attachments.Add ActiveWorkbook.Path & "\" & Nom
    .display
  End With
End Sub

Quelqu'un peut il m'aider SVP ?

 

[FCMLE44]

Bonjour

J'explique un peu plus

Si je clique sur bouton


J'arrive à 3 clics

1- Estimation Renseignements + Indemnités. Sur ce bouton, je dois pouvoir lorsque je sélectionne oui + oui (dernier question y a t il un temps partiel), démasquer les lignes 159:218 de la feuille calcul indemnités puis enregistrer les pages Renseignements salariés + Feuille de calcul Indemnités en format pdf dans le répertoire de mon choix ( le répertoire pourra varier). Une fois le PDF enregistré, il sera envoyé au responsable pour validation définitive avant envoi au demandeur. Il remasquera les lignes 159:218 de la feuille calcul indemnités pour finir

2- Dossier solde de tout compte complet. Sur ce bouton, je dois pouvoir lorsque je sélectionne oui + oui (dernier question y a t il un temps partiel), démasquer les lignes 159:218 de la feuille calcul indemnités puis enregistrer les pages Toutes les pages sauf mode opératoire, Critères Conventions Collectives plus une autre possible + Feuille de calcul Indemnités en format pdf dans le répertoire de mon choix ( le répertoire pourra varier). Une fois le PDF enregistré, il sera envoyé au responsable pour validation définitive avant envoi au demandeur. Il remasquera les lignes 159:218 de la feuille calcul indemnités pour finir

3-Documents STC. Impression de la feuille STC

J'espère que j'ai été plus clair et plus précis

Merci