merci claude c'est ce que je cherche mais il y a 2 souci :
1- on est 30 personne a faire cette manip dois- je faire un copier coller de la base pour chafque itulisateur + les fichiers word ? si oui est ce qu on pourra tous consulter les pieces joint.
2- dans ton model quand je clique sur le document il s'ouvre pas j'ai changer le chemin a
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub btDocument_Click() Dim sDocument As String 'Le document existe-t-il, sinon le créer sDocument = CurrentProject.Path & "\Documents\" & Me.TXTid_demande & ".docx" If Len(Dir(sDocument)) = 0 Then FileCopy CurrentProject.Path & "C:\Documents and Settings\B0096844\Bureau\TAJARIB OMEN\forum\DocModele.docx", sDocument End If Ouvrir_fichier (sDocument) End Sub
Partager