Discussion :

[Skullraiser74]

Bonjour a tous,

âpres plusieurs recherche je ne trouves pas de réponses claire a mon problème. Je suis novice dans l'utilisation des macros ect mais je n’hésites pas a les utilisées si besoin ca me prend du temps mais ca me permet d'apprendre.

Voila mon problème sommes toute simple.

Je possèdes un model word qui me sert de fiche de synthèse avec plusieurs infos à remplir dont le nom de la personne concerner et la date du document.

Je généré automatiquement la date affiché sur le document par un quickpart de la date de création du document.

Je souhaiterais lors de l'enregistrement que word insert automatiquement le nom avec une racine physique, le nom de la personne et la date ( exemple : Seance NOMx Date).

Cette manipulation me permettrais de gagner du temps et d'évité les erreurs car le document peut etre généré plusieurs fois pour la meme personne mais a des dates différentes



Merci pour votre aide

[E KERGRESSE]

Bonjour,

A tester.

A noter qu'il est plus lisible de stocker les documents avec un format date AAAA-MM-JJ d'où l'intérêt de la fonction GroupeDateHeure dont j'ai neutralisé la partie heure sans intérêt si un seul document du même nom est réalisé par jour.

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
 
Sub TestSauvegarderLeDocument()
 
    SauvegarderLeDocument ActiveDocument.Path, "Séance", "SkullRaiser74" ' Paramètres à remplacer par le contenu de vos champs.
 
End Sub
 
 
Sub SauvegarderLeDocument(ByVal Chemin As String, ByVal Info1 As String, ByVal NomDoc As String)
 
    With ActiveDocument
         .SaveAs2 FileName:=Chemin & "\" & Info1 & " " & NomDoc & " " & GroupeDateHeure, fileformat:=wdFormatXMLDocument ' Si sauvegarde en .docx
         .Close
    End With
 
End Sub
 
Function GroupeDateHeure() As String
 
Dim DateDeCreation As String
Dim HeureEnCours As Variant
 
    DateDeCreation = Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
    HeureEnCours = Split(Time, ":")
    GroupeDateHeure = DateDeCreation '& " " & Join(HeureEnCours, "")
 
End Function

[Skullraiser74]

bonjour merci je vais tester ca