Discussion :

[yoyo30]

Bonjour.

J'ouvre MS Project 2000 depuis Access 2000, une macro s'execute. Je referme MS Project 2000, et la Access 2000 plante. Je peux sauver, mais pas quitter, et les barres d'outils sont bloqué.

Qqn à déjà eu le problème.

[Frank]

Peux tu afficher ton code stp ?

[yoyo30]

Voici le code qui sélectionne et copie un enregistrement , et qui ouvre MS project

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
Private Sub nouveau_ms_project_Click()
On Error GoTo Err_nouveau_ms_project_Click
 
   Dim AppName As String
   Dim fils As String
   Dim chemin As String
 
   'atteindre le premier enregistrement sous formulaire
   DoCmd.GoToControl "sfm_exportation_msproject"
   DoCmd.GoToRecord , , acFirst
 
   'sélectionner l'enregistrement
   SendKeys "{tab}", True
   SendKeys "+ ", True
 
 'le texte est sélectionné, il nous reste qu'à le copier.
   DoCmd.RunCommand acCmdCopy
 
 
   'ouvrir le fichier dans MS-project
    fils = "Indus.mpt"
    AppName = "C:\Program Files\Microsoft Office\Office\WINPROJ.EXE"
    chemin = "C:\"
    ShellExecute Me.hwnd, "open", fils, AppName, chemin, 1
 
Exit_nouveau_ms_project_Click:
    Exit Sub
 
Err_nouveau_ms_project_Click:
    MsgBox Err.Description
    Resume Exit_nouveau_ms_project_Click
End Sub

et maintenant la macro qui est lancée à l'ouverture de MS Project

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
 
Sub Auto_open()
' Macro Macro1
' Macro enregistrée le Jeu 15.09.05 par Z1Gautier.
 
    'colle l'enregistrement de access
    SelectTaskField Row:=0, Column:="Texte1"
    EditPaste
 
    'supprime la ligne des titres 
     SelectRow Row:=0
    EditDelete
 
    'efface le contenu du champ
    SetTaskField Field:="Texte8", Value:=""
    SelectTaskField Row:=0, Column:="Nom"
 
End Sub

voila les codes.

[yoyo30]

je relance le topic, juste pour voir si qqn à entendu ou subit ce désagrément.

[yoyo30]

J'ai trouvé ce qui faisait planté.

c'était la fonction "EditPaste", je l'ai remplacé par:

Code :

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

sendkeys "^{v}", true

mais je ne sais toujours pas pourquoi ça faisait planté.