Discussion :

[lodan]

Bonjour,

J'ai repris en l'adaptant un peu l'exemple de SilkyRoad

J'ai contrôlé mes valeurs passées en paramètre et elles sont correctes.

Le MsgBox avec Dir sur mon fichier m'affiche le nom du fichier recherché
Le MsgBox (QueryStr) m'affiche la requête
Le MsgBox (2) n'est pas atteint

Je ne vois pas mon erreur de syntaxe sachant que mon objectif est de lire une cellule déterminée d'un fichier xlsm fermé et de retourner sa valeur.

Merci pour votre regard extérieur.

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
Function LireCellule_ClasseurFerme( _
        Chemin As String, _
        Fichier As String, _
        Feuille As String, _
        Cellule As Variant) As Variant
    'Nécessite d'activer la référence Microsoft ADO ext x.x for DLL and Security
    'Nécessite d'activer la référence Microsoft ActiveX Data Objects x.x Library
    'Menu Outils/Références
 
    Application.Volatile
 
    Dim Connexion As New ADODB.Connection 'Définir une variable ADODB Connection et Créer une nouvelle instance
    Dim Rst As New ADODB.Recordset 'Pour accueillir un RecordSet et Créer une nouvelle instance
 
    Dim CheminFichier As String
    Dim QueryStr As String
 
    '/!\ Attention à ne pas oublier le symbole \ entre le chemin et la feuille.
    CheminFichier = Chemin & "\" & Fichier
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    Feuille = Feuille & "$"
    '/!\ Attention lire une cellule il faut rechercher sous la forme A1:A1
    Cellule = Cellule & ":" & Cellule
 
    MsgBox Dir(CheminFichier) 'test l'existence du fichier
 
    '--- Connexion ---
    With Connexion
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & CheminFichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
    '---- Lecture Fichier ---
    QueryStr = "SELECT * FROM [" & Feuille & Cellule & "]"
    MsgBox (QueryStr)
 
    '---- Lecture Fichier ---
    Set Rst = Connexion.Execute(QueryStr)
    MsgBox (2)
    '---- Lecture Cellule ---
    'Ecrit le résultat de la requête dans la cellule
    'Range("AM2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Rst.Close
    Connexion.Close
    Set Connexion = Nothing
    Set Rst = Nothing
End Function

[joe.levrai]

Bonjour,

faut changer ta chaîne de connexion, dans le tuto c'est pour les fichiers excel ancienne version il me semble

un exemple ici : https://www.developpez.net/forums/d1...t/#post9037959

[lodan]

Je suis bien en Excel 2007 sur un xlsm donc je me fis à priori au tuto. Pour quelle version le lien que tu m'as donné est-il valable ?

[joe.levrai]

Voici qui est plus complet, puisque c'est l'exact problème que tu rencontres ?

https://www.developpez.net/forums/d1...ne-fonctionne/

[lodan]

Merci oui cela semble bien correspondre.

J'ai donc fait un fichier test identique du POST :



Dans Outils, Référence :



Et le code suivant :

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
Function LireCellule_ClasseurFerme( _
    Chemin As String, _
    Fichier As String, _
    Feuille As String, _
    Cellule As Variant) As Variant
 
    Application.Volatile
 
    Dim Source As Object
    Dim Rst As Object
 
    '/!\ Attention à ne pas oublier le symbole \ entre le chemin et la feuille.
    CheminFichier = Chemin & "\" & Fichier
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    Feuille = Feuille & "$"
    '/!\ Attention lire une cellule il faut rechercher sous la forme A1:A1
    Dim Cible As String
    Cible = Cellule.Value & ":" & Cellule.Value
 
 
    '--- Connexion ---
    Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & CheminFichier & "; extended properties=""Excel 12.0;HDR=NO"""
 
    MsgBox ("SELECT * FROM [" & Feuille & Cible & "]")
    '---- Lecture Fichier ---
    Set Rst = Source.Execute("SELECT * FROM [" & Feuille & Cible & "]")
    MsgBox (2)
    ActiveCell.CopyFromRecordset Rst
 
    '--- Fermeture ---
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
End Function

Mon résultat est #VALEUR!

J'affiche MsgBox(MsgBox ("SELECT * FROM [" & Feuille & Cible & "]")) mais pas MsgBox(2)

La valeur de Feuille & Cible est correcte :



Si je change le nom du fichier par une valeur fausse MsgBox(MsgBox ("SELECT * FROM [" & Feuille & Cible & "]")) ne s'affiche pas.
J'en conclu donc que c'est dans ma lecture de fichier que cela ne va pas.

Ma syntaxe me semble bonne pourtant.

[joe.levrai]

Bonjour,

on va faire comme dans la précédente discussion alors

Est-ce que cette procédure, quant à elle, fonctionne, si tu renseignes les bons paramètres ?

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
Sub LireCellule_ClasseurFerme()
Dim Source As Object, Rst As Object
Dim Feuille As String, Cellule As String, CheminFichier As String, NomFichier As String
 
CheminFichier = "C:\Users\Toto\"
NomFichier = "MonClasseur.xlsx"
Feuille = "BDD_PROD" & "$"
Cellule = "B1:B1"
 
Set Source = CreateObject("ADODB.Connection")
Source.Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & CheminFichier & NomFichier & ";extended properties=""Excel 12.0;HDR=NO"""
Set Rst = Source.Execute("SELECT * FROM [" & Feuille & Cellule & "]")
ActiveCell.CopyFromRecordset Rst
 
End Sub

pas besoin de cocher une quelconque référence, tout est en liaison tardive
il faut juste renseigner correctement la valeur des 4 variables du début

[Invité]

Désolé!
LireCellule_ClasseurFerme2 = .Fields(0).Value

[lodan]

Autre solution présentée par dysorthographie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function LireCellule_ClasseurFerme2(Chemin As String, Fichier As String, Feuille As String, Cellule As Variant) As Variant
     With CreateObject("ADODB.Connection")
        .Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & Chemin & "\" & Fichier & ";extended properties=""Excel 12.0;HDR=NO"""
        With .Execute("SELECT * FROM [" & Feuille & "$" & Cellule & ":" & Cellule & "]")   '---- Lecture Fichier ---
            If .EOF = False Then    'je vérifie si la requête retourne une valeur!
             LireCellule_ClasseurFerme2 = .Fields(0).Value
            End If
             .Close '--- Fermeture --
        End With
        .Close
    End With
End Function

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function LireCellule_ClasseurFerme2(Chemin As String, Fichier As String, Feuille As String, Cellule As Variant) As Variant
    With CreateObject("ADODB.Connection")
        .Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & CheminFichier & ";extended properties=""Excel 12.0;HDR=NO"""
        With .Execute("SELECT * FROM [" & Feuille & Cellule & ":" & Cellule   & "]") '---- Lecture Fichier ---
            if  .EOF = False  then  'je vérifis si la requête retourne une valeur!
             LireCellule_ClasseurFerme2 .Fields(0).Value
            end if
             .Close '--- Fermeture --
        End With
        .Close
    End With
End Function

[lodan]

J'ai modifié CheminFichier qui n'existe pas, ajouté le $ entre feuille et cellule et retiré l'espace avant Fields(0).Value, mais ça ne me retourne #VALEUR!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function LireCellule_ClasseurFerme2(Chemin As String, Fichier As String, Feuille As String, Cellule As Variant) As Variant
    With CreateObject("ADODB.Connection")
        .Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & Chemin & "\" & Fichier & ";extended properties=""Excel 12.0;HDR=NO"""
        With .Execute("SELECT * FROM [" & Feuille & "$" & Cellule & ":" & Cellule & "]")   '---- Lecture Fichier ---
            If .EOF = False Then    'je vérifie si la requête retourne une valeur!
             LireCellule_ClasseurFerme2.Fields(0).Value
            End If
             .Close '--- Fermeture --
        End With
        .Close
    End With
End Function

[Invité]

Code :

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

Feuille = "RECAP# ANNUEL" & "$"

les points ça n'aime pas!

[lodan]

Merci dysorthographie
J'ai retiré le point et l'erreur a disparu.
Il me rapatrie bien une valeur.
Je vais faire mes tests.

MAUDIT .

[joe.levrai]

ça alors , jamais j'aurai deviné

Robert, le roi du ADO

[Invité]

Code :

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

1
2
3
4
Table.Champ
Ta.ble.Champ  'is champ?
Ta#ble.Champ
Ta.ble#Champ

[lodan]

Avec le Sub la valeur est bien retournée dans la cellule active
Avec la Fonction il ne me retourne rien
Voici le code

Code :

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

1
2
3
4
5
6
7
8
'--- Connexion ---
    Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & CheminFichier & ";extended properties=""Excel 12.0;HDR=NO"""
 
    '---- Lecture Fichier ---
    Set Rst = Source.Execute("SELECT * FROM [" & Feuille & Cible & "]")
    MsgBox (Rst(0).Value)
    LireCellule_ClasseurFerme = Rst(0).Value

Pourtant mon MsgBox m'affiche la bonne valeur
Pourquoi appelle t on la fonction dans la fonction ?

[joe.levrai]

Le principe d'une fonction, c'est que "quelque chose l'appel"

la fonction va "calculer quelque chose" au sein de son déroulé de code

ensuite, pour transmettre à la procédure appelante le résultat, on fait MonNomDeFonction = MonResultat

regarde bien le tutoriel de description des fonctions personnelles
http://silkyroad.developpez.com/vba/fonctions/

et notamment ici : http://silkyroad.developpez.com/vba/fonctions/#LII-B-5

ici, peut-être qu'il faut une variable intermédiaire ?

Code :

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

1
2
3
4
5
Dim Toto as String
 
' ...
Toto = Rst(0).Value
LireCellule_ClasseurFerme = Toto

[lodan]

Merci

J'avais fait le test suivant et les valeurs affichées par MsgBox sont bonnes mais pas la valeur de retour

Code :

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

1
2
3
4
5
6
Dim Resultat As Variant
    ...
    MsgBox (Rst(0).Value)
    Resultat = Rst(0).Value
    MsgBox (Resultat)
    LireCellule_ClasseurFerme = Resultat

Le format de ma cellule de réception est un nombre et c'est le nombre 83 que j'affiche dans mes MsgBox.

[joe.levrai]

peux-tu remettre le code complet que tu viens juste d'utiliser ? J'ai pris soin de ne pas dire "procédure" ou "fonction", on sera fixé avec ce que tu vas nous montrer

[Invité]

déjà dans ton code je ne vois pas de fonction!

Code :

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

Sub LireCellule_ClasseurFerme()

maintenant imaginons qu'il s'agit d'une fonction!

Code :

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

Function LireCellule_ClasseurFerme()

une fonction c'est comme une variable!
vue de l'extérieur c'est comme un sub vue de l'intérieur c'est une variable

Code :

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

1
2
3
sub test()
   msgbox MyFonction 'vue de l'extérieur c'est comme un sub 
end sub

Code :

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

1
2
3
Function MyFonction()
MyFonction="toto" ' vue de l'intérieur c'est une variable
end fuction