Problème avec mon code d'importation d'un fichier Excel dans mon access

peux-tu fermer cette discussion, si tu n'as pas d'autre question?

Bonjour yg_be,

Mon problème: J’ai ces deux codes dans des modules, qui fonctionnent très bien à l’état actuel :

Public Const SOURCE_PATH = "C:\Users\Mr DJELI\Desktop\ "
Public Function SourcePath()
If InStr(1, SOURCE_PATH, ":", vbTextCompare) > 0 Then
SourcePath = SOURCE_PATH
Else
SourcePath = CurrentProject.Path & "\" & SOURCE_PATH
End If
End Function

Et

Sub TestTableUpdaterNewsletterExcel()
Dim tu As TableUpdater

CurrentDb.Execute "DELETE * FROM [tbl_Productions]"

Set tu = New TableUpdater
With tu
' Fichier à importer (chemin, type, version)
.Source = SourcePath() & "Productions.xlsx"
.Range = "Productions!"
.SourceType = Excel
.ExcelVersion = acSpreadsheetTypeExcel12
.Headers = True
.Target = "tbl_Productions"
.TempTable = "tbl_Productions TEMP"
.Import
End With
' Message final
BilanImportation tu
' Libérer les ressources
Set tu = Nothing
End Sub

Maintenant Je voudrai donner le choix à chaque utilisateur sur son poste de choisir le chemin de son fichier a importer par l’intermédiaire d’un filedialog boxe dans mon cas le nom est « CheminFichier » j’ai donc modifié le code comme suite :
.Source = " CheminFichier "

Mais cela ne fonction pas, j’ai besoin d’aides alors je viens vers vous a travers ce site svp aidez-moi.

bonjour,
peut-être:

.source =cheminfichier