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 49 50 51 52 53
| Private Sub Commande194_Click()
'Publipostage vers MS Project
'Déclaration des variables
Dim project As MSProject.Application
' Initialisation
Set project = CreateObject("msproject.application")
'Création d'une table
project.FileNew
'Attribution du nom des tâches, des durées et dates
'Jalon début
project.SelectTaskField 0, "Nom"
project.SetTaskField "Nom", "Début"
project.SelectTaskField 0, "Durée"
project.SetTaskField "Durée", "0"
'Tâche 1
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Ptache1 & "
'Sous-Tâche 2
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Stache2 & "
project.SelectTaskField 1, "Durée"
project.SetTaskField "Durée", "4"
'Sous-Tâche 3
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Stache3 & "
project.SelectTaskField 1, "Durée"
project.SetTaskField "Durée", "2"
'Sélection des tâches pour faire des sous-tâches de Tâche 1
project.SelectRow -3, , 3
project.OutlineIndent
'Jalon Fin
project.SelectTaskField 0, "Nom"
project.SetTaskField "Nom", "Fin"
project.SelectTaskField 0, "Durée"
project.SetTaskField "Durée", "0"
'Enregistrement du fichier
project.FileSaveAs "C:\" & Me.ID & "\" & Me.Titre & ".mpp"
'Fermeture du fichier
project.FileExit pjSave
End Sub |
Partager