Bonjour,
je voudrais pouvoir attacher des images et d'autres fichiers ( excel, word,etc...) dans une base access
j'ai creer des champ pour stocker en texte le chemin d'acces , je sais pacer le chemin en mode creation mais
comment faire pour que se soit dinamique, ( c'est à dire comment faire pour pouvoir creer un explorateur de fichier dans access ?)?
merci pour votre aide
totox24
Version complète : Création D'un Explorateur De Fichier Dans Access
Pour ceux que cela interresse, j'ai trouver la solution tout seul 
à la de mande je peut vous envoyer ce que j'ai ......
Slt
totox24
à la de mande je peut vous envoyer ce que j'ai ......
Slt
totox24
oui, désolé, j'ai pas eu trop le temps d'y regarder (j'ai aussi une solution mais en allemand )
Bravo en tout cas, car c assez compliqué....
)Bravo en tout cas, car c assez compliqué....
Bonjour,
Je serais interressé par le code ou la solution
merci
Je serais interressé par le code ou la solution
merci
Oui et bien vu que totox n'a pas remis les pieds ici depuis 3 mois (regarde les dates des posts, vertuchou!) je te conseille de plutôt lui envoyer un mail.
CITATION(Dolarcles @ 24-05-2005 - 10:07) 
Oui et bien vu que totox n'a pas remis les pieds ici depuis 3 mois (regarde les dates des posts, vertuchou!) je te conseille de plutôt lui envoyer un mail.
Salut a toutes & tous
Cela fait effectivement longtemps que je ne me suis pas connecter
en faite, j'ai arreter de developper sous access, je suis passez sur un developpement web (php, MySQL)
je fais des recherche , et vous donne la solution que j'avais utilisé a l'époque...
@+
CODE
Private Sub Form_Open(Cancel As Integer)
Dim MyName As String
Dim MyPath As String
Dim Ligne As Integer
Dim Ligne2 As Integer
Dim cmd As String
DoCmd.RunCommand acCmdDocMaximize
Me.t_Theme.Visible = False
Me.Étiquette23.Visible = False
DoCmd.Close acForm, "Menu_Visu"
Me.C_Consult.Visible = False
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from Tb_Fichier"
Ligne = 0
MyPath = "C:\Prospect-2000\Import\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." And Right(MyName, 7) <> "air.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 11), " & Ligne & ");"
DoCmd.RunSQL cmd
End If
If MyName <> "." And MyName <> ".." And Right(MyName, 10) = "Impair.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 17), " & Ligne & ");"
DoCmd.RunSQL cmd
Else
If MyName <> "." And MyName <> ".." And Right(MyName, 8) = "pair.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 15), " & Ligne & ");"
DoCmd.RunSQL cmd
End If
End If
MyName = Dir
Loop
cmd = "UPDATE Tb_Fichier INNER JOIN Choix ON Tb_Fichier.Cle = Choix.Clé SET Tb_Fichier.Ville = [Choix]![VILLE], Tb_Fichier.Rue = [Choix]![Rue ou voie];"
DoCmd.RunSQL cmd
DoCmd.SetWarnings True
Me.L_Fichier.Requery
If Ligne = 0 Then
MsgBox " Vous n'avez pas de fichier a Intégrer !!! ", vbOKOnly, "Attention !"
DoCmd.OpenForm "Menu_Gen"
DoCmd.Close acForm, "Menu_Import"
Else
Me.Nombre.Value = Ligne
DoCmd.Close acForm, "Menu_Gen"
End If
End Sub
Dim MyName As String
Dim MyPath As String
Dim Ligne As Integer
Dim Ligne2 As Integer
Dim cmd As String
DoCmd.RunCommand acCmdDocMaximize
Me.t_Theme.Visible = False
Me.Étiquette23.Visible = False
DoCmd.Close acForm, "Menu_Visu"
Me.C_Consult.Visible = False
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from Tb_Fichier"
Ligne = 0
MyPath = "C:\Prospect-2000\Import\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." And Right(MyName, 7) <> "air.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 11), " & Ligne & ");"
DoCmd.RunSQL cmd
End If
If MyName <> "." And MyName <> ".." And Right(MyName, 10) = "Impair.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 17), " & Ligne & ");"
DoCmd.RunSQL cmd
Else
If MyName <> "." And MyName <> ".." And Right(MyName, 8) = "pair.xls" And Right(MyName, 4) = ".xls" And Left(MyName, 7) = "Export_" Then
Ligne = Ligne + 1
cmd = "insert into Tb_Fichier (Fichier, Chemin, Cle, Nombre)" _
& "VALUES ('" & MyName & "', '" & MyPath & "', Mid('" & MyName & "', 8, Len('" & MyName & "') - 15), " & Ligne & ");"
DoCmd.RunSQL cmd
End If
End If
MyName = Dir
Loop
cmd = "UPDATE Tb_Fichier INNER JOIN Choix ON Tb_Fichier.Cle = Choix.Clé SET Tb_Fichier.Ville = [Choix]![VILLE], Tb_Fichier.Rue = [Choix]![Rue ou voie];"
DoCmd.RunSQL cmd
DoCmd.SetWarnings True
Me.L_Fichier.Requery
If Ligne = 0 Then
MsgBox " Vous n'avez pas de fichier a Intégrer !!! ", vbOKOnly, "Attention !"
DoCmd.OpenForm "Menu_Gen"
DoCmd.Close acForm, "Menu_Import"
Else
Me.Nombre.Value = Ligne
DoCmd.Close acForm, "Menu_Gen"
End If
End Sub
2 - 3 mots pour expliquer ce que je voulais faire
Lister tous les fichiers du genre "Export_" + * + ".xls"
du répertoire : "C:\Prospect-2000\Import\"
CODE
Dim strFilter As String
Dim strInputFileName As String
Me.chemin.Value = Me.fichier1.Value
strFilter = ahtAddFilterItem(strFilter, "All Files Images (*.*)", "*.*") // Liste des formats de fichier
strInputFileName = ahtCommonFileOpenSave_agen(Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Veuillez spécifier le nom du fichier...", _
Flags:=ahtOFN_HIDEREADONLY_agen, InitialDir:="C:\")
Me.fichier1.Value = Me.chemin.Value
Dim strInputFileName As String
Me.chemin.Value = Me.fichier1.Value
strFilter = ahtAddFilterItem(strFilter, "All Files Images (*.*)", "*.*") // Liste des formats de fichier
strInputFileName = ahtCommonFileOpenSave_agen(Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Veuillez spécifier le nom du fichier...", _
Flags:=ahtOFN_HIDEREADONLY_agen, InitialDir:="C:\")
Me.fichier1.Value = Me.chemin.Value
Ce code permet d'ouvrir un explorateur permettant la recherche d'un fichier
et de récupérer le chemin d'acces complet (chemin et nom de fichier) dans le champ: "fichier1"
si vous avez des questions
essayer par l'émail, je vous répondrais....
Salut @ toutes & tous.
essayer par l'émail, je vous répondrais....
Salut @ toutes & tous.
Salut totox!
Motivé aujourd'hui dis-moi. Bien que la plupart des personnes à qui tu as répondu ont posté depuis un bon bout de temps, les réponses que tu as données pourront servir à de futurs utilisateurs!
Merci de ta visite et de tes réponses!
Motivé aujourd'hui dis-moi. Bien que la plupart des personnes à qui tu as répondu ont posté depuis un bon bout de temps, les réponses que tu as données pourront servir à de futurs utilisateurs!
Merci de ta visite et de tes réponses!
CITATION(Dolarcles @ 06-07-2006 - 10:36)
Salut totox!
Motivé aujourd'hui dis-moi. Bien que la plupart des personnes à qui tu as répondu ont posté depuis un bon bout de temps, les réponses que tu as données pourront servir à de futurs utilisateurs!
Merci de ta visite et de tes réponses!
Motivé aujourd'hui dis-moi. Bien que la plupart des personnes à qui tu as répondu ont posté depuis un bon bout de temps, les réponses que tu as données pourront servir à de futurs utilisateurs!
Merci de ta visite et de tes réponses!
Salut Dolarcles
j'avais un peu de temps de libre...
Hé bien merci de nous l'avoir consacré 
Hello.
P.S. : Tiens, le Dol a trouvé un autre moyen pour poster des messages. (La pommade.).
Mouhahahahahaha !
N.B. : J'aime mieux l'ancien avatar.
P.S. : Tiens, le Dol a trouvé un autre moyen pour poster des messages. (La pommade.).
Mouhahahahahaha !
N.B. : J'aime mieux l'ancien avatar.
CITATION(Helger @ 06-07-2006 - 18:05)
Hello.
P.S. : Tiens, le Dol a trouvé un autre moyen pour poster des messages. (La pommade.).
Mouhahahahahaha !
P.S. : Tiens, le Dol a trouvé un autre moyen pour poster des messages. (La pommade.).
Mouhahahahahaha !
Je vais tenter la méthode Helger (raconte des âneries)
Mon avatar? Ouais il tire un peu la gueule celui-là je vais changer ou remettre l'ancien.
Super.
Me manquait le bougre.
P.S. : Euh, des comment ? Connait pas ce mot. Enfin si, mais pas écrit comme ceci.
Me manquait le bougre.
P.S. : Euh, des comment ? Connait pas ce mot. Enfin si, mais pas écrit comme ceci.
Hmmm quoi? J'ai rien vu moi... 
Ceci une version "bas débit" de notre forum. Pour voir la version complète avec plus d'information, la mise en page et les images, veuillez cliquez ici.