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 leL'erreur pointe sur la ligne -> SelectTaskField Row:=1, Column:="Texte1"
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
Partager