Ouverture d'un fichier Attaché

Bonjour à tous,

L'introduction :)
je suis en train de réaliser sous Access 2010 une base de donnée me permettant de gérer un ensemble de bâtiments administratifs (je début sous Access mais j'ai de bonnes bases en VBA Word/Excel).
Cette base me permettrait, entre autre, de réaliser des documents Word pour sortir des rapports pour chaque bâtiment ( je ne peut pas utiliser les "Report" intégrés à Access car chez nous (banque), tout est Corporate, et les documents types sont imposés)
J'ai donc crée une table avec tous les documents type dont j'ai besoin (fichier attachés à un enregistrement) et, entre autre, un formulaire alimenté par différentes tables qui regroupent les informations des bâtiment.
J'aimerai que, quand je clic sur OK en bas du formulaire, Access ouvre le bon fichier Word attaché à un enregistrement de la table des fichiers types et le remplisse comme il faut. J'ai, en ce moment, plusieurs fichiers Word avec leurs macros VBA et une base de donnée sous excel et ça marche assez bien mais ce n'est quand-même pas optimal...

Les soucis :)
J'ai, dans un premier temps un souci pour ouvrir le fichier attaché (en revanche, aucun problème pour ouvrir un fichier qui se trouve ailleurs dans un dossier Windows mais j'aimerais que tout soit intégré à la table et pas avoir un sous-dossier avec plein de fichiers Word ou autre...)
Mon deuxième souci sera sûrement de remplir le document via les "Text Form Fields" de Word et ce, depuis Access, mais ça, je me laisse chercher encore un peu avant de sonner l'alarme ;)

J'ai bien mis,

Code:

---

1 2	Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String _ , ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

dans un module, je suppose que c'est aussi nécessaire pour ouvrir un fichier attaché à un enregistrement.

Ensuite je connais ce code :

Code:

---

ShellExecute 0&, vbNullString, "monfichier.doc", vbNullString, vbNullString, vbNormalFocus

---

Mais bon, ça c'est pour un fichier situé dans un dossier Windows.

J'ai essayé vers cette voie:

Code:

---

ShellExecute 0&, vbNullString, MA_TABLE.MON_FIELD.MA_LIGNE, vbNullString, vbNullString, vbNormalFocus

---

mais si c'est ça, je n'ai pas trouver la bonne formulation...

Malgré mes recherches, je n'ai pas trouvé de solution.

merci d'avance de votre aide

Sylvain

Bon alors, j'ai du nouveau pour mon problème. A priori, il faut en premier lieu demander à la macro d'enregistrer le fichier quelque-part avant de pouvoir l'ouvrir (logique :oops:)
ensuite, je peux utiliser le code :

Code:

---

ShellExecute 0&, vbNullString, "monfichier.doc", vbNullString, vbNullString, vbNormalFocus

---

j'essaye et je crie au secours si je lutte trop :lol:


Sylvain

Bonjour.

A moins que je ne sois complètement en dehors de la plaque, tu peux ouvrir un doc bien plus efficacement avec

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim oWdApp as word.Application Dim oWdDoc as Word.document Dim sPath as string   '... Set oWdApp = New Word.Application oWdApp.Visible = True sPath = ... Set oWdDoc = oWdApp.Documents.Open sPath   '... traitement

---

Cordialement,

PGZ

Merci pour ta réponse Pgz.

malheureusement j'en suis encore au niveau d'essayer l'enregistrement du fichier.

j'ai basé mon script sur le code suivant : (pris dans le tuto access, très bien fait, je l'avoue, mais il doit y avoir un truc que je ne pije pas...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Function EnregistrerFichier(strNomFichier As String, inteleve As Integer, strNomDestination) As Boolean On Error GoTo err Dim oRst As DAO.Recordset 'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers.FileData FROM tbl_eleve WHERE [N°]=" & _ inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34)) If Not oRst.EOF Then   oRst.Fields(0).SaveToFile strNomDestination EnregistrerFichier = True End If fin: Set oRst = Nothing Exit Function   err: Select Case err.Number Case 3839: MsgBox "Impossible d'écraser le fichier", vbCritical Case Else MsgBox "Erreur inconnue", vbCritical End Select Resume fin End Function

---

en fait, dans ce code, il y a des variables et des références liées à des tables que je ne trouve pas.

j'ai cherché s'il était possible de télécharger le fichier d'exemple, en vain...

la ligne qui me pose problème est :

Code:

---

1 2	Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers.FileData FROM tbl_eleve WHERE [N°]=" & _ inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34))

---

j'ai compris que :

• tbl_eleve est le nom de la table dans lequel se trouve l'enregistrement, auquel est attaché le fichier,
• "WHERE [N°]= inteleve" signifie (je pense) dans la colonne/field nommée N°, il faut chercher la ligne/enregistrement qui a la valeur stockée dans le variable inteleve,
• strNomFichier est bien sur la variable qui stock le nom du fichier.

Mais j'ai un problème avec Fichiers.FileData et Fichiers.FileName. Je suppose que ce ne sont pas des fonctions VBA access vu que le mot est en français mais je ne sais pas du tout à quoi ça se réfere...

merci d'avance pour votre aide.

Sylvain

Bon, je veins de trouver le tuto complet :http://warin.developpez.com/access/piecejointe/#LI

la variante sur laquelle je me basais ne proposait pas l'ensemble de la démonstration...

Donc je vais essayer me corriger tout seul ;)

a+

Sylvain

bonjour,

Citation:

---

mais j'aimerais que tout soit intégré à la table et pas avoir un sous-dossier avec plein de fichiers Word ou autre

---

Access est excellent en terme de RAD, c'est une bonne bdd ( en intégrant JET) mais ce n'est pas à franchement parler un outil de ged

Je ne suis pas certain que tu fasses le bon choix d'architecture , ne serait ce que par souci de maintenance.
En effet, tu vas dupliquer l'information pour rien, tes documents corporates existent bien déjà quelque part, et le moindre changement t'obligera à les répercuter dans ta base,
Toujours par souci de maintenance, en cas de modification de code ou de modification de périmètre d'utilisation de mon application, je préfére toujours dissocier les traitement des données, en utilisant le principe de frontale, dorsale.

Il me semble qu'il serait plus simple pour toi d'avoir en base
- juste les données que tu manipules,
- une table paramètre ou tu puisses renseigner le ou les répertoires de tes documents sources
- et une dernière te permettant de rattacher le type de d'édition et le nom du modèle concerné

Ensuite pour exploiter le tout j'utiliserai ce que te conseille pgz (;)) en pilotant depuis access les outils (ce qui fonctionne parfaitement) qui ont générés tes fichiers modèles. Un dernier avantage que je vois à cette approche, c'est que si tu as besoin de rajouter des fonctionalités tu peux le faire de manière centralisée sans être obligé d'ajouter des morceaux de vba dans tes modèles

mais ce n'était qu'un avis en passant, à toi de voir

A+

Bonjour,

merci pour ta contribution. Je vais rester dans mon idée (je n'ai pas beaucoup de fichier à attacher) Néanmoins, j'y penserai si le problème se pose. Merci en tout cas.

J'ai résolu mon problème et cela fonctionne.

en fait, le "Fichiers" de Fichiers.FileData ou Fichiers.FileName est tout simplement le nom du Field où se trouve les pièces jointes...

A bientôt pour un nouveau blocage... :D

Sylvain

bien, mettre en résolu alors

Oui, je vais le faire, il ne me reste plus qu'une question :

je n'arrive pas à sauvegarder le document après qu'il soit rempli. J'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim appWord as New Word.Application With appWord Set docWord = .Documents.Open("c:\...\monFichier.doc") .Visible = True 'Remplissage des bookmark docWord.Bookmarks("txt_ref").Range.Text = "blablablabla" 'etc... Set docWord = .ActiveDocuments.Save End With Set appWord = Nothing

---

Je suppose que ma commande Set docWord = .ActiveDocuments.Save est mauvaise mais je ne trouve pas...
Je ne souhaite pas de faire de SaveAs.

merci d'avance.

Sylvain

J'ai trouvé !!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim appWord as New Word.Application With appWord Set docWord = .Documents.Open("c:\...\monFichier.doc") .Visible = True 'Remplissage des bookmark docWord.Bookmarks("txt_ref").Range.Text = "blablablabla" 'etc... .ActiveDocuments.Save End With Set appWord = Nothing

---

Sylvain