Discussion :

[Mariboo]

Bonjour,

Dans mon projet Access, j'importe un fichier Word ...
Pour cela j'ai utilisé la fonction "OuvrirUnFichier" proposée dans la FAQ (ici)

ça marche nickel ...

sauf lorsque la fenêtre de parcours des fichiers s'affiche et que l'on clique sur le bouton "Fermer" de cette petite fenêtre, j'ai un message d'erreur extrêment bizarre et je ne sais pas d'ou y sort (ci-joint message d'erreur)

je ne comprend pas, il n'y a aucun Update nulle part ...

Si quelqu'un peut m'aider ...

[Tofalu]

Montre ton code

[Mariboo]

Pour ouvrir la fenêtre de parcours le code est le même que celui de la FAQ et ensuite après avoir utiliser la fonction "OuvrirUnFichier", j'ai ce code là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub bt_import_Click()
On Error GoTo Err_import
'-------------------------------
'  IMPORTATION
'-------------------------------
Dim NomFichier As String

 NomFichier = OuvrirUnFichier(Me.Hwnd, "Importer un fichier", 1, "Fichier Word", "doc")
If NomFichier <> "" Then
 DoCmd.OpenForm "Fiches techniques temporaires", , , , , acHidden, NomFichier

End If

 '-------------------------------------
' se positionner sur la fiche importee
'-------------------------------------
Dim rs As Object
    Me.Requery
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N°_fiche] = '" & N°_fiche_importee & "'"
    Me.Bookmark = rs.Bookmark

Err_Exit:
    Exit Sub
Err_import:
    MsgBox err.Description
    Resume Err_Exit
End Sub

Donc logiquement, si je ferme la fenêtre de parcours sans choisir mon nom de fichier, il ne rentre pas dans le "if" et va sur le "Me.requery" ...

Je vais enlever le "On error Goto" pour voir d'ou le bug vient ... je n'y avait pas pensé ... car je pensais que l'erreur venait de la fonction "OuvrirUnfichier"

[Mariboo]

Le problème venait de mon "Me.requery" ... j'ai tout mis dans le "if" comme ça plus de problème !!

mais j'ai toujours pas compris pourquoi il me parlait d'un Update ... enfin bon c'est pas grave , c'est réglé ...
pardon pour le dérangement ...