bug entre Access 2003 et 2007

bonjour 3Stone,
ma demande va peut-être te paraître culottée mais je me souviens m'être
inspiré de ton exemple sur ton site: Les Mémos/Lister les fichiers.
accepterai-tu de faire un exemple similaire qui fonctionnerai sous
Access 2007??
merci



Nicolas a écrit :

bonjour,
j'utilise une appli acess qui fonctionne sous access 2003

depuis la migration de ma base sur access 2007 une erreur se produit sur
la ligne suivante:

Set fs = Application.FileSearch

message d'erreur:
Run-Time error '2455'
you entered an expression thathas an invalid reference to the property
FileSearch

j'ai vérifié mes références, je ne vois pas d'erreurs
lors de la compilation de ma base access ne trouve pas d'erreur

merci

Salut.
Ci-dessous quelque chose qui peut remplacer ton FileSearch qui n'existe plus
dans 2007.

Private Sub Commande238_Click()
'Ouvre un explorer pour Sélection du Fichier!
Dim MyPath As String, MyFile As String, reqMAJ As String
'MyPath = SelectFolder()
MyFile = fOpenFiles()
If MyFile = "" Then
Me.Champ5 = Null
Else
Me.Champ5 = MyFile
End If
End Sub

Function fOpenFiles() As String
'' Requires reference to Microsoft Office 11.0 Object Library.
Dim Dialogue As FileDialog
Dim Fichier As Variant
Set Dialogue = FileDialog(msoFileDialogOpen)

With Dialogue
'.AllowMultiSelect = True
.AllowMultiSelect = False
.ButtonName = "Ouvrir"
.InitialFileName = "*.txt"
.Filters.Clear
.Filters.Add "Fichier texte", "*.txt"
.Filters.Add "Base de données Microsoft Access", "*.mdb"
.Filters.Add "Tous les fichiers", "*.*"
'.Filters.Add "Document Microsoft Word", "*.doc"
.InitialView = msoFileDialogViewList
.Title = "Veuillez sélectionner le fichier ..."
If .Show Then
For Each Fichier In .SelectedItems
fOpenFiles = fOpenFiles & Fichier & ";"
Next
End If
End With

If Len(fOpenFiles) > 0 Then
fOpenFiles = Left(fOpenFiles, Len(fOpenFiles) - 1)
End If

Set Dialogue = Nothing

End Function

Bonne lecture
--

Bjean23


"Nicolas" a écrit :

bonjour,
j'utilise une appli acess qui fonctionne sous access 2003

depuis la migration de ma base sur access 2007 une erreur se produit sur
la ligne suivante:

Set fs = Application.FileSearch

message d'erreur:
Run-Time error '2455'
you entered an expression thathas an invalid reference to the property
FileSearch

j'ai vérifié mes références, je ne vois pas d'erreurs
lors de la compilation de ma base access ne trouve pas d'erreur

merci
.

Salut,

Nicolas wrote:

bonjour 3Stone,
ma demande va peut-être te paraître culottée mais je me souviens
m'être inspiré de ton exemple sur ton site: Les Mémos/Lister les
fichiers. accepterai-tu de faire un exemple similaire qui
fonctionnerai sous Access 2007??

Tu as de la chance que javais un moment... ;-)

Regarce ceci:
http://www.3stone.be/access/articles.php?lng=fr&pg55

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

salut 3Stone
merci, merci bcq pour coup de main ;-) :-)


3stone a écrit :

Salut,

Nicolas wrote:

bonjour 3Stone,
ma demande va peut-être te paraître culottée mais je me souviens
m'être inspiré de ton exemple sur ton site: Les Mémos/Lister les
fichiers. accepterai-tu de faire un exemple similaire qui
fonctionnerai sous Access 2007??

Tu as de la chance que javais un moment... ;-)

Regarce ceci:
http://www.3stone.be/access/articles.php?lng=fr&pg55

merci bcq Bjean23


Bjean23 a écrit :

Salut.
Ci-dessous quelque chose qui peut remplacer ton FileSearch qui n'existe plus
dans 2007.

Private Sub Commande238_Click()
'Ouvre un explorer pour Sélection du Fichier!
Dim MyPath As String, MyFile As String, reqMAJ As String
'MyPath = SelectFolder()
MyFile = fOpenFiles()
If MyFile = "" Then
Me.Champ5 = Null
Else
Me.Champ5 = MyFile
End If
End Sub

Function fOpenFiles() As String
'' Requires reference to Microsoft Office 11.0 Object Library.
Dim Dialogue As FileDialog
Dim Fichier As Variant
Set Dialogue = FileDialog(msoFileDialogOpen)

With Dialogue
'.AllowMultiSelect = True
.AllowMultiSelect = False
.ButtonName = "Ouvrir"
.InitialFileName = "*.txt"
.Filters.Clear
.Filters.Add "Fichier texte", "*.txt"
.Filters.Add "Base de données Microsoft Access", "*.mdb"
.Filters.Add "Tous les fichiers", "*.*"
'.Filters.Add "Document Microsoft Word", "*.doc"
.InitialView = msoFileDialogViewList
.Title = "Veuillez sélectionner le fichier ..."
If .Show Then
For Each Fichier In .SelectedItems
fOpenFiles = fOpenFiles & Fichier & ";"
Next
End If
End With

If Len(fOpenFiles) > 0 Then
fOpenFiles = Left(fOpenFiles, Len(fOpenFiles) - 1)
End If

Set Dialogue = Nothing

End Function

Bonne lecture