Discussion :

[Lycanthe]

Bonjour

J'aurais besoin d'enregistrer certaines tâches d'un fichier project dans un fichier .csv

L'ennui, c'est que :

1) c'est la première fois que j'entends parler de ce type de fichier (mais bon, je me renseigne)

2) Les tâches que je dois enregistrer ont leur champs ''texte1'' à ''oui'' (c'est une liste de choix) et je dois les filtrer lors de l'enregistrement...

Alors je pense qu'il y a deux solutions : la première je me débrouille mal et la solution est sous mes yeux, la seconde, MSP n'a pas été crée dans ce sens et je dois passer par du VBA...

Est-ce que quelqu'un s'est déjà retrouvé confronté à ce problème ?

[Lycanthe]

Bon, A force de creuser le sujet, j'ai réussi à mettre dans un tableau booleen le filtre récupéré sur les tâches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function tab() As Variant
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
' Fonction renvoyant un tableau contenant les informations sur le filtrage 
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
 
Dim j As Integer
Dim REX As String
Dim Tableau() As Boolean 'définition du tableau
Dim tache As Task 
 
'--------------------------------------------------------------------------
 
'Détermination de la taille du tableau
j = ActiveProject.Tasks.Count
ReDim Tableau(j)
 
'--------------------------------------------------------------------------
 
'Quelles sont les tâches qui sont concernées par la sauvegarde ? trues : concernées, falses : pas concernées
 
For Each tache In ActiveProject.Tasks
 
'Est-ce que la tache est vide ?
 
    If Not tache Is Nothing Then 'Non la tache n'est pas vide
 
    'Est-ce que la tâche doit être sauvegardée ?
        If tache.Text1 = "Non" Then 'Non, pas de sauvegarde
            Tableau(j) = False
 
        ElseIf tache.Text1 = "Oui" Then 'Oui, elle doit être sauvegardée
            Tableau(j) = True
 
        End If
 
    Else 'Oui, la tache est vide
        Tableau(j) = False
 
    End If
 
Next tache
 
tab = Tableau()
 
End Function

Je bosse sur la partie sauvegarde en CSV, mais j'ai pas d'expérience dans le domaine, est-ce que quelqu'un sait comment faire ?

[Lycanthe]

rebonjour

voila ce que je fait pour tenter de sauvegarder en CSV.

L'ennui c'est que je fait planter project...

je ne vois pas où est l'erreur, est-ce que quelqu'un a une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Nom As String
Dim titre_fichier() As String
 
'Récupération du nom de fichier
Nom = ActiveProject.Name
MsgBox Nom
 
'On récupère la partie principale
titre_fichier = Split(Nom, ".")
Nom = titre_fichier(0)
 
 
SaveAs Name, pjCSV = "<>\" & Nom & ".csv" 'cette partie là fait tout planter...