Bonjour,

Afin d'alléger le travail de planification sur des longs fichiers sous ms-project 2003, j'ai créé une petite macro.

La macro est simple, Se déplacer, insérer une ligne, copier une valeur et la coller sur une autre colonne de la nouvelle ligne créée, supprimer les 3 derniers caractères (-10).

[edit]: Cela fonctionne sur certains fichiers, mais pas tous, et pas sur le plus volumineux et important... Naturellement! J'ai l'Erreur d’exécution '1004' -> Erreur inattendue avec la méthode.

Un grand merci d'avance pour votre aide

Voici le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AjoutTitreNvElementUP()
    SelectTaskField Row:=-3, Column:="Nom"
    EditInsert
    SelectTaskField Row:=1, Column:="Texte1"
    EditCopy
    SelectTaskField Row:=-1, Column:="Nom"
    EditPaste
    Find Field:="Nom", Test:="Contient", Value:="-10", Next:=True, MatchCase:=False
    Application.Replace Field:="Nom", Test:="Contient", Value:="-10", Replacement:="", ReplaceAll:=False, Next:=True, MatchCase:=False
    FindNext
    OutlineOutdent
    SelectTaskField Row:=-1, Column:="Nom"
End Sub
L'erreur pointe sur la ligne -> SelectTaskField Row:=1, Column:="Texte1"