FAQ MS-Access
FAQ MS-AccessConsultez toutes les FAQ
Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 15 juin 2021
Sommaire→VBA→Interaction avec d'autres applications→Interaction avec d'autres applications Trucs et Astuces- Comment trouver l'adresse d'une base Access attachée ?
- Comment appeler des procédures d'une autre base de données ?
- Comment ouvrir un classeur Excel protégé depuis Access ?
- Comment éviter d'ouvrir X instances d'Outlook lors de l'envoi de plusieurs mails par le code ?
- Comment zipper des fichiers en exécutant la fonction Shell ?
- Comment éviter de saisir le login et le mot de passe de connexion lorsque l'on travaille sur une table SQL Server ?
- Comment afficher un document PDF dans un formulaire ?
Dim cheminBASE As String
Dim fso As FileSystemObject
Set fso = New FileSystemObject
cheminBASE = fso.GetParentFolderName(Replace(CurrentDb.TableDefs("LITIGE").Connect, ";DATABASE=", "")) & "\"Pensez à ajouter le Microsoft Scripting Runtime dans les Références.
Il faut passer par Référence Bibliothèques.
Créez une base Access stockant toutes vos procédures, puis via Outils/Références (accessible depuis un module), cliquez sur "Parcourir..." et sélectionnez la base où elles sont stockées.
Dim MonExcel as Excel.Application, wb As Excel.workbook
Set MonExcel = New Excel.Application
SetWb = MonExcel.Workbooks.Open(FileName:="C:\User\SAMA\P1.xls", Password:="password")Vous devez créer la liste d'envoi avant d'envoyer le mail :
destinataire = ""
do while (pas la fin de ma table)
if mail = ok
destinataire = destinataire + mail + ","
end if
loop
DoCmd.SendObject acSendNoObject, , , , , destinataireVoici le code pour le logiciel WinZip :
Shell "C:\winzip\winzip32.exe -a C:\MonRep\MonFichier.zip F:\MonRep\MonFichierAZiper"Voici le code pour le logiciel gratuit 7-Zip :
Shell """C:\Program Files\rep programme\7z.exe"" a -tzip ""C:\rep destination\nomarchive.zip"" ""C:\Program Files\rep programme\compte rendu\*"" -r"Lien : Comment compresser et décompresser des fichiers ?
Lien : Zipper un fichier
Lien : Zipper un répertoire
Intéressez-vous à la valeur renvoyée par la propriété .Connect de ta table liée. C'est en effet grâce à cette commande que l'on peut passer, entre autres, le mot de passe.
Pour le voir :
Print CurrentDB.TableDefs("NomDeMaTableLiée").ConnectDans cet exemple les informations s'afficheront dans la fenêtre d'exécution (ctrl+g).
Pour afficher un document PDF dans un formulaire, il suffit d'ajouter un contrôle Active X => Adobe PDF Reader dans votre formulaire.
Pour lier le document PDF au contrôle il vous faut passer par le VBA :
Me.AcroPDF0.LoadFile ("c:\temp\a.pdf")Où AcroPDF0 est le nom du contrôle Active X et c:\temp\a.pdf le chemin du document PDF.