Discussion :

[Gabout]

Bonsoir,

J'ai cherche à créer un fichier .mde en vba.

J'ai essayé par Sendkeys, mais comme j'ai des barres de menus personalisées
Avec docmd.runcommand... j'ai trouvé une aide Microsoft

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GenerateMDEFile(MyPath As String)
   Dim NAcc As Access.Application
   Set NAcc = CreateObject("Access.Application")
   'Les lignes suivantes simulent l'acceptation du nom par
   'défaut, en cliquant sur Créer MDE, puis sur Enregistrer
   SendKeys MyPath & "{Enter}{Enter}"
   SendKeys "{Enter}"
   NAcc.DoCmd.RunCommand acCmdMakeMDEFile
   Set NAcc = Nothing
End Function
 
Private Sub Commande0_Click()
  GenerateMDEFile CurrentProject.Path & "\EvRP.mde"
End Sub

Ce code ouvre une seconde session d'Access ... en présentant la fenêtre d'enregistrement en .mde, le chemin et le nom de fichier sont corrects mais dès que e valide, cela me provoque un plantage général : fenêtre Access uniquement avec le fond, pas de menu... bref pas terrible.

Alors une idée peut être ?

[loufab]

Bonjour,

On retrouve ce code assez souvent :

Code :

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

1
2
3
4
5
6
7
8
9
Dim NAcc As Access.Application
 
Set NAcc = CreateObject("Access.Application")
'The following lines simulate accepting the default
'name, clicking Make MDE, and clicking Save
SendKeys MyPath & "{Enter}{Enter}"
SendKeys "{Enter}"
NAcc.DoCmd.RunCommand acCmdMakeMDEFile
Set NAcc = Nothing

Cordialement,

[Gabout]

Bonsoir loufab ,

Manifestement nos messages se croisent...
... une idée sur le plantage ? déjà je pense que la session de Sendkeys serait plutôt

Code :

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

1
2
   SendKeys MyPath & "{TAB}{TAB}"
   SendKeys "{Enter}"

[Gabout]

Re,

J'ai essayé de tester le code dans la fenêtre d'exécution par

Code :

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

?GenerateMDEFile("C:\EvRP.mde")

J'ai comme réponse

Erreur de compilation
Sub ou Function non définie

[loufab]

quand tu généres le fichier manuellement, il te donne te génére le mde ou non ?

[Gabout]

Oui, sans aucun problème...

La fenêtre d'enregistrement du fichier .mde est bien affichée, le chemin et le nom du fichier passés en paramètre sont bien pris en compte mais la création du fichier ne se fait pas, même en cliquant avec la souris sur le bouton [Créer] du formulaire... plantage !

[loufab]

Je pense que tu auras plus de chance d'aboutir avec les syscmd non documenté.

La 603 notamment.

Cordialement,

[Gabout]

Bonjour loufab,

Merci de ton aide.

Voilà ce sur quoi je suis arrivé

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdTest_Click()
  Dim objAccess
  Dim strPathInputMdb   As String
  Dim strPathOutputMde  As String
  strPathInputMdb = CurrentProject.FullName
  strPathOutputMde = CurrentProject.Path & "\EvRP.mde"
  Set objAccess = CreateObject("Access.Application")
  objAccess.SysCmd 603, strPathInputMdb, strPathOutputMde
  Set objAccess = Nothing
End Sub

par contre, pas de message d'erreur... et pas plus de fichier .mde créé.

Je sèche

[loufab]

Bonjour,

C'est normal ! à la différence de la commande du menu la 603 est incapable de créer un mde ou accde à partir d'un fichier ouvert.

Il faut donc le traiter directement dans la commande sans l'ouvrir au préalable.

Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Compile(madb As String)
 
Dim app As Application
Set app = New Access.Application
If app.SysCmd(603, madb & ".mdb", madb & ".mde") = 0 Then
   MsgBox "impossible"
End If
app.Quit
Set app = Nothing
 
End Function

Ajoute la gestion du shift qui est dans la FAQ.

Cordialement,

[Gabout]

Bonjour loufab,

Bien noté, j'ai passé quelques temps hier soir pour arriver à la même conclusion : je procède donc en premier lieu à une copie de base puis j'exécute la transformation.

Merci grandement pour ton aide