Discussion :

[keranLatos]

Bonjour j'aimerais savoir si il etais possible de retirer le mot "Formtext" lorsque je recupere mon signet pour enregistrer, merci beaucoup.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub Valider_Click()
Dim OL As Object, EmailItem As Object
Dim dossier As String, madate As Date, chemin_du_dossier As String, chemin_du_dossier2 As String, Nom As String, Prenom As String, strFileName As String
 
madate = Now()
chemin_du_dossier = CFile & Nom & Prenom & "\"
chemin_du_dossier2 = chemin_du_dossier & "\Administratif (acte de naissance - prise en charge - CMU-fiche d'admission...)"
Nom = ActiveDocument.Bookmarks("Nom").Range.Text
Prenom = ActiveDocument.Bookmarks("Prenom").Range.Text
 
Application.ScreenUpdating = False
 
If Dir(chemin_du_dossier2, vbDirectory) <> vbNullString Then
    Else
        MkDir (chemin_du_dossier2)
        MkDir (chemin_du_dossier & "\Scolarité")
        MkDir (chemin_du_dossier & "\Notes")
        MkDir (chemin_du_dossier & "\Mesure-Convocation")
        MkDir (chemin_du_dossier & "\Courrier (calendrier,...)")
    End If
 
                        With ActiveDocument
                                     ActiveDocument.Save
                            ChangeFileOpenDirectory chemin_du_dossier2
                            ActiveDocument.SaveAs2 FileName:="Admission " & Nom & Prenom & ".docm", FileFormat _
                            :=wdFormatXMLDocument, LockComments:=False, Password:="", _
                            AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
                            EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
                            :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15
 
                                ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                                chemin_du_dossier2 & "\" & "Admission de " & Nom & " " & Prenom & ".pdf" _
                                , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                                wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                                Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                                CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                                BitmapMissingFonts:=True, UseISO19005_1:=False
 
                                     ActiveWindow.Close wdDoNotSaveChanges
                    End With
                    Exit Sub
 
 
        On Error GoTo ErrorHandler:
                Set OL = CreateObject("Outlook.Application")
                Set EmailItem = OL.CreateItem(0) '
                    Set OL = CreateObject("Outlook.Application")
                    Set EmailItem = OL.CreateItem(0)
                    strFileName = chemin_du_dossier2 & "/Admission de " & Nom & " " & Prenom & ".pdf"
 
                        With EmailItem
                            .Subject = "Admission " & Format(Date, "dd/mm/yyyy") & " du service " & service
                            .body = "Bonjour, voici l'Admisssion du " & Format(Date, "dddd dd mmmm yyyy") & ", sur le service" & service & "." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Chef(fe) de service : " & Chef
                            .To = Emaila
                            .Attachments.Add strFileName
                            .Send
                        End With
                        Set EmailItem = Nothing
                        Set OL = Nothing
 
ErrorHandler:
          Set OL = CreateObject("Outlook.Application")
                Set EmailItem = OL.CreateItem(0) '
                    Set OL = CreateObject("Outlook.Application")
                    Set EmailItem = OL.CreateItem(0)
                        With EmailItem
                            .Subject = "Admission du service " & service
                            .body = "Bonjour, afin de consulter les admission précédentes du service " & service & " merci de vous rendre dans le dossier : " & CFile & "." & Chr(13) & Chr(10) & "Chef(fe) de service : " & Chef
                            .To = Emaila
                            .Send
                        End With
                         Set EmailItem = Nothing
                         Set OL = Nothing
                         Exit Sub
        Application.ScreenUpdating = True
 
End Sub

[Invité]

D'où vient ce texte ? Et comment se présente-il dans la chaîne ?

[keranLatos]

Bonjour ,
J'ai un formulaire et le texte correspond à un signet dont bien contenues change .

Merci encore

[Invité]

Bonjour ,

Comment se présente le résultat ?

[keranLatos]

le resultat donne :" Admission de FO FO - 05 novembre 2020.pdf" alors que le texte est nom et un autre signet prenom , voulez vous le fichier ?

[Invité]

Vous pouvez vous aider de Debug.print pour vérifier ce que vous récupérez dans vos variables dans la fenêtre exécution (Ctrl-G).
Ce n'est pas très logique d'utiliser les nom et prenom dans chemin_du_dossier alors que vous récupérez ces valeurs après dans les signets.
Conseil : Evitez de donner des noms identiques à vos signets pour vos variables même si cela n'a pas de conséquence, transformez les en ValeurNom et ValeurPrenom ou autre par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
        madate = Now()
 
        With ActiveDocument
             Nom = .Bookmarks("Nom").Range.Text
             Prenom = .Bookmarks("Prenom").Range.Text
             Debug.Print "Nom : " & Nom & ", prénom : " & Prenom
        End With
 
        chemin_du_dossier = CFile & Nom & Prenom & "\"
        chemin_du_dossier2 = chemin_du_dossier & "\Administratif (acte de naissance - prise en charge - CMU-fiche d'admission...)"

[keranLatos]

Je suis passer finalement par un controle de contenue mais merci encorre