Discussion :

[francky42]

Bonjour à tous,
je vous explique mon problème au mieux possible.
Alors j'ai deux tables dans une même base access, donnees1 et donnees2.
Dans donnees1 j'ai comme champ Date_enr 1 2 3 4 5 6 jusqu'à 200
et dans la 2 Date_enr 202 203 204 ...
Et je voudrais récupérer par excel les valeurs des champs des 2 tables lorsque sur l'enregistrement on a int([202)] égal à une variable.
En faite je voudrais "garder en mémoire" Date_enr lorsque int([202]) est égal à ma variable.
Puis effectuer la requête avec seulement les dates qui ont été "garder en mémoire".

Merci d'avance

[garion28]

une ptite question: pourquoi tu n'utilise pas access pour faire la totalité de ton application ?

[francky42]

Merci garion38 de t'interesser au sujet.
En faite j'ai récupéré des données d'automates via serveur opc que je mets dans une base access.
Après la base de données je préfère ne pas y toucher j'ai déjà fait tout le reste, il me faut juste sauvegarder les dates d'enregistrements pour les reprendre dans une autre requète.
Voilà une partie du code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set rsSource2 = dbSource.OpenRecordset("SELECT int([Date_enr]) FROM Donnees2 WHERE int([202]) = " & Str(Me.BLRecherche.Value), dbOpenDynaset)
For i = 0 To rsSource2.Fields.Count - 1
        If (ValidDesigne2(i) = True) Or (i = j) Then
        Sheets(1).Cells(Ligne, Colonne) = rsSource2.Fields(i)
                Select Case rsSource2.Fields(i).Type
                    Case 4, 7
                        Sheets(1).Cells(Ligne, Colonne).NumberFormat = "#00.00"
                    Case 8
                        Sheets(1).Cells(Ligne, Colonne).NumberFormat = "dd/mm/yy h:mm:ss"
                End Select
                Colonne = Colonne + 1
        End If
        Next i
        rsSource2.MoveNext

Voilà voilà, merci encore

Je pensais faire un truc du genre comme cela :

Code :

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

1
2
3
4
For i = 0 To rsSource2.Fields.Count - 1
   tableau(i) = CInt([Date_enr])
   Next i
   Set rsSource = dbSource.OpenRecordset("SELECT * FROM Donnees WHERE Date_enr =  tableau(i) &  ORDER BY Date_Enr;", dbOpenDynaset) ' On me jette ici et c'est bien normal c'est un tableau et je ne fais pas la bonne démarche

Désolé si je vous fait peur avec ce que je marque
Merci