Newsletter Developpez.com

Inscrivez-vous gratuitement au Club pour recevoir
la newsletter hebdomadaire des développeurs et IT pro

FAQ MS-AccessConsultez toutes les FAQ

Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireVBAInteraction avec d'autres applicationsInteraction avec d'autres applications Trucs et Astuces
 
Sélectionnez
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.

Créé le 25 octobre 2004  par 6psyk9

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.

Créé le 25 octobre 2004  par Angelico
 
Sélectionnez
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") 
Créé le 25 octobre 2004  par Bidou

Vous devez créer la liste d'envoi avant d'envoyer le mail :

 
Sélectionnez
destinataire = ""
do while (pas la fin de ma table)
if mail = ok
    destinataire = destinataire + mail + ","
end if
loop

DoCmd.SendObject acSendNoObject, , , , , destinataire
Créé le 25 octobre 2004  par norac

Voici le code pour le logiciel WinZip :

 
Sélectionnez
Shell "C:\winzip\winzip32.exe -a C:\MonRep\MonFichier.zip F:\MonRep\MonFichierAZiper"

Voici le code pour le logiciel gratuit 7-Zip :

 
Sélectionnez
Shell """C:\Program Files\rep programme\7z.exe"" a -tzip ""C:\rep destination\nomarchive.zip"" ""C:\Program Files\rep programme\compte rendu\*"" -r"
Mis à jour le 31 mars 2008  par ARO, mnssylvain

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 :

 
Sélectionnez

Print CurrentDB.TableDefs("NomDeMaTableLiée").Connect

Dans cet exemple les informations s'afficheront dans la fenêtre d'exécution (ctrl+g).

Créé le 20 novembre 2005  par cafeine

Pour afficher un document PDF dans un formulaire, il suffit d'ajouter un contrôle Active X => Adobe PDF Reader dans votre formulaire.

Image non disponible
Contrôle Active X à ajouter

Pour lier le document PDF au contrôle il vous faut passer par le VBA :

 
Sélectionnez
Me.AcroPDF0.LoadFile ("c:\temp\a.pdf")

AcroPDF0 est le nom du contrôle Active X et c:\temp\a.pdf le chemin du document PDF.

Créé le 31 mars 2008  par Heureux-oli
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.