Création d'un fichier .mde en vba

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:

---

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 ?

Bonjour,

On retrouve ce code assez souvent :

Code:

---

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,

Bonsoir loufab :coucou:,

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

Code:

---

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

---

Re,

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

Code:

---

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

---

J'ai comme réponse

Citation:

---

Erreur de compilation
Sub ou Function non définie

---

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

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 ! :(

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

La 603 notamment.

Cordialement,

Bonjour loufab,

Merci de ton aide.

Voilà ce sur quoi je suis arrivé

Code:

---

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 :(

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:

---

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,

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 :ccool: