Lors de la programmation dans Microsoft Office Visual Basic pour Applications ( VBA) , il est parfois nécessaire d'ouvrir ou appeler d'autres programmes à partir de Word , Excel ou Access. La meilleure façon d' effectuer cette tâche à travers la commande VBA SHELL . Cette commande lance un autre programme en ligne de Windows ou commande à exécuter indépendant du programme Office. Une fois que l'autre programme est en cours d'exécution , le programme Office peut continuer à effectuer d'autres tâches . Utiliser une technique facile à exécuter Winzip et archiver un ensemble de fichiers à l'aide d'un formulaire Microsoft Access. Choses que vous devez
Microsoft Access 2000 ou version ultérieure
WinZip
Voir Plus Instructions
1

Open Access Microsoft (2000 ou plus ) et de créer une nouvelle base de données appelée ZipSample .
2

Créer un nouveau formulaire indépendant appelé ZipForm . Cette forme n'a pas de table qui lui est associée . Au lieu de cela , elle acceptera noms de dossiers et de fichiers zip saisies par l'utilisateur ZIP, puis les fichiers lorsque le bouton est cliqué .
3

Ajoutez deux zones de texte et un bouton sur le formulaire. < Br >

Nom de la zone de texte premier " folderName " et lui donner la rubrique " dossier: "

Nom de la boîte de texte deuxième " ZipFile " et lui donner la rubrique « fichier zip: "
< p > Changer l'étiquette sur le bouton pour " Zip ".
4

un clic droit sur ​​le bouton de fermeture éclair et choisissez Générer suivi du code . Ceci ouvrira la fenêtre Visual Basic avec une nouvelle méthode vide . A l'intérieur du corps de la méthode (sur la ligne vide au-dessus End Sub ) entrez le code suivant :

SHELL " " "C: \\ Program Files \\ WinZip \\ WinZip32 " "- min - a- r" et ZipFile . & "" & FolderName & "\\ * * "

fois évalué par l'interprète VBA , ce code va passer le texte suivant à l'interpréteur de commandes : Photos

"c: \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip folderName \\ * *

WinZip peut fonctionner avec un certain nombre de paramètres de ligne de commande . . Dans ce cas, la commande demande WinZip pour ajouter tous les fichiers dans le dossier folderName à la zipFile.zip d'archives. L' argument - min raconte WinZip pour exécuter minimisé ( en arrière plan) , -a indique qu'il s'agit d'ajouter des fichiers à l'archive et - r indique que tous les fichiers de sous-dossiers dans ce dossier devraient également être ajoutés. Voir le site de WinZip (voir Ressources ) pour les options en ligne de commande et une liste complète des arguments de ligne de commande .
5

Sauvegardez et fermez la fenêtre Visual Basic , enregistrez le formulaire puis passer en mode formulaire. Le formulaire s'affiche avec les deux zones de texte et un bouton. Remplissez le formulaire et cliquez sur le bouton Zip pour tester le formulaire .