Discussion :

[Djeli]

Bonjour tous,

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):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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 MiseAJourFichierExcel()
    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

Comme je l'ai dit le code fonctionne parfaitement, maintenant Je voudrai donner le choix à chaque utilisateur au bureau de choisir sur son poste le chemin de son fichier à 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.

[tee_grandbois]

bonjour,

Mais cela ne fonctionne pas, j’ai besoin d’aides.

il suffit de réfléchir:

Code :

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

.Source = SourcePath() & "Productions.xlsx"

1) SourcePath() est une fonction qui renvoie une variable, donc pas de guillemets

2) "Productions.xlsx" est un littéral, il faut des guillemets.

Code :

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

.Source = " CheminFichier "

je pense que dans ton cas CheminFichier est une variable, pas un littéral, il faut la charger au préalable:

Code :

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

CheminFichier = "C:\TonCheminFichier\"

et enlever les guillemets:

Code :

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

.Source = CheminFichier

[Djeli]

Bonjour
J'ai suivi tes instructions en fin je crois, j'ai donc enlever les guillemets comme ceci:
.source = cheminfichier
J'ai ce message d'erreur "Variable non définie"

[tee_grandbois]

bonsoir,
as-tu défini et chargé la variable ?

Code :

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

1
2
3
4
5
6
7
Dim CheminFichier As String
'...
 
CheminFichier = "C:\TonCheminFichier\"
'...
 
.Source = CheminFichier

[Djeli]

bonjour,
Merci pour votre réponse j'aimerai précisé que "cheminFichier" est le nom du contrôle de mon formulaire qui ouvre un filedialog boxe pour recueillir le chemin du fichier a importé dont voici le contenu:
C:\Users\HP\Desktop\Productions.xlsx
c'est ce contenu que je souhaite attribuer .Source, Peut être que cela pourra vous aider a mieux me comprendre
Merci

[tee_grandbois]

bonjour,

j'aimerai précisé que "cheminFichier" est le nom du contrôle de mon formulaire qui ouvre un filedialog boxe pour recueillir le chemin du fichier a importé dont voici le contenu:
C:\Users\HP\Desktop\Productions.xlsx

à priori si cheminFichier est renseigné avec C:\Users\HP\Desktop\Productions.xlsx le code devrait être:

Code :

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

.Source = Me.cheminFichier

mais il aurait été plus simple de poster le code complet développé et pas celui dont tu t'es inspiré, cela aurait facilité une proposition de solution.

[Djeli]

voici les codes:

Les deux premiers code dans des modules
1°)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
' ---
' CONSTANTES
' ---
Public Const SOURCE_PATH = "C:\Users\HP\Desktop\"
' CHEMIN DES FICHIERS SOURCES
' ---
'
Public Function SourcePath()
    If InStr(1, SOURCE_PATH, ":", vbTextCompare) > 0 Then
        SourcePath = SOURCE_PATH
    Else
        SourcePath = CurrentProject.Path & "\" & SOURCE_PATH
    End If
End Function

2°)
' ---

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub UpdaterProductionsExcel()
    Dim tu As TableUpdater
    Dim CheminFichier As String
 
 
    ' Pour les tests, on vide la table avant d'importer
    ' les données externes
    CurrentDb.Execute "DELETE * FROM [tbl_Productions]"
 
    ' Initialisation d'un TableUpdater
    CheminFichier = "CheminFichierImp"
    Set tu = New TableUpdater
    With tu
        ' Fichier à importer (chemin, type, version)
        .Source = SourcePath() & "Productions.xlsx"
        .Range = "Productions!"
        .SourceType = Excel
        .ExcelVersion = acSpreadsheetTypeExcel12
 
        ' Informations sur les données
        .Headers = True
        .Target = "tbl_Productions"
        .TempTable = "tbl_Productions TEMP"
 
        ' Importation
        .Import
    End With
 
    ' Message final
    BilanImportation tu
 
    ' Libérer les ressources
    Set tu = Nothing
End Sub

a ce niveau pas de problème, le problème surviens lorsque je veux laisser le choix du fichier a importer aux utilisateurs, j'ai donc un mis en place formulaire qui ouvre un FileDialog box, le code:

3°)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub cmdChemFichier_Click()
Dim fd As Office.FileDialog
 
'Crée un objet filedialog
Set fd = Application.FileDialog(msoFileDialogOpen)
 
'Titre de la boite de dialogue
fd.Title = "AMIIS: Sélectionnez un fichier..."
 
'Ne pas autoriser la selection multiples
fd.AllowMultiSelect = False
 
'Texte du bouton
fd.ButtonName = "Sélectionner"
 
'Type de vue au départ
fd.InitialView = msoFileDialogViewLargeIcons
 
'Definir les types de fichier autorisés
fd.Filters.Clear
fd.Filters.Add "Tous les fichiers", "*.*"
'Préselectionner le 3ème type de fichier
fd.FilterIndex = 1
 
'Afficher la boite de dialogue
If fd.Show() Then
    Me.CheminFichier = fd.SelectedItems(1)
    MsgBox "Vous avez selectionné le fichier :" & vbCrLf & fd.SelectedItems(1), vbInformation, "AMIIS"
End If
 
Set fd = Nothing
 
End Sub

ce qui donne après selection ce chemin:

C:\Users\HP\Desktop\Productions.xlsx

le soucis s'est ou et comment modifier le code pour la selection du fichier a importé et importé mon fichier Excel par click

Voila mon problème malgré toutes les propositions de solution que vous m'avez faite
Merci

[tee_grandbois]

bonjour,

le soucis s'est ou et comment modifier le code pour la selection du fichier a importé et importé mon fichier Excel par click

il faudrait expliquer un peu plus en détail et donner un exemple, parce que là, je ne vois pas bien le souci ...

[Djeli]

Bonsoir Tee_grandbois,

J'aimerai vous envoyer le fichier pour que vous y jetiez un coup d’œil

Merci

[tee_grandbois]

J'aimerai vous envoyer le fichier pour que vous y jetiez un coup d’œil

ne peux-tu pas expliquer, impression d'écran à l'appui, ton besoin ?

[Djeli]

Bonjour,

voici Mes captures d'écrans mais je pense qu'il serai plus utile de vous envoyer l'application complete:

1°)
2°)
3°)
4°)

Le code du formulaire FileDilog box
5°)

Ce que je souhaite s'est récupéré le chemin de l'image N°3
dans .Source= de sorte que chaque utilisateur puisse choisir le chemin de son fichier à importer sans avoir accès au code.

Bonne reception

[tee_grandbois]

bonsoir,

Ce que je souhaite s'est récupéré le chemin de l'image N°3
dans .Source= de sorte que chaque utilisateur puisse choisir le chemin de son fichier à importer sans avoir accès au code.

si c'est pour la procédure UpdaterExcel, il faut remplacer:

Code :

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

1
2
DosOrdi = "C:\Users\HP\Desktop"
CheminFichier = DosOrdi + "\"

par

Code :

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

CheminFichier = Me.CheminDestin

[Djeli]

Bonjour,

J'ai dans un module de classe ce code:
Option Compare Database

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
' ----------------------------------------
' Module      : ImportError
' Description : Erreurs d'importation.
' ----------------------------------------
 
Option Explicit
 
' ---
' LISTE DES ERREURS POSSIBLES
' ---
 
Public Enum ImportInfo
    NoError = 0
    SourceNotFound = 1
    TargetNotFound = 2
    PrimaryKeyNotDefined = 3
    TempTableNotDefined = 4
    ImportError = 5
    InsertError = 6
    UpdateError = 7
    UnknownError = 8
End Enum
 
' ---
' TRADUCTION DES ERREURS D'IMPORTATION
' ---
 
Const IMPORT_NOERROR As String = "Aucune erreur"
Const IMPORT_SOURCENOTFOUND As String = "Fichier source introuvable"
Const IMPORT_TARGETNOTFOUND As String = "Table cible introuvable"
Const IMPORT_PRIMARYKEYNOTDEFINED As String = "Clef primaire non définie"
Const IMPORT_TEMPTABLENOTDEFINED As String = "Table temporaire non définie"
Const IMPORT_IMPORTERROR As String = "Erreur d'importation"
Const IMPORT_INSERTERROR As String = "Erreur lors de l'insertion de lignes"
Const IMPORT_UPDATEERROR As String = "Erreur lors de la mise à jour de lignes"
Const IMPORT_UNKNOWNERROR As String = "Erreur inconnue"
 
' ---
' MEMBRES PRIVES
' ---
 
Private m_infError As ImportInfo
 
' ---
' PROPRIETES
' ---
 
' ---
' NUMERO DE L'ERREUR
' ---
'
Public Property Let Number(ByVal infError As ImportInfo)
    m_infError = infError
End Property
 
Public Property Get Number() As ImportInfo
    Number = m_infError
End Property
 
' ---
' INTITULE DE L'ERREUR
' ---
'
Public Property Get Label() As String
    Select Case Me.Number
        Case NoError:
            Label = IMPORT_NOERROR
 
        Case SourceNotFound:
            Label = IMPORT_SOURCENOTFOUND
 
        Case TargetNotFound:
            Label = IMPORT_TARGETNOTFOUND
 
        Case PrimaryKeyNotDefined:
            Label = IMPORT_PRIMARYKEYNOTDEFINED
 
        Case TempTableNotDefined:
            Label = IMPORT_TEMPTABLENOTDEFINED
 
        Case ImportError:
            Label = IMPORT_IMPORTERROR
 
        Case InsertError:
            Label = IMPORT_INSERTERROR
 
        Case UpdateError:
            Label = IMPORT_UPDATEERROR
 
        Case UnknownError:
            Label = IMPORT_UNKNOWNERROR
    End Select
End Property

et le code après modification comme tu la proposé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub UpdaterExcel()
    Dim tu As TableUpdater
    Dim ChemExcelImp As String
    Dim CheminDossier As String
 
    CheminDossier = ChemExcelImp
 
 
    ' Pour les tests, on vide la table avant d'importer
    ' les données externes
    CurrentDb.Execute "DELETE * FROM [tbl_Productions]"
 
    ' Initialisation d'un TableUpdater
    Set tu = New TableUpdater
    With tu
        ' Fichier à importer (chemin, type, version)
        .Source = Me.CheminDossier
        .Range = "Productions!"
        .SourceType = Excel
        .ExcelVersion = acSpreadsheetTypeExcel12
 
        ' Informations sur les données
        .Headers = True
        .Target = "tbl_Productions"
        .TempTable = "tbl_Productions TEMP"
 
        ' Importation
        .Import
    End With
 
    ' Message final
    BilanImportation tu
 
    ' Libérer les ressources
    Set tu = Nothing
End Sub

j'ai maintenant ce message d'erreur: Utilisation Incorrecte de mot clé Me qui ne doit pas être utilisé dans un Module (le code UpdateExcel() se trouve dans un module

Mais quand je fais

Code :

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

.source= CheminDossier

j'ai ce message d'erreur : Erreur#5: Erreur d'importation

Je propose toujours de t'envoyer mon application

Merci

[tee_grandbois]

bonjour,

et le code après modification comme tu la proposé

il ne faut pas mélanger les diverses solutions, les déclarations et l'affectation de variables ci-dessous n'ont pas de sens avec la dernière solution, d'autant que ChemExcelImp ne contient aucune valeur. Ces 3 instructions sont à supprimer:

Code :

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

1
2
3
4
5
6
Sub UpdaterExcel()
 
    Dim ChemExcelImp As String
    Dim CheminDossier As String
 
    CheminDossier = ChemExcelImp

Car il suffit simplement de remplacer Me par le nom du formulaire:

Code :

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

.source= Forms!frm_CheminDosImp!CheminDossier

mais dans ce cas je ne vois aucun intérêt de créer un module standard si il ne sert qu'à un seul formulaire, autant laisser la Sub dans le formulaire.

Sinon, pour être utilisable dans un autre formulaire, la solution consisterait à passer la valeur de Me.CheminDossier en paramètre :

Code :

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

1
2
3
4
Sub UpdaterExcel(CheminDossier as String)
' ...
.source=CheminDossier 
' ...

et dans le formulaire frm_CheminDosImp lors de l'appel de la Sub UpdaterExcel (je ne sais pas sur quel évènement mais peu importe):

Code :

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

UpdaterExcel Me.CheminDossier

[Djeli]

Bonjour Tee_grandbois,

j'ai finalement réussi a mettre en place la dernière suggestion que tu m'as faite et ça marche parfaitement, je te dit un grand merci surtout pour ta patience

A plus et porte toi bien