Discussion :

[arakna]

Bonjour,
J'ai une application VB6 avec BDD Oracle.

J'ai une page qui permet de consulter les effectifs d'une entreprise.
Il faudrait que je puissent exporter les données de cette page vers une feuille excel (j'ai vu ce genre de chose dans le forum mais avec un TDBGrid et je ne vois pas comment adapter)

Voici les requêtes qui me permettent d'afficher les effectifs voulu. Comment créer ma feuille excel à partir de ça ?

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
'---------------------
' CALCUL DES EFFECTIFS
'---------------------
'-----------------------------
' Effectif en début de période
'-----------------------------
SQL1 = " SELECT COUNT(DISTINCT CODE_PERSONNEL) AS NB_EFFECTIF_DEB " & _
    " FROM      PERSONNEL " & _
    " WHERE     (PERSONNEL_ALTECA = 1 OR (NATURE_CONTRAT = 'Intérimaire') and (REMPLACE = '' or REMPLACE is null)) " & _
    " AND       DATE_EMBAUCHE_PERSONNEL<'" & DateDeb & "'" & _
    " AND       (DATE_DEBAUCHE_PERSONNEL>='" & DateDeb & "' OR DATE_DEBAUCHE_PERSONNEL IS NULL)"
If SuiviPersonnel_Form.SelectAgence(1).Value Then
  SQL1 = SQL1 & _
    " AND       CODE_AGENCE_PERSONNEL=" & SuiviPersonnel_Form.ChoixAgence.BoundText
End If
 
' SAN 23/02/06 fiche GIN 69 ajout des critères "type de contrat" et "profil personnels"
If SuiviPersonnel_Form.SelectContrat(0).Value = True Then
  SQL1 = SQL1 & _
    " AND NATURE_CONTRAT='CDI' "
End If
If SuiviPersonnel_Form.SelectProfil(0).Value = True Then
  SQL1 = SQL1 & _
    " AND STRUCTURE = 0 and RESPONSABLE_CONTRAT=0 "
End If
'fin SAN
 
Set rsNbEffectif.ActiveConnection = AccesBD.Gest
rsNbEffectif.Open SQL1
SuiviPersonnel_Form.TextEffectifDeb.Text = rsNbEffectif![NB_EFFECTIF_DEB]
rsNbEffectif.Close
'---------------------------
' Effectif en fin de période
'---------------------------
SQL1 = " SELECT COUNT(DISTINCT CODE_PERSONNEL) AS NB_EFFECTIF_FIN " & _
    " FROM      PERSONNEL " & _
    " WHERE     (PERSONNEL_ALTECA = 1 OR (NATURE_CONTRAT = 'Intérimaire') and (REMPLACE = '' or REMPLACE is null)) " & _
    " AND       DATE_EMBAUCHE_PERSONNEL<='" & datefin & "'" & _
    " AND       (DATE_DEBAUCHE_PERSONNEL>'" & datefin & "' OR DATE_DEBAUCHE_PERSONNEL IS NULL)"
If SuiviPersonnel_Form.SelectAgence(1).Value Then
  SQL1 = SQL1 & _
    " AND       CODE_AGENCE_PERSONNEL=" & SuiviPersonnel_Form.ChoixAgence.BoundText
End If
' SAN 23/02/06 fiche GIN 69 ajout des critères "type de contrat" et "profil personnels"
If SuiviPersonnel_Form.SelectContrat(0).Value = True Then
  SQL1 = SQL1 & _
    " AND NATURE_CONTRAT='CDI' "
End If
If SuiviPersonnel_Form.SelectProfil(0).Value = True Then
  SQL1 = SQL1 & _
    " AND STRUCTURE = 0 and RESPONSABLE_CONTRAT=0 "
End If
'fin SAN
Set rsNbEffectif.ActiveConnection = AccesBD.Gest
rsNbEffectif.Open SQL1
SuiviPersonnel_Form.TextEffectifFin.Text = rsNbEffectif![NB_EFFECTIF_FIN]
Eff_Fin = rsNbEffectif![NB_EFFECTIF_FIN]
rsNbEffectif.Close
'------------------
' Nombre de départs
'------------------
SQL1 = " SELECT COUNT(DISTINCT CODE_PERSONNEL) AS NB_DEPART " & _
    " FROM      PERSONNEL " & _
    " WHERE     (PERSONNEL_ALTECA = 1 OR (NATURE_CONTRAT = 'Intérimaire') and (REMPLACE = '' or REMPLACE is null)) " & _
    " AND       DATE_DEBAUCHE_PERSONNEL>='" & DateDeb & "'" & _
    " AND       DATE_DEBAUCHE_PERSONNEL<='" & datefin & "'" & _
    " AND       MOTIF_DEPART <> 'Mutation' " ' SAN : On ne veut pas comptabiliser une mutation comme un départ
 
'Attention, en réalité,les mutations sont saisies dans l'historique des postes d'un personnel
'SQL1 = " SELECT COUNT(DISTINCT CODE_PERSONNEL) AS NB_DEPART " & _
'            " FROM      PERSONNEL, HISTORIQUE " & _
'            " WHERE     (PERSONNEL_ALTECA = 1 OR (NATURE_CONTRAT = 'Intérimaire') and (REMPLACE = '' or REMPLACE is null)) " & _
'            " AND       DATE_DEBAUCHE_PERSONNEL>='" & DateDeb & "'" & _
'            " AND       DATE_DEBAUCHE_PERSONNEL<='" & datefin & "'" & _
'            " AND       MOTIFDEPART_HISTORIQUE <> 'Mutation' " & _
'            " AND       CODEPERSONNEL_HISTORIQUE=CODE_PERSONNEL"
 
If SuiviPersonnel_Form.SelectAgence(1).Value Then
  SQL1 = SQL1 & _
    " AND       CODE_AGENCE_PERSONNEL=" & SuiviPersonnel_Form.ChoixAgence.BoundText
End If
' SAN 23/02/06 fiche GIN 69 ajout des critères "type de contrat" et "profil personnels"
If SuiviPersonnel_Form.SelectContrat(0).Value = True Then
  SQL1 = SQL1 & _
    " AND NATURE_CONTRAT='CDI' "
End If
If SuiviPersonnel_Form.SelectProfil(0).Value = True Then
  SQL1 = SQL1 & _
    " AND STRUCTURE = 0 and RESPONSABLE_CONTRAT=0 "
End If
'fin SAN
 
Set rsNbEffectif.ActiveConnection = AccesBD.Gest
rsNbEffectif.Open SQL1
NbDepart = rsNbEffectif![NB_DEPART]
rsNbEffectif.Close
'-------------------
' Calcul du turnover
'-------------------
If Eff_Fin = 0 Then
  SuiviPersonnel_Form.TextTurnover.Text = "-"
Else
  temp = NbDepart / Eff_Fin
  SuiviPersonnel_Form.TextTurnover.Text = Format(temp, "0.00%") ' fonction permettant de multiplier par 100
End If
SuiviPersonnel_Form.txtEvolutionEffectif.Text = Eff_Fin - val(SuiviPersonnel_Form.TextEffectifDeb.Text)
' Une fois la requête exécutée, le bouton imprimer devient visible
SuiviPersonnel_Form.cmdImprimer.Visible = True

Merci de votre aide

EditT'as pas lu les règles du forum Alors voilà, pour que ton code soit lisible, tu sélectionnes ton code et tu fais un clic sur le bouton Code en haut de la fenêtre d'édition de ton message
Ceci dit, bienvenue sur le forum
Balises Code /code ajoutées par ouskel'n'or


Désolée pour les balises code ... j'avais lu les règles mais la dernière fois que j'ai effectué des recherches ...

[arakna]

Toujours pour la même application en VB6, j'ai un concepteur (état VB) qui me renvoie la liste des personnels. C'est état VB peut être exporté en HTML, mais il faudrait pouvoir l'exporter en EXCEL. Comment pourrai-je faire? faut-il que je crée un nouvel état avec crystal report?

Voici une partie du code pour mettre en forme l'état VB

Code :

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

1
2
3
4
5
Liste_Ingenieur.Sections("Section2").Controls("Shape17").Visible = EditionsPersonnel_Form.chkNomPrenom.Value
    Liste_Ingenieur.Sections("Section2").Controls("lblCol1").Visible = EditionsPersonnel_Form.chkNomPrenom.Value
    Liste_Ingenieur.Sections("Section1").Controls("txtNomPrenom").Visible = EditionsPersonnel_Form.chkNomPrenom.Value
    Liste_Ingenieur.Sections("Section1").Controls("Shape1").Visible = EditionsPersonnel_Form.chkNomPrenom.Value
    If EditionsPersonnel_Form.chkNomPrenom.Value <> 1 Then MargeG = 0 Else MargeG = Liste_Ingenieur.Sections("Section2").Controls("Shape17").Width + 60

Voici le code pour afficher l'état (il s'affiche directement avec la possibilité d'exporter en HTML)

Code :

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

Liste_Ingenieur.Show vbModal

[ouskel'n'or]

Bon, je n'ai pas la réponse que tu souhaites vu que je ne connais pas VB, ni le sql, ni lutilisation de crystal report (souvenirs trop lointains) mais si tu sais créer un txt, tu peux faire un csv avec séparateur point-virgule que tu pourras ouvrir depuis Excel.

Juste une idée comme ça mais qui pourrait te dépanner vue le grand nombre de réponses que tu as...

A tout hasard, donc

A+

[shinta]

je suis pas sur que cela puisse t'aider j'avoie ne pas avoir bien compris ta demande, mais si cherche a transferer le contenu d'une requete ds un classeur, ceci devrais pouvoir t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 'Ouvre la base access
    Set BaseAccess = CreateObject("access.application")
    BaseAccess.Application.OpenCurrentDatabase ("cheminDeTaBase")
    'Ouvre la requete source
    Set rec = CurrentDb.OpenRecordset(NomRequeteSource)
    'Crée un classeur tampon pour stocker les données
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, NomRequeteSource, "M:\temp.xls"
    Set xlbook = GetObject("M:\temp.xls")
    'Sauvegarde le fichier temp crée
    xlbook.SaveAs ("M:\IOS\SFR LCO\Workflows_solution_transitoire\dossiers crées a déposer\temp.xls")

[arakna]

Tout d'abord merci.

En fait, je n'ai pas une base de données Access mais Oracle donc je ne sais pas si ça pourrai fonctionner.

Sinon, je cherche en fait à créer un etat excel avec les résultats de plusieurs requêtes différentes.

ou bien à exporter un état VB vers excel

[arakna]

Bon, je n'ai pas la réponse que tu souhaites vu que je ne connais pas VB, ni le sql, ni lutilisation de crystal report (souvenirs trop lointains) mais si tu sais créer un txt, tu peux faire un csv avec séparateur point-virgule que tu pourras ouvrir depuis Excel.

En fait pour le premier problème, un export TXT avec des séparateurs ; éxistait déjà.... J'ai donc juste modifié l'extension de mon fichier en .csv et tout va bien sous excel.... merci


Il me reste le problème de mon état VB... s'il y a une solution pour m'éviter de refaire un état TXT ou crystal report.....

Merci[/quote]

[ouskel'n'or]

Il me reste le problème de mon état VB... s'il y a une solution pour m'éviter de refaire un état TXT ou crystal report....

pour ça, si tu patientes un peu, il y aura bien un "érudit" pour te dire ça, j'ai l'impression qu'aujourd'hui ils se sont mis en RTT...

Bonne chance

A+