Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC07] FIle dialogbox

10/03/20 10:20
Bonjour,

J’ai ces deux codes dans des modules qui fonctionnent très bien à l’état actuel (d’apres l’article d’Hervé Inisan du grenier):

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.
SujetAuteurEnvoyé le

[AC07] FIle dialogbox

Leyah10/03/20 10:20

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter