Discussion :

[MatAir]

bonjour,
J'ai introduit une fonction permettant à l'utilisateur de choisir un fichier excel à importer, j'ai copier cette fonction d'une rubrique d'aide de ce site. Par contre, lorsque je roule le programme en pas à pas, je suis incapable de voir ou est l'erreur.

Code :

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

MsgBox OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Excel", "xls")

Premièrement, lorsque j'exécute le programme en mode pas a pas détaillé(f8), est ce que je suis supposé voir l'exécution de toute les étapes de ma fonction appellé ou est-ce que l'appel et l'exécution de ma fonction ce fait en une seule étape(en appuyant une seule fois sur F8)

Deuxièmement, Dans Me.hwnd que signifie le Me

j'espère avoir été assez clair et merci d'avance
j'apprécie vraiment votre aide
mathieu qui commence enfin à comprendre un peu access

P.S. Dite moi si je suis dans l'champs, cette fonction stock dans une variable string le chemin d'accès au fichier voulu, je dois ensuite appeller la foction DoCmd.TransferSpreadsheet pour importer ce fichier. Si tel est le cas dans quel variable est stocké le chemin du fichier

[Tofalu]

Premièrement, lorsque j'exécute le programme en mode pas a pas détaillé(f8), est ce que je suis supposé voir l'exécution de toute les étapes de ma fonction appellé ou est-ce que l'appel et l'exécution de ma fonction ce fait en une seule étape(en appuyant une seule fois sur F8)

Oui, toutes les étapes

Code :

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

Deuxièmement, Dans Me.hwnd que signifie le Me

Hwnd est un identifiant du formulaire pour le système : le handle.

[MatAir]

bonjour,
Oui je comprend que c'est le handle mais le problème semble être sur le Me en compilant je reçoit le message d'erreur suivant:

Utilisation incorrecte du mot clé Me

Est-ce que je dois définir ce Me à quelque part
et je comprend pas vraiment
merci

[Tofalu]

Si l'appel de la fonction est dans un module, en effet, il y a une erreur de compilation.

Utilisez au choix : 0 ou Application.HwndAccessApp qui est le handle d'Access.

[MatAir]

Merci beaucoup,
ca fonctionne très bien. En terminant, où est stocké le chemin d'accès du fichier que j'ai sélectionné et est-ce que je peux appeler cette variable dans la fonction:

Code :

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

DoCmd.TransferSpreadsheet acImport, 8, "data", "C:\Documents and Settings\sopelletier\Bureau\Extraction.xls", True, ""

en remplaçant le chemin d'accès par la variable où serait stocké le chemin

merci mille fois pour ton aide

[Tofalu]

Code :

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

1
2
3
4
5
Dim strChemin As string
strChemin=OuvrirUnFichier(0, "Parcourir", 1, "Fichier Excel", "xls")
if strchemin<> "" then
DoCmd.TransferSpreadsheet acImport, 8, "data", strchemin, True, ""
end if