Boxformat bug

Le
adesert
Bonjour,
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les taches de personnes saisies par l'utilisateur (PIC) sur une période donnée. Ces taches apparaissent dans le PERT avec un format "gras" et leurs prédecesseurs / successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4, cela plante (runtime error 1101).

Comment résoudre ce problème?

Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1, DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gérard Ducouret
Le #17483501
Bonjour,

J'ai un peu modifier votre procédure VBA, ainsi elle fonctionne très bien:
(version française)
Sub Network()
Dim jTask As Task
ViewApply Name:="Réseau &de tâches"
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
If jTask.Flag5 = True Then
BoxSet TaskID:=jTask.UniqueID
BoxFormat DataTemplate:="Standard", HorizontalGridlines:=True,
VerticalGridlines:úlse, BorderShape:=pjBoxWideRectangle,
BorderColor:=pjMaroon, BorderWidth:=4, BackgroundColor:=pjWhite,
BackgroundPattern:=pjBackgroundSolidFill, Reset:úlse
End If
End If
Next jTask
End Sub

Gérard Ducouret

"adesert"
Bonjour,
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les
taches de personnes saisies par l'utilisateur (PIC) sur une période
donnée. Ces
taches apparaissent dans le PERT avec un format "gras" et leurs
prédecesseurs /
successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4,
cela
plante (runtime error 1101...).

Comment résoudre ce problème?

Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1,
DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask


Publicité
Poster une réponse
Anonyme