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

Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
peut-être: 
.source =cheminfichier
0
Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
.
J'ai déjà essayé cela et j'ai le message d'erreur :
Erreur de compilation : variable non définie
Je ne comprend pas
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
je ne peux pas faire d'autre suggestion sans voir le code.
le cas échéant, pense à utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci je pourrais vous envoyer mon application de gestion d'assurance demain pour vous y jeter un coup d'œil et s'il vous plaît
0
Réponse 2 / 3
Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
je ne vois pas où tu as utilisé FileDialog.
merci de lire et d’appliquer ma demande en #3.
0
Maland_1969 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonsoir,
Je voudrais vous envoyer mon application pour que vous y Jetez un coup d’œil s'il vous plait
merci
0
Réponse 3 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
peux-tu fermer cette discussion, si tu n'as pas d'autre question?
0