Discussion :

[omen123]

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

[omen123]

rebonjour

j'ai corrigé un peu voila ce que j'ai mis :

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 & "\C:\Documents and Settings\B0096844\Bureau\TAJARIB OMEN\forum\DocModele.docx" & 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

le probleme viens de la je crois :
If Len(Dir(sDocument)) = 0 Then

[ClaudeLELOUP]

Quand tu postes du code, tu dois l'encadrer de balises.
http://dolphy35.developpez.com/images/Balises.gif

dans ton model quand je clique sur le document il s'ouvre pas j'ai changer le chemin

Non, non, je viens de vérifier la pièce jointe.
As tu décompressé mon exemple (la db et le sous-répertoire "Documents") dans un répertoire ?

Le code ne doit pas être modifié, celui que tu proposes ne tient pas la route !

CurrentProject.Path veut dire : le répertoire sur lequel la db est actuellement logée !

on est 30 personne a faire cette manip

Sur la même db ?
Où se situe la db ?

[omen123]

- As tu décompressé mon exemple (la db et le sous-répertoire "Documents") dans un répertoire ?

- oui j'ai mis la base + les 2 docuùents word dans un nouveau dossier ci joint son adresse :C:\Documents and Settings\B0096844\Bureau\TAJARIB OMEN\forum

-Sur la même db ?

-oui c la meme basse chaqun a sa copie sur son bureau

- Où se situe la db ? .

- la base se trouve sur chaque poste elle est fractionnée ,son attachement (les tables meres )se trouve dans le serveur

[omen123]

Code :

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

1
2
3
4
5
6
7
8
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 & "\Documents\DocModele.docx", sDocument  End If
 Ouvrir_fichier (sDocument)
End Sub

c la ligne en rouge ou il' ya le debocage,dois je changer CurrentProject.Path en C:\Documents and Settings\B0096844\Bureau\TAJARIB OMEN\acces pour le forum

merci

[ClaudeLELOUP]

oui j'ai mis la base + les 2 docuùents word dans un nouveau dossier ci joint son adresse :C:\Documents and Settings\B0096844\Bureau\TAJARIB OMEN\forum

Access n'aime pas les espaces ni les caractères spéciaux dans les chemins ! C'est probablement la cause

Essaie par exemple dans c:/tst pour vérifier.

- la base se trouve sur chaque poste elle est fractionnée ,son attachement (les tables meres )se trouve dans le serveur

Zut ! Il faut donc que le dossier "Documents" soit aussi logé sur le serveur.

Le code doit donc être adapté, je te reviens. Malheureusement, je ne saurais pas tester, mais on verra !

[ClaudeLELOUP]

Sans garantie, car je n'ai pas les moyens de tester avec un réseau.

Dans le répertoire de ta db dorsale (celle qui contient les tables), crée un sous-répertoire « Documents » et loges-y ton modèle vierge en l’appelant « DocModele.docx ».

Dans le formulaire, associe ce code au bouton :

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
Option Compare Database
Option Explicit
 
Private Sub btDocument_Click()
  Dim sDocument As String
  Dim sCheminData As String
  Dim i As Integer
  'Recherche du chemin des données
  sCheminData = DLookup("Database", "MSysObjects", "ForeignName <>null")
 For i = Len(sCheminData) To 1 Step -1
    If Mid(sCheminData, i, 1) = "\" Then Exit For
  Next i
  sCheminData = Left(sCheminData, i - 1)
  'Le document existe-t-il, sinon le créer
  sDocument = sCheminData & "\Documents\" & Me.TXTid_demande & ".docx"
  If Len(Dir(sDocument)) = 0 Then
    FileCopy sCheminData & "\Documents\DocModele.docx", sDocument
  End If
 Ouvrir_fichier (sDocument)
End Sub

Quel est le résultat ?

[omen123]

je suis sortis du boulot demain je te tiens au courant

[ClaudeLELOUP]

je suis sortis du boulot

Déjà !

[omen123]

ouiii c est deja 21:04

[omen123]

bonjour claude

ci joint ce que j'ai fait.

pour la table dorssale



pour la base au niveau de mon bureau

[omen123]

ci joint l'erreur

[ClaudeLELOUP]

Bonjour,

Montre une capture d'écran avec le message d'erreur.

Donne-moi l'adresse complète de la dorsale : ceci (billet 31)

mais en plus grand pour que ce soit lisible !

[omen123]

ci joint l'adresse : \\172.21.104.208\comite\dat\2IIS

et le message d'erreur :

[ClaudeLELOUP]

C'est donc que dans ta version, on ne trouve pas l'adresse de la dorsale comme en Access2000 !

Essaie ceci, mais si ça ne marche pas il faudra faire appel à un autre forumeur,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub btDocument_Click()
  Dim sDocument As String
  'Le document existe-t-il, sinon le créer
  sDocument = "\\172.21.104.208\comite\dat\2IIS\Documents\" & Me.TXTid_demande & ".docx"
  If Len(Dir(sDocument)) = 0 Then
    FileCopy "\\172.21.104.208\comite\dat\2IIS\Documents\DocModele.docx", sDocument
  End If
 Ouvrir_fichier (sDocument)
End Sub

[omen123]

merci les amis , j'ai decidé finalement de crerer une nouvelle base et mette que les pieces jointes et de la rattacher avec ma base ,c est pas trop intelligent mais c est plus facile .

je tiens a vous remercie tt les menbres qui ont contribués a mon aide .

bonne journée