Discussion :

[69Pierre]

Bonjour.

J'ai un morceau de code qui fonctionne bien avec Access 2002-2003 et qui me donne l'erreur suivante avec Access 2007-2016 :

Erreur d'execution '2522' : L'action ou la méthode requiert un argument Nom fichier

Je n'ai rien qui s'appelle "Nom fichier" dans tout mon projet.

Le bout de code défaillant :

Code VB :

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

DoCmd.TransferText acImportFixed, "X01", "Table_X01_precedente", TrouverFichier("\\tousrco1080\xtract\$$$x01\", "Ancienne version de la table X01", "Fichier Texte", "*.TAB;*.txt")

Merci de votre aide.

[marot_r]

Bonjour.

As-tu vérifié que TrouverFichier te retourne une valeur ?
Ça me paraît le candidat le plus probable pour un paramètre nommé Nom fichier dans la procédure DoCmd.TransferText.

A+

[69Pierre]

Bonjour.

Dans les 2 cas une chaine vide "".

Par contre, j'ai une valeur à "Fichier Texte
*.TAB;*.txt

" dans l'espion.

A mince on ne le vois pas mais il y a des valeurs en hiéroglyphes (1 après Texte, les 2 autres après txt).

En UTF-8, ça donne "Fichier TexteSOH*.TAB;*.txtSOHSOH"

[marot_r]

Si ta valeur retourné est vide il est probable que le problème vienne de là.

Essaye en forçant une valeur que tu sais correcte ex : "X:\TonChemin\TonFichier.txt".

A+

[69Pierre]

Oui, si je mets une valeur correcte en "dur", ça fonctionne.

mais comment réparer ce souci ?

[marot_r]

Bonjour.

Donc le problème vient de TrouverFichier("\\tousrco1080\xtract\$$$x01\", "Ancienne version de la table X01", "Fichier Texte", "*.TAB;*.txt").

Tu peux peut-être simplement faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
dim strFichierTrouve as string
strFichierTrouve=TrouverFichier("\\tousrco1080\xtract\$$$x01\", "Ancienne version de la table X01", "Fichier Texte", "*.TAB;*.txt")
 
if strFichierTrouve<>"" then
      DoCmd.TransferText acImportFixed, "X01", "Table_X01_precedente", strFichierTrouve
   else
      msbox "Aucun fichier trouvé"
end if

Si tu n'as rien à faire si il n'y a pas de fichier.

Si tu devrais à avoir un fichier et que tu n'en a pas, peux-tu poster le code de TrouverFichier ?

A+

[69Pierre]

Bonjour.

Je pense que le probléme vient du fait que ce soit écrit dans Vb Access ancien (.mdb) et qu'en ".accdb" les méthodes et librairies soient différentes.


Les fonctions et procédures s'appellent en cascade...

Code VB :

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
Public Function TrouverFichier(chCheminRecherche As String, textboite As String, libfic As String, typfic As String) As String
' Affiche une boîte de dialogue d'ouverture de fichier pour permettre
' à l'utilisateur de rechercher un fichier.
' Retourne le chemin complet du fichier.
    Dim msaof As MSA_NOMFICHIEROUVERT
 
    ' MsgBox (textboite)
 
    ' Définit les options de la boîte de dialogue.
    'msaof.chTitreDialogue = textboite
    'msaof.chRépInitial = chCheminRecherche
    msaof.chFiltre = MSA_CréationChaîneFiltre(libfic, typfic)
 
    ' Appelle la routine de dialogue Ouvrir fichier.
    MSA_ObtNomFichierOuvert msaof
 
    ' Retourne le chemin et le nom du fichier.
    TrouverFichier = Trim(msaof.chCheminCompletRetourné)
 
End Function

[marot_r]

C'est possible.

As-tu exécuté ta procédure pas à pas pour voir ce qu'elle fait ?

Sinon tu peux peut-être la remplacer par Application.FileDialog.
https://learn.microsoft.com/en-us/of...ion.filedialog

A+

[69Pierre]

Merci.

Si je récupére les macros a modifier pour qu'elles fonctionnent avec Access 2007-16 et office 365, j'aurai du boulot.

Je vais tester pas à pas pour avoir une estimation du temps à prévoir.