Discussion :

[loufab]

Le batch c'est le code dans la première partie. Il va falloir que tu crées toi même un fichier texte et que tu copies le code dans ce fichier et que tu le sauves avec l'extension cmd ou bat. Désolé je ne fourni pas le fichier batch tout prêt mais ce n'est pas une tâche surhumaine et ça permet d'apprendre à créer un batch.

Le batch effectue la copie de ton application à ta place (ligne 8). C'est même le 2ème paragraphe du billet.

Si tu ne souhaites pas intégrer le bout de code de la 2ème partie (qui empêche l'appli de démarrer) il faut que tu maintiennes le shift enfoncé pour qu'il ne démarra pas l'application.

[eric232]

Oui, ça me revient , on créait un fichier batch avec NotePad. J'avais cru qu'il fallait utiliser les commandes dos.

Je vais créer un fichier texte avec le bloc notes et remplacer l'extension .txt par .cmd
Dis moi si c'est bon ? il n'y a rien après "=" à la ligne 12 ?

Code batch :

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

1
2
3
4
5
6
7
8
9
10
rem @echo off
copy%1 %1.sav
SET NoExecuteApplication = "Oui"
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
SET NoExecuteApplication =
 
If Not Environ("NoExecuteApplication") = "" Then
Application.Quit
Enf If

[loufab]

non rien, le batch est complet. Je l'utilise et d'autres personnes également.

[eric232]

En glissant le fichier Access sur le batch, il y a eu une espèce d'éclair noir , je suppose que c'est une fenêtre dos qui s'est ouverte et refermée en une fraction de secondes.
Mais dans la base Access en question , quand je clique sur le bouton de commande pour générer un état il ne se passe toujours rien.
J'ai essayé 2 fois :
avec ça :

Code batch :

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

1
2
3
4
5
6
7
8
9
10
rem @echo off
copy%1 %1.sav
SET NoExecuteApplication = "Oui"
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
SET NoExecuteApplication =
 
If Not Environ("NoExecuteApplication") = "" Then
Application.Quit
Enf If

et avec ça :

Code batch :

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

1
2
3
4
5
6
rem @echo off
copy%1 %1.sav
SET NoExecuteApplication = "Oui"
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE %1
SET NoExecuteApplication =

[micniv]

il faut lire et relire avec une certaine attention !
Le billet de Loufab affiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
rem @echo off
echo --------------- GUIDE D'UTILISATION --------------------------------
echo Copiez ce fichier dans le répertoire racine à traiter.
echo Decompile et compacte le fichier.
echo Enfoncé la touche Shift pour la première passe.
echo --------------------------------------------------------------------
echo AUTEUR : FABRICE CONSTANS MVP
copy %1 %1.sav
SET NoExecuteApplication = "Oui"
"C:\Program files\Microsoft Office\OFFICE14\MSACCESS.EXE" %1 /Decompile
"C:\Program files\Microsoft Office\OFFICE14\MSACCESS.EXE" %1 /Compact
SET NoExecuteApplication=

et tu as omis le plus important les flags /decompile et /compact dans chacune des 2 lignes de commandes ...

[eric232]

Bonjour
Merci pour la correction
Le problème est celui de faire glisser un fichier sur un autre s'ils sont dans le meme dossier car la touche shift sélectionne les deux dossiers.
Donc j'ai ouvert 2 explorateurs et fait glisser le fichier Access sur le batch contenant tout le code sans appuyer sur la touche shift.
Idem , il y a eu juste un éclair noir ... Fallait-il procéder autrement ?