Discussion :

[nana 69]

bonjour,

j'ai un formulaire dans lequel j'insere des fichiers word , Excel a l'aide d'une

boite de dialogue qui me permet de recuperer le chemin du fichier .

je voudrais savoir si c'est possible en vba

1-de pouvoir faire la liaison entre les fichiers de telle sorte que

si je modifie le fichier dans le repertoire que ces modifications y figurent egalement dans le fichier qui est insrerer dans la base de données

comment le faire en vba ???

[talrashha]

Salut,

En fait, quand tu insère un fichier dans un champ OLE, si tu choisis l'option "A partir d'un fichier", et bien en dessous du nom du fichier, il y a une petite croix "Liaison" qui sert à ça

[nana 69]

merci d'avoir repondu , mais le probleme est que pour inserer un fichier je ne

passe pas par la boite de dialogue fourni par access

( c'est a dire inserer ---> boite de dialogue --> parcourir --> choix du type de fichier--> )

je clique sur un bouton de commande et celui ci m'ouvre directement les types de fichiers se trouvant dans mon repertoire.

Voici une partie du code qui me permet d'ouvrir la boite de dialogue

Code :

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

1
2
3
 
Set OBJ_excel = CreateObject("Excel.Application")
    VAR_Fichier = OBJ_excel.GetOpenFilename(filefilter:="Fichier d'importation ,*.xls", Title:="Choix du fichier à importer")

il n'ya pas un autre moyen de faire la liason qu'en passant par la boite de dialogue d'access????

[scons]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim extension As String
Dim repertoire As String
Dim fichier As String
 
extension="*.xls"
repertoire = ("chemin pointant vers ton repertoire")
fichier = Dir(repertoire & extension) 'association du repertoire et l'extension pour obtenir uniquement le nom du fichier
 
Do Until fichier = "" 
ton programme d'import
wend

Voila je sais pas si ca pourra t'aider
Amicalement Scons

[CarSoftAja]

Peut-être un début de piste ici:

incorporez un objet à un formulaire

[nana 69]

Merci pour vos réponses,
j''ai trouvé la solution il fallait simplement lié l'objet et changé la propriété dans le cadre d'objet dependant :

Type d'objet: Lié

et le code

Code :

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

1
2
 
Me.Nom du cadre objet dépendant .Action =acOLELinked

Merci !!