Discussion :

[dinictis]

bonjours a tous ,
(stagiaire)
je vous explique mon probleme ,je gere les agents d'une entreprise sur excel
..jy est inseré un bouton qu'i m'ouvre un formulaire (word) pour les fiche medicales
avec les champs suivant:
nom :
prenom:
matricule:
....
j'ai crée un bouton et je cherche une macro qui me permetra d'enregistrer quand la fiche medical est rempli sous un nom definie
FMA_(matricul)_(date)
FMA ne changera pas, je ne sais pas comment allé chercher le matricule dans le champ du formulaire,et la date .
(si cela peut aider dans ma feuille excel "fiche agent" le matricul est situer en B19)

et que le fichier s'enregistre dans un repertoire defini qui est :
C:\Documents and Settings\rm715079\Bureau\Inaptitude\Fiches médicales

merci d'avance

[QuestVba]

Bonjour,

Voici un doc et un code vite fait; j'espère utile

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
Sub Recup_Enreg()
 
    WordBasic.ToolsUnprotectDocument
    'cherche matricule (signet3) et date (signet4)
    matr = ActiveDocument.FormFields("texte3").Result
    dat = ActiveDocument.FormFields("texte4").Result
    dat1 = ""
    'transformation date car "/" pas accepter dans nom de fichier
    For i = 1 To Len(dat)
        car = Mid(dat, i, 1)
        If car <> "/" Then dat1 = dat1 + car
    Next i
 
    NomFichier = "c:\temp\FMA_" + matr + "_" + dat1 + ".doc"
 
    With ActiveDocument
        .SaveAs NomFichier
    End With
 
    WordBasic.ToolsProtectDocument DocumentPassword:="", NoReset:=1, Type:=2
 
End Sub

[Heureux-oli]

Salut,

Il est vrai que l'objet Dialog wdDialogFileSaveAs n'est pas très paramétrable.

Mais la suite office possède une boîte de dialogue plus souple pour les manipulations sur fichier, c'est l'objet FileDialog.


Pour l'enregistrement, ce code devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestEnregistrement()
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogSaveAs)
 
 
With oDlg
    .InitialFileName = "c:\temp\Olivier"
    .Title = "Moi"
    .Show
End With
Set oDlg = Nothing
 
End Sub

Pour les données issues du formulaire, c'est pas trop compliqué.

Si tu utilises le code que j'ai donné dans ton formulaire basé sur un bouton, on peut obtenir le contenu des contrôles avec Me qui fait référence au formulaire.

Code :

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

.InitialFileName = "C:\Temp\" & "_" & Me.Matricul & "_" & Format(Me.Date, "YYYY-MM-DD")

Il ne reste qu'à valider le nom de fichier dans la boîte de dialogue.

Si tu ne souhaites pas passer par cette boîte de dialogue.

Code :

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

ActiveDocument.SaveAs "C:\Temp\" & "_" & Me.Matricul & "_" & Format(Me.Date, "YYYY-MM-DD")

Mais pas de contrôle possible par l'utilisateur.