Enregistre sous Format PDF puis envoie Mail

Bonjour à tous

Bonne fête aux mamans :

Dans mon fichier que je joints,

Dans userform Print j'ai commencé un code qui ne fonctionne pas comme j'aimerais ...

Les explication du déroulement du code sont dedans.

Voici comment je souhaiterai le fonctionnement:

Quand je clic sur Icon imprimante qui se trouve ds l'userform gestion du tableau de bord:

1- Ouverture frmPrint -> ca ok

2- Affichage ds TxtSave_Print.Value -> ça presque bon , Mais je n'arrive pas à récupérer la valeur de CboNsem_Fin qui est ds frmgestion.

3- Si TxtSave_Print.Value pas bon alors je modifie

4- Si je clic sur le V pour valider , alors sauvegarde sur DD en .PDF et envoie du mail

Voila en espérant que mes explications soient claires

Bonne Journée

Ledzep

Bonjour à tous

J'ai continué à travailler sur mon projet.

Le point 2 est résolu par :

Private Sub UserForm_Activate()

   TxtSave_Print = "blabla de la Semaine" & "     " & Sheets("Administrateur").[T9].Value  ' T9 est Alimentée  par " Regarder Ds frmGestion"

End Sub

Maintenant, j'aimerai qu'il soit possible de pouvoir:

Soit modifier le texte de TxtSave_Print

soit enregistrer sur un emplacement du DD

Merci de votre aide

Ledzep

Bonsoir à tous

J'avance péniblement mais j'avance

Je bloque sur ce code:

    'Procédure Sauvegarde en PDF
Dim fichier As String

Date_F = Format(Date, "ddmmmm_")

With Worksheets("Tableau De Bord")              ' Choix de la feuille
fichier = TxtSave_Print.Value           ' Nom du Fichier
dossier = "C:\Users\monPC\Desktop\Excel PDF"     ' Choix du répertoire

chemin = dossier & fichier

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

Au niveau de

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

Erreur exécution 1004

Document non enregistré. Le document est peut être ouvert ou une erreur s'est produite lors de l’enregistrement.

J'ai lu et relu, mais je ne trouve pas

Une idée

Merci de vos réponses

Ledzep

Bonne soirée

bonsoir à tous

J'ai ciblé mon erreur

fichier = TxtSave_Print.Value

Si je remplace par

fichier= " mon pdf" cela fonctionne.

Mais j'aimerai que cela soit plutôt TxtSave_Print.Value

mais là je bloque

En espérant votre aide

Bonne soirée.

Ledzep

Bonjour à tous

Soit mon sujet est mal posé.

soit cela n'intéresse personne.

Soit pas réalisables.

Mais dites moi pourquoi

Bonne journée

Ledzep