Discussion :

[vba_lieb]

Bonjour à tous,

J'utilise ceci : Manipuler les données des bases Access depuis Excel
Fonctions en VBA basées sur ADODB pour les développeurs

Site : https://laurent-ott.developpez.com/t...-depuis-excel/


J'ai crée un bouton qui me permet de rajouter une fiche dans ma base de donnée ACCESS. (table OF_GENERAL)

Pour chaque fiche, j'ai plusieurs taches dont le nombre est aléatoire.

Les taches sont inscrites dans la table Table_TACHES_OF dont voici une copie d'écran.



ID_OF correspond à la clé primaire de ma fiche. La relation est effectué et ça fonctionne.

L'intégration de fiche est automatisé. Toutefois parfois, certaines n'etant pas dans la base de donnée du autre client, on est obligé de les saisir manuellement.

J'ai donc créer un bouton pour cela.
Par contre, et c'est la ma difficulté :

J'ai un USERFORM (Excel) qui propose de sélectionner une tache depuis un combobox avec 2 boutons : Terminé et Ajouter une nouvelle tache.

Je voudrais créer une mémorisation des taches que l'utilisateur à sélectionné. Il peut en rajouter 1,2 , 5 , 10,...

Et quand il clique sur Ajouter une nouvelle tache, cela inscrit l'ID de la fiche (ça c'est pas un souci) dans ma table Table_TACHES_OF et toutes les taches que l'utilisateur à ajouter. Toutes les taches auront le statut "En attente"

Espérant avoir donné des explications pas trop complexe.

Au plaisir de vous lire

[User]

Bonjour,

J'ignore comment vous sélectionnez vos tâches mais en supposant que leurs références soient enregistrées dans un tableau et connaissant l'id_of :

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
21
22
    Dim t As Variant, leSQL As String
    Dim id_of As Long, id_tache As Long, i As Long
    Dim dt_debut As Date, dt_fin As Date
 
    t = Array(2, 3, 5, 7) ' tableau des tâches 2, 3, 5, 7
 
    id_of = 21
 
    dt_debut = #3/27/2025#: dt_fin = #3/27/2025#
 
    ' parcours des id(s) des tâches
    For i = LBound(t) To UBound(t)
        id_tache = t(i)
        leSQL = "INSERT INTO TABLE_TACHES_OF (ID_OF, REF_TACHE, DATE_DEBUT, DATE_FIN, STATUT) " & _
                "VALUES (" & id_of & "," & id_tache & ",#" & Format(dt_debut, "mm/dd/yyyy") & "#,#" & Format(dt_fin, "mm/dd/yyyy") & "#,'En attente');"
         ' exécution de la requête insertion (id_of ,id_tache,date_deb, date_fin, statut) -> TABLE_TACHES_OF
        ' CurrentDb.Execute leSQL, dbFailOnError ' sous Access
        Execute_SQL Cnn:=Cnn1, _ 
            StrSQL:=leSQL, _ 
            ActionSiErreur:=IgnorerErreur  ' sous Excel (d'après le tuto)
 
    Next i

Avec un modèle de requête insertion :

https://learn.microsoft.com/fr-fr/of...oft-access-sql