Analyse chronologique croisant tâches et ressources dans Project

Bonjour

Faut passer par du VBA donc pas de solutions simples (du moins à ma
connaissance). Voici de quoi vous inspirer pour un début (copier/coller de
l'aide VBA incluse dans Project). Après pour généraliser et exporter vers
Excel il suffit de vous reporter à mon PDF et vous inspirer des codes
disponibles.

L'exemple suivant montre comment afficher le nombre d'heures de travail par
jour pour une ressource pendant toute la première semaine du mois d'octobre.
Dans cet exemple, l'affichage actif est l'un des affichages des ressources.

Sub WorkHoursPerDay()
Dim TSV As TimeScaleValues, HowMany As Long
Dim HoursPerDay As String

Set TSV = ActiveCell.Resource.TimeScaleData("10/7/02", "10/11/02", _
TimescaleUnit:=pjTimescaleDays)

For HowMany = 1 To TSV.Count
If TSV(HowMany).Value = "" Then
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": 0 hours" & vbCrLf
Else
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": " & TSV(HowMany).Value / 60 & _
" hours" & vbCrLf
End If
Next HowMany

MsgBox HoursPerDay

End Sub

un peu de boulot quoi...

Cordialement


"stephane75999" wrote:

Bonjour,

j'ai un planning Project (2000) et souhaite faire une analyse chronologique.

Je voudrais exporter dans une même feuille Excel :
- les tâches ;
- les ressources ;
- les dates d'affectation (jour par jour).

En gros, je voudrais savoir "qui fait quoi quand", et exploiter les données
sous Excel.

Y a-t-il une solution ?

Merci par avance de votre aide.

Stéphane.

Bonjour,
merci
je vais essayer de creuser ;-)
Cordialement,
Stéphane.

Bonjour

Faut passer par du VBA donc pas de solutions simples (du moins à ma
connaissance). Voici de quoi vous inspirer pour un début (copier/coller de
l'aide VBA incluse dans Project). Après pour généraliser et exporter vers
Excel il suffit de vous reporter à mon PDF et vous inspirer des codes
disponibles.

L'exemple suivant montre comment afficher le nombre d'heures de travail par
jour pour une ressource pendant toute la première semaine du mois d'octobre.
Dans cet exemple, l'affichage actif est l'un des affichages des ressources.

Sub WorkHoursPerDay()
Dim TSV As TimeScaleValues, HowMany As Long
Dim HoursPerDay As String

Set TSV = ActiveCell.Resource.TimeScaleData("10/7/02", "10/11/02", _
TimescaleUnit:=pjTimescaleDays)

For HowMany = 1 To TSV.Count
If TSV(HowMany).Value = "" Then
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": 0 hours" & vbCrLf
Else
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": " & TSV(HowMany).Value / 60 & _
" hours" & vbCrLf
End If
Next HowMany

MsgBox HoursPerDay

End Sub

un peu de boulot quoi...

Cordialement


"stephane75999" wrote:

Bonjour,

j'ai un planning Project (2000) et souhaite faire une analyse chronologique.

Je voudrais exporter dans une même feuille Excel :
- les tâches ;
- les ressources ;
- les dates d'affectation (jour par jour).

En gros, je voudrais savoir "qui fait quoi quand", et exploiter les données
sous Excel.

Y a-t-il une solution ?

Merci par avance de votre aide.

Stéphane.