Une table excel liée mais de lignes en colonnes

[docjo]

Bonjour

Les bilans biologiques de mes patients me sont donnés dans un logiciel ou je peux copier les résultats dans le presse papier en colonne:

hemoblobine 14
Plaquettes 145

Si j'ouvre une feuille excel, je peux copier les résultats selon ce même format.
Si je veux lier ces résultats à une base de données access, les champs devraient être:

biologie_ID hemoglobine Plaquettes
145 14 145

Ma question: L'idéal serait de cliquer sur un bouton "nouvelle bioogie" dans le formulaire du patient dans access, puis ouvrir le fichier excel et coller la biologie avant de retourner dans access. Mais comment lier cette feuille unique excel contenant les résultats biologiques de tous les patients à chaque patient ? (chaque résutat pourrait correspondre à un enregistrement biologie_ID pour un patient patient_ID).

Tout cela doit tourner dans une routine derrière un bouton dans excel car ce sont mes externes (qui ne sont ni médecins ni informaticiens) qui doivent le faire.

Merci d'avance, j'ai parcouru les forums, tourné le problème dans touts les sens mais je ne vois pas .

[jpcheck]

bonjour,
peux tu nous faire un screenshot (en floutant si nécessaire) de la feuille excel, pour qu'on te dise la solution la plus adéquate à ton pb

[docjo]

Bonjour




Comme vous pouvez le constater, mes champs excels sont en colonne. pour les importer dans la table access il faudrait que je copie les données pour les transposer sous excel avant de les importer dans access. Mon problème c'est que cela doit être une routine accessible par le plus grand nombre:
exemple:

1. Je clique sur un bouton dans access qui m'ouvre une feuille excel

1. je colle les données en colonne

1. je referme excel et je retombe sur la fiche du patient dans access

Bien sûr, il manque le champ ID_patient qui me lie l'examen biologique à un patient
Merci

[jpcheck]

bonjour,
je pense qu'il faut "simplement" passer par du code VBA avec une idée comme ceci :
en ajoutant les références DAO dans le projet excel

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
25
26
27
28
29
Function test() as Boolean
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim strSQL as String
Dim j as Integer
Dim result As Boolean
    result = False
    On error goto fin
    Set db = OpenDatabase("C:\path_de_la_base\base.mdb", False)
    strSQL = "SELECT ID_Biologie, date_biologie, heure_biologie, leucocytes, hb, plaquettes FROM T_Biologie ORDER BY ID_Biologie;"
    Set RS = db.OpenRecordSet(strSQL)
j=2
 
    Do Until RS.EOF
    Cells(1,j).Value = RS!ID_Biologie
    Cells(2,j).Value = RS!Date_Biologie
    Cells(3,j).Value = RS!Heure_Biologie
    Cells(4,j).Value = RS!Leucocytes
    Cells(5,j).Value = RS!HB
    Cells(6,j).Value = RS!Plaquettes
    j = j+1
    RS.MoveNext
    Loop
    db.Close
    test = True
    Exit Function
fin:
test = False
End Function

tiens moi au courant