Discussion :

[vansss]

Bonjour,

Je suis actuellement en stage et je dois réaliser une base de données sous access avec ensuite une liaison entre word et access. je m'explique:

j'ai créé une BDD avec le nom d'un service et le détail de ce service. j'ai rentré près de 500 données. Dans un document Word, je dois permettre aux ingénieurs d'écrire un dossier où ils détaillent toutes leur prestations en enumérant ces fameux services.

Est-ce qu'il est possible de réalier, et comment faire si ça l'ai, une liaison word-access de telle manière que lorsque l'on écrit le nom du service sous Word, il aille chercher le détail de celui-ci automatiquement, ou presque????

merci d'avance de vos réponses.

vanessa

[helas]

La référence Microsoft Access 10.0 Object Library doit être ajoutée (menu Outils\références dans l'editeur Visual Basic)

En indiquant le service, cette fonction retourne le détail du service
Modifier le dossier, le nom de la base Access,...

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
Function retourneDetail(service As String) As String

 Dim rs As DAO.Recordset
 Dim db As DAO.Database
 Dim sql As String
 sql = "SELECT * from tbServices WHERE [service] = '" & service & "'"

 Set db = OpenDatabase("dossier...\services.mdb")
 Set rs = db.OpenRecordset(sql)

 If Not rs.EOF Then retourneDetail = rs!detail

 rs.Close
 Set rs = Nothing
 db.Close
 Set db = Nothing

End Function

[Jesus-comes-back]

Salut à tous,

je dois exporter des ´feuilles d'excel vers Access, voici le code que j'ai utilisé, malheureusement je recois le message d'erreur (run-tim '9': subscriptout of Range).


Sub WritingWorksheetData_DAO()

Dim Plage As Range

Dim Array1 As Variant

Dim x As Variant

Dim Db1 As Database

Dim Rs1 As Recordset

' Ouverture de la base de données Commandes.mdb

Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb" )

' Ouverture de la table Factures

' Un objet Recordset représente les enregistrements d'une table

Set Rs1 = Db1.OpenRecordset( "Factures" , dbOpenDynaset)

' Détermination de la taille de la plage à envoyer vers Access

Set Plage = Worksheets( "DAOSheet" ).Range( "A1" ).CurrentRegion.Offset( 1 , 0 )

Set Plage = Plage.Resize(Plage.Rows.Count - 1 , Plage.Columns.Count)

Plage.Select

' Lecture de la plage pour renvoyer une valeur contenant un tableau

Array1 = Plage.Value

' Ecriture des données depuis Excel vers les enregistrement de la table Factures

For x = 1 To UBound (Array1, 1 )

With Rs1

.AddNew

.Fields( "NoFacture" ) = Array1(x, 1 )

.Fields( "Client" ) = Array1(x, 2 )

.Fields( "Date" ) = Array1(x, 3 )

.Fields( "Solde" ) = Array1(x, 4 )

.Update

End With

Next

' Fermeture de la base Commandes.mdb

Db1.Close

' Effacement des données copiées vers la base (sauf les titres)

With Selection.CurrentRegion

Intersect(.Cells, .Offset( 1 )).Select

End With

Selection.ClearContents

End Sub


Comment pourrais je reussir mon exportation sans message d'erreur s'il vous plaît?

Merci d'avance

[vansss]

merci de ta reponse Helas!!

mais étant vraiment débutante, qu'est que je dois faire apres avoir rentré tes lignes de programme?????


merci encore