Discussion :

[skillipo]

Bonjour,

je voudrais apartir d'une requete SQL

Code :

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

1
2
 
SELECT * FROM TAB

recuperer des informations que je voudrais Eventuellement changer en tableau (EXCEL au meilleur des cas ) et le passer en parametre a ma Function Automation01 , qui va la coler dans ma feuille Excel a un un cellule (D,25)


MERCI DE VOTRE AIDE .

DERNIER JOUR DU PROJET ..... MERCI DE VOTRE AIDE DEPUIS LE DEBUT

[Invité]

Bonjour

Pour changer une requête SQL en tableau tu as la possibilité en passant par les recordset d'utiliser la méthode GetRows.

De plus dans nos pages cours, tu as un excellent article de Caféine, pour ton cas il faudra passer par automation. Tu as aussi des exemples dans la FAQ.

[skillipo]

j'ai bien cherché et j'arrive pa a trouver l'article .

peut tu me donner le liens STP .

MERCI

[Invité]

Il est sur cette page : http://access.developpez.com/cours/

Et il se nomme Intéraction avec Excel, de plus regardes la FAQ.

[skillipo]

Bonjour ,

Voici mon 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
15
16
17
18
19
20
21
 
  Do Until TabTempo.EOF
   DoCmd.SetWarnings False
 
        If IsEmpty(TabTempo![e-mail Consolidation]) Then
 
         'Unique mail
         MsgBox "unik"
             'ExcelAutomation01 TabTempo![legal entity], TabTempo![contact name], TabTempo![e-mail], TabTempo![phone contact], TabTempo![Product name]
             'Envoi TabTempo![e-mail Consolidation]
 
        Else
        MsgBox "mutli"
             If TabTempo![e-mail Consolidation] <> Empty Then
             Dim TabTempoConsolidation As DAO.Recordset, listLegalEntities As Variant
 
             'MsgBox
             Set TabTempoConsolidation = Mba.OpenRecordset("SELECT DISTINCT [Consolidation Req].[legal entity] FROM [Consolidation Req] WHERE [Consolidation Req].[Product name Consolidation]= TabTempo![Product name] And [Consolidation Req].[e-mail Consolidation]= TabTempo![e-mail] AND [Consolidation Req].[Email Status]='False' ") 'GROUP BY [Consolidation Req].[legal entity]
 
 
listLegalEntities = TabTempoConsolidation.GetRows

une question ,

si je fais une boiucle sur ma TabTempoConsolidation est que je recupere a chaque fois la en question est je stock ca dans "listLegalEntities = TabTempoConsolidation.GetRows "

est ce que a la fin de ma boucle je vais recuperer toute les infos , ou chaque ligne va ecraser celle d'avant ??.

Cordialement

[DMboup]

Il me semble que GetRows te renvoi le nombre total de ligne du premier coup. Donc pas besoin de boucler pour ca.

Par contre en faisant ta boucle tu risque d'avoir à la fin une seule ligne.

Après tout, tu n'as qu'à tester pour voir.

[skillipo]

bonjour voici mon 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Sub Simple_Send()
    Dim Mba As Database, TabTempo As DAO.Recordset, NumId As Variant
 'Dim MAX_NUM As Integer 'Id de la table LegalEntity
    Set Mba = CurrentDb()
    Set TabTempo = Mba.OpenRecordset(" SELECT * FROM  [Consolidation Req] WHERE  [Email Sent]= True ") ' possiblity of LegalEntity= True AND
   
   Do Until TabTempo.EOF
   DoCmd.SetWarnings False
   
        If IsEmpty(TabTempo![e-mail Consolidation]) Then
        
         'Unique mail
         MsgBox "unik"
             'ExcelAutomation01 TabTempo![legal entity], TabTempo![contact name], TabTempo![e-mail], TabTempo![phone contact], TabTempo![Product name]
             'Envoi TabTempo![e-mail Consolidation]
        
        End If
        MsgBox "mutli"
        If TabTempo![e-mail Consolidation] <> Empty Then
             Dim TabTempoConsolidation As DAO.Recordset
             Dim listLegalEntities As Table
             
             Set TabTempoConsolidation = Mba.OpenRecordset(" SELECT Name, Address, City, Email FROM [Reach Contacts] WHERE Name IN (SELECT DISTINCT [Consolidation Req].[legal entity] FROM [Consolidation Req] WHERE [Consolidation Req].[Product name Consolidation]= '" & TabTempo![Product name] & "' And [Consolidation Req].[e-mail Consolidation]= '" & TabTempo![e-mail] & "' AND [Consolidation Req].[Email Status]= False)")
                
      
             
            'je voudrais recupere ma " TabTempoConsolidation " sous forme de tableau Exce ou autre pour pouvoir le passer en parametre a une function qui ma le le coller dans un cellule de tableau 
            
        
        End If
        
       
       
   TabTempo.MoveNext
   Loop
    
 
End Sub

MERCI