access --> ms projet [Résolu]

[Simon777pb]

Bonjour la gang,

Je tiens à remercier GALIO qui m'a gentiment dit que je devais seulement mettre un seul sujet par poste. J’ai encore beaucoup à apprendre étant donné que je suis nouveau!

J'aimerais savoir si c'est possible, par du code VBA à partir d'Access 2007 de créer un fichier ms projet 2003 !

J'ai une table projet, contenant
- date de début prévue
- date de fin prévue
- Date de début réel
- Date de fin réelle

J'aimerais afficher ses dates dans un diagramme de gant ms projet.
En rouge ça serait par exemple les dates prévues (baseline)
Et en bleu ça serait les dates réelles
Quelque chose du genre!!!

Est-ce que c'est possible?

Sinon, est ce que il existe des template excel qui pourrais faire le même genre de travail ?

Bref est-ce que quelqu'un a déjà essayé de faire quelque chose comme cela ( C'est mon patron qui me le demande j'ai pas le choix !)

J'ai fait plusieurs recherches sur le net, mais je n'ai pas trouvé beaucoup d'information sur le Access 2007 vers ms projet 2003


J'aimerais également être capable également d'enregistrer le résultat dans un fichier PDF
(car ce n'est pas tout le monde qui a projet ici!)

On utilise pdf creator !

Si vous êtes capable de me trouver quelque liens de référence cela pourrais être très utile

Merci d'avance, comme toujours vous êtes les meilleures

[curt]

Bonjour,

Il est possible de passer de Access à Project. Il faut pour celà sélectionner les infos à transférer via une requête. Le fait de mettre des barres de temps en couleur reste un détail (c'est le plus facile)

Un peu de recherche dans le forum Access avec Project Access en mots clés te donneras d'excellent piste (idem dans le forum project)

Par contre, vouloir imprimer en PDF un Gantt Project pour ceux qui n'ont pas project... ça va pas être possible.


Peux-tu mettre ta base en pièce jointe ? En cas de soucis, ça sera plus facile de t'aider...

Bienvenue au club

Curt

[Simon777pb]

Salut,

Je vais regarder dans la recherche et te tenir au courant!

Je ne peux malheureusement pas t'envoyer ma BD au complet! (d'ailleurs, je ne savais même pas que c'était possible de mettre une BD en pièce jointe dans le forum coooool !)

Je vais essayer de juste t'envoyer la table en question!

Je continue mes recherches et je vous tiens au courant.
Lorsque je vais avoir trouvé, je vais poster mon code pour aider les autres...

En attendant si quelqu'un sait comment imprimer un projet en PDF caserait très utile. ( Je sais que c'est possible d'imprimer un état accès en PDF j'ai vu le code quelque part ici. J'imagine alors que c'est possible d'imprimer un projet PDF aussi !)

Merci pour ta réponse rapide je vous tiens au courant de mes recherches promis promis...

Merci pour l'accueil également ;-)

[Simon777pb]

Envoyé par curt

Bonjour,

Il est possible de passer de Access à Project. Il faut pour celà sélectionner les infos à transférer via une requête. Le fait de mettre des barres de temps en couleur reste un détail (c'est le plus facile)

Curt

As tu un exemple de code a nous montrer ?
As tu un lien a nous donner !

Ca semble si facile pour toi, cependant ce ne l'est pas tellement pour moi ! hihihi

Ciao

[curt]

Bonsoir Simon777pb,

comme je le disais, un peu de recherche, notamment dans le forum Project t'aurais mené à celà : http://www.developpez.net/forums/d82...-inaccessible/

La solution est en bas de la discussion !

Curt

[Simon777pb]

Merci curt!

je vais regarder ca au courant de la semaine prochaine!

Ca a l'air super ce que tu as écrit !
Très gentil de ta part

Ciao

[Simon777pb]

Salut la gang,

Merci pour vos informations,

Je crois queje vais tout simplement essayé de faire mon propre graphique en Excel!

Ce n'est pas tout le monde qui a access a msprojet ici Excel étant plus simple !

Merci pour lesi nformations je vais les prendre en notes et les utliser dans d'autre projet future !

Ciao

[Mike550]

Bonjour,
Tu peux faie les graphiques directement en access.

[curt]

Bonsoir,

toujours la même réflexion... On passe tout sur Excel

Pourtant, Access (puisqu'on est dans le forum Access !!) fait très bien les graphiques.

Maintenant si tu trouves plus simple de traiter des données avec Excel et faire du Gant avec le même Excel...

Curt

[Simon777pb]

Salut la gang,

J'étais pas au courant que Access étant capable de faire des graphiques directement intégré !!! Penses-tu que ca pourrais vraiment résoudre mon problème...

je n'avais pas mais pas du tout pensé a cette solution !
Je vais y jeter u coup d'oeil

Merci

[Simon777pb]

Pour les curieux voici le code gant qui génère le diagramme de gant en question que je voulais faire

Code :

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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
Public Sub RapportGant()
'================
' ERREUR GOTO   |
'================
On Error GoTo GESTION_ERROR:
 
    Dim ERREUR_EXCEL(3) As String
    ERREUR_EXCEL(0) = "GANT.XLS"
    ERREUR_EXCEL(1) = CODE_GLOBALE.get_Username_Conn
    ERREUR_EXCEL(2) = "RapportGant"
    ERREUR_EXCEL(3) = "Excel_Rapport"
 
'=================================
' initialisations des variables  |
'=================================
 
' Déclaration des variables nécessaires pour travailler sur le classeur excel.
Dim appexcel As Excel.Application
Dim classeurexcel As Excel.Workbook
Dim feuilleexcel As Excel.Worksheet
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim ssql As String
 
 
Dim cheminModele As String
 
Dim PremierLundi As String
Dim Temporaire As String
Dim i As Double
Dim StrAnnee As String
Dim Trouve As Boolean
 
Dim MaDate As Date
Dim AncienMois As Double
Dim NouveauMois As Double
Dim j, k As Double
Dim MaDateDebut As Date
Dim MaDateFin As Date
 
Dim DTemporaireOrdreReseau As Double
Dim sTemporaireOrdreReseau As String
 
'fermeture de tout les excel deja ouvert présentement pour éviter les problèmes
TerminateExcel.TerminateExcelProcess
 
'valider et créer le chemin du repertoire ou nous allons mettre notre fichier
CODE_GLOBALE.CREATIONFICHIERLOCAL
 
'///
'CREATION DU FICHIER
' ///
'Ouverture de l'application Excel
Set appexcel = CreateObject("Excel.Application")
 
'Ouverture d'un fichier Excel
cheminModele = chemin_Connexion.GetTEMPLATE("R2")
Set classeurexcel = appexcel.Workbooks.Open(cheminModele)
 
'Ouvrir le fichier sur la premiere FEUILLE #1
 
 
    Set feuilleexcel = classeurexcel.Worksheets(1)
 
    'on met le display a false pour ne pas avoir de gestion de message excel ( et donc écraser le fichier si il existe deja)
    classeurexcel.Application.DisplayAlerts = False
    'maintenant remplir les case
 
 
 
    '///
    'prendre le premier lundi du mois de Janvier
    '///
    StrAnnee = Format(DateAdd("m", 0, Date), "yyyy")
    'StrAnnee = "2013"
    Trouve = False
    For i = 1 To 9
        Temporaire = StrAnnee + "-01-0" + Trim(Str(i))
 
        If DatePart("w", Temporaire) = vbMonday And Trouve = False Then
            Trouve = True
            PremierLundi = Temporaire
        End If
    Next i
    'MsgBox (PremierLundi)
 
    '///
    'Maintenant répartir tout les lundis
    '///
    ' pour la première date mettre la valeur du prem,eir lundi par default
    MaDate = CDate(PremierLundi)
    'position le "curseur" au bon endroit dans le excel
    feuilleexcel.Range("F2").Select
    AncienMois = 1
    For i = 1 To 53
        feuilleexcel.Range("F2").Offset(0, i).Value = Day(MaDate)
        NouveauMois = (Month(MaDate))
          j = j + 1
          If NouveauMois <> AncienMois Then
            ' on change de mois (il faut faire la fusion !!!! et écrire le mois)
            feuilleexcel.Range(feuilleexcel.Range("F2").Offset(-1, i - 1), feuilleexcel.Range("F2").Offset(-1, (i - j + 1))).Merge
 
           'Maintenant on écrit le mois dans la case nouvelle fusionné
            feuilleexcel.Range("F2").Offset(-1, (i - j + 1)).Value = Validation_champ_txt.FormaterChaine(MonthName((AncienMois)))
 
            'on réinitialise le tout
            AncienMois = NouveauMois
             j = 1
        End If
 
        MaDate = CDate(PremierLundi) + (7 * i)
    Next i
'Next MaPage
 
'///
'Maintenant afficher chacune des lignes
'///
Set db = CurrentDb()
 
'//////
' requête SQL pour les projet PREVUE
'/////
ssql = "SELECT * FROM TBL_Projet WHERE year(Date_Debut_prevue) = '" + StrAnnee + "' and year(Date_Fin_prevue) = '" + StrAnnee + "'"
Set rst = db.OpenRecordset(ssql, dbOpenDynaset)
k = 2
 
' si ce n'est pas vide
If Not rst.EOF Then
' on se positionne au début
  rst.MoveFirst
  While Not rst.EOF
        k = k + 1
 
 
 
 
    'les date
    feuilleexcel.Range("BH" & Trim(Str(Trim(k)))).Value = TBL_Projet_Modif.GET_SQL_SELECT_DebutPrevue(rst.Fields("PK_Projet"))
    feuilleexcel.Range("BI" & Trim(Str(Trim(k)))).Value = TBL_Projet_Modif.GET_SQL_SELECT_FinPrevue(rst.Fields("PK_Projet"))
 
    MaDateDebut = CDate(feuilleexcel.Range("BH" & Trim(Str(Trim(k)))).Value)
    MaDateFin = CDate(feuilleexcel.Range("BI" & Trim(Str(Trim(k)))).Value)
 
    ' maintenant faire la genre de liaison et le placement dans les tables
    MaDateDebut = (Format(MaDateDebut, "ww")) - 1
    MaDateFin = (Format(MaDateFin, "ww")) - 1
 
    'petit truc pour la semaine 0
    If MaDateDebut <= 0 Then
        MaDateDebut = 1
    End If
    If MaDateFin >= 53 Then
        MaDateFin = 53
    End If
 
 
    feuilleexcel.Range(feuilleexcel.Range("F2").Offset(k - 2, MaDateDebut), feuilleexcel.Range("F2").Offset(k - 2, MaDateDebut + (MaDateFin - MaDateDebut))).Merge
    feuilleexcel.Range("F2").Offset(k - 2, MaDateDebut).Interior.ColorIndex = 33
    feuilleexcel.Range(feuilleexcel.Range("F2").Offset(k - 2, MaDateDebut), feuilleexcel.Range("F2").Offset(k - 2, MaDateDebut + (MaDateFin - MaDateDebut))).Borders.LineStyle = xlDouble
 
 
    rst.MoveNext
  Wend
End If
 
''///
' FERMETURE DU OUVEAU FICHIER
'///
        ' on sauvegarde temporaire
 
        classeurexcel.SaveAs FileName:=chemin_Connexion.GetARCHIVE("temps-local") + "\GANT.xls"
 
        'on met le display a true pour éviter les mauvaise surprise
        classeurexcel.Application.DisplayAlerts = True
 
 
        classeurexcel.Close
 
        Set feuilleexcel = Nothing
        Set classeurexcel = Nothing
        Set appexcel = Nothing
FIN:
Exit Sub
'=================
' GESTION ERREUR |
'=================
GESTION_ERROR:
MsgBox (err.Number & "---" & err.description)
  Fichier_log.EcrireMessageErreur 112, ERREUR_EXCEL
Resume FIN:
End Sub