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

Question

Bonjour,
J'ai un soucis avec ceci :
. Source =source Math & "production. Xlsx"
. SourceType=Excel
. ExcelVersion=acSpreadsheetTypeExcel12
. Import
Mon soucis est que je voudrai donner le choix à l'utilisateur pour le fichier à importer. J'ai donc mis en place un fileDialogOpen et j'ai changé mon code de la manière suivante:
.source ="cheminfichier"
Mais cela ne marche plus 
Aider moi s' il vous plaît

yg_be · Answer

bonjour,
peut-être:
.source =cheminfichier

Maland_1969 · Answer

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.

yg_be · Answer

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

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

3 réponses

Discussions similaires

Newsletters