[totox24]

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

[totox24]

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

[Fourer]

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é....

[patoucanard]

Bonjour,
Je serais interressé par le code ou la solution
merci

[Dolarcles]

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.

[totox24]

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...

@+

[totox24]

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

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\"

[totox24]

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

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"

[totox24]

si vous avez des questions

essayer par l'émail, je vous répondrais....


Salut @ toutes & tous.

[Dolarcles]

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!

[totox24]

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!

Salut Dolarcles


j'avais un peu de temps de libre...

[Webmaster]

Hé bien merci de nous l'avoir consacré

[Helger]

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.

[Dolarcles]

Hello.
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.

[Helger]

Super.
Me manquait le bougre.



P.S. : Euh, des comment ? Connait pas ce mot. Enfin si, mais pas écrit comme ceci.