Discussion :

[PJOUV]

Bonjour.
Dans une base Access 2010, j’ai créé un champ « Attachment » (pièces jointes) sous forme de lien (link) qui pointe sur des images JPG.
Je peux les associer manuellement, mais je cherche à l’automatiser par du code VBA, c’est-à-dire pouvoir désigner un répertoire, puis que la macro crée automatiquement un enregistrement pour chaque JPG trouvé.
En 2006, Tofalu avait publié « [Access 2007] Comment sauvegarder une pièce jointe dans un fichier en VBA » mais l’adaptation que j’en ai fait ne marche pas.
Je ne sais pas si je fais une erreur ou si quelque chose a changé entre 2007 et 2010.

Le code de Tofalu est ici :

http://access.developpez.com/faq/?pa...EnregistrerVBA

La question :

N’y a-t-il pas moyen de dire simplement « attache tel fichier à l’enregistrement courant dans tel champ » ?
Merci d’avance.
Pjouv

[Tofalu]

Bonjour :

http://warin.developpez.com/tutoriel...erieurs/#LIV-E

[PJOUV]

Merci beaucoup pour ces éléments qui m’ont permis un début de solution.
Mais la fonction LoadFromFile incorpore le fichier dans la base de données.
Ce que je souhaite, c’est créer un lien (link) vers le fichier.
Connaissez-vous la méthode adaptée ?
Merci encore.
Pjouv

[Tofalu]

Dans ce cas c'est un simple champ texte qu'il vous faut. Inutile de passer par un champ de type pièce-jointe.

[PJOUV]

C’est ce que je viens de découvrir…
J’ai un champ texte qui contient le chemin de mon fichier et une image que je mets à jour en fonction du chemin mémorisé : c’est parfait, ça me fera une base très légère.
Ce qui me manque, c’est ce que m’offrait le champ attaché, la possibilité de faire un double-clic sur l’image pour ouvrir le fichier mémorisé dans le chemin.
J’en suis à :
Dim FichierOb As Object
Set FichierOb = CreateObject("Scripting.FileSystemObject")
Set FichierOb = FichierOb.GetFile(Forms!TestBaseImages2!Chemin)
mais il ne semble pas y avoir de
FichierOb.Open ?
Connaissez-vous la syntaxe pour que le fichier s’ouvre dans l’application définie par Windows comme par défaut ?
Merci encore !
Pjouv

[PJOUV]

Récupéré des tutoriels (http://access.developpez.com/faq/?pa...#AffBoitDialog) :

Mettre dans la zone de déclaration :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Mettre dans le code :

ShellExecute Me.hWnd, vbNullString, CheminDuFichier, "", vbNullString, 1

Merci encore de votre aide.
Pjouv

PS:
Je remets aussi le lien vers le très utile tutoriel de Cafeine où tout est résumé :
http://cafeine.developpez.com/access/tutoriel/photos/