Discussion :

[gust]

Bonjour à tous,

Je suis entrain de créer un reporting excel à partir de mes données Access.

1) Je fais un groupement par plan avec le code suivant:

Code :

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

  xlSheet.Rows(CStr(i_sav) & ":" & CStr(i_ligne - 1)).Group

Je voudrais le déduire, mais je n'est pas trouvé le code

2) Quand j'utilise la fonction formula de Access vers Excel comme par exemple :

Code :

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

xlSheet.Cells(i_sav - 1, i_colonne + 8).Formula = "=SOMME(H" & CStr(i) & ";F" & CStr(i) & ";D" & CStr(i) & ")" 'total valeur

Dans mon fichier excel, j'ai #NOM? et je suis oubligé de cliquer dessus et de faire "ENTER" pour que la formule marche.
Comme je peux faire pour résoudre ce pb

3) Quand j'utilise aussi la fonction formula un peu plus loin dans mon code.
j'ai une erreur "1004: Erreur définie par l'application ou par l'objet"
Je ne vois pas d'où vient le pb


Merci d'avance pour vos réponses éclairées

[Lou Pitchoun]

Salut,
1)

Je voudrais le déduire,

?? le réduire non ?

Code :

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

xlSheet.Rows(CStr(i_sav) & ":" & CStr(i_ligne - 1)).Showdetail = True

Je n'ai pas essayé, mais la propriété semble être Showdetail. Voir l'aide.

2) Essaie avec ça :

Code :

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

..."=SUM(H"...

Je ne suis pas sur mais essaie quand même.

3) Et le code où ça coince ??

[gust]

1) sur la méthode Showdetail j'ai une erreur de type "1004 : La méthode ShowDetail de la classe Range a échoué.

2) Résolu , ça marche avec "=SUM...."

3) voici le code

Code :

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

1
2
3
4
  For i = i_sav To i_ligne
        xlSheet.Cells(i_sav - 1, i_colonne + 7).Formula = "=SUM(G" & CStr(i) & ";E" & CStr(i) & ";C" & CStr(i) & ")" 'total quantité
        xlSheet.Cells(i_sav - 1, i_colonne + 8).Formula = "=SUM(H" & CStr(i) & ";F" & CStr(i) & ";D" & CStr(i) & ")" 'total valeur
    Next

4) Autre petit pb, j'utilise la méthode RecordCount pour savoir mon nbre d'enregistrement. Dans le code le recordcount est tjrs à 1 mais quand je fais ma requete sous Access lors j'ai 166 enregistrement, je ne vois pas le pb

Code :

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

1
2
3
4
5
6
7
8
9
'---Quantité
        str_sql = "SELECT TMachines.Modele, TMachines.NonDispo"
        str_sql = str_sql & " FROM TMachines"
        str_sql = str_sql & " WHERE ((TMachines.Modele='" & str_modele & "') AND (TMachines.NonDispo=0) AND (TMachines.Stock=0));"
 
        Set myrsReport = mydb.OpenRecordset(str_sql)
 
        xlSheet.Cells(i_ligne, i_colonne + 5).Value = CStr(myrsReport.RecordCount)
        '---Fin Quantité

Merci de ton aide

[Lou Pitchoun]

1) As tu regardé l'aide sur Showdetail ?

2)

3) Remplace Cells par Range

4) Fait un debug sur

Code :

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

CStr(myrsReport.RecordCount)

pour voir la valeur affectée.

[gust]

1) oui code exacte (je pense)

Code :

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

xlSheet.Rows(CStr(i_sav) & ":" & CStr(i_ligne - 1)).ShowDetail = False

mais erreur "impossible de défiir showdetail de la clase RANGE"

3) Erreur "la méthode 'Range' de l'objet '_WorkSheet' à échoué"

4) quand je fais le debug, j'ai 1