Discussion :

[Nicoyong]

bonjour à tous.
En m'inspirant du tutoriel qui est sur votre site.http://silkyroad.developpez.com/VBA/ClasseursFermes/#
je cherche à écrire une macro qui me permettrait de rechercher dans la première colonne, d'un classeur fermé, une valeur (numéro d'affaires)et de me renvoyer les valeurs contenues dans les colonnes correspondantes.
De plus, il est possible que mon numéro d'affaire existe sur plusieurs lignes ( dans la même colonne), dans ce cas je veux pouvoir sélectionner la plus récente de ces lignes.
J'aurais besoin d'aide pour formuler cette requête.
En vous remerciant d'avance.

[deedolith]

Ça m'a l'aire d'être une simple requête, qu'il suffit de trier:

Code SQL :

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

1
2
3
SELECT numero_affaires, colonne1, colonne2, colonne3.....
FROM classeur_fermé
ORDER BY numero_affaires, date_affaire

Pour chaque numéro d'affaire, la 1er ligne sera la plus récente.

[Nicoyong]

Merci de votre réponse aussi rapide.
Pourriez-vous me donner plus d'explications au sujet des lignes que vous me proposez car je suis perdu. je cherche à retrouver dans mon classeur fermé, si il existe, le numéro d'affaires contenues à la cellule A2 de mon classeur ouvert, afin de pouvoir récupérer certaines données du classeur fermé.

[Philippe Tulliez]

Bonjour,
Si tu affichais déjà la procédure que tu as écrite.

[Invité]

Bonjour,
cette requête te retourne la dernière lignes lier aux N° d’affaires!

Code :

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

Sql = "SELECT Frm.numero_affaires, Last(frm.colonne1) as DernierColonne1 FROM [Feuil1$] as Frm GROUP BY Frm.numero_affaires;"

[Nicoyong]

Au vu des réponses, je crois avoir compris que les requêtes s’exécute en SQL et non en VBA, ca explique beaucoup de chose
Si c'est bien ça, il faut que j'apprenne un nouveau langage. Auriez vous des pistes par ou commencer ?
voici mon code :

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
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Users\***\Documents\Developement\Carotage\Recapitulatife carotage.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
End Sub

[Invité]

http://sql.developpez.com/

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
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Users\***\Documents\Developement\Carotage\Recapitulatife carotage.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 dim Requete= new Adodb.Recordset
Sql = "SELECT Frm.numero_affaires, Last(frm.colonne1) as DernierColonne1 FROM [Feuil1$] as Frm GROUP BY Frm.numero_affaires;"
Requete.open Sql,Cn
Sheets("Feuil1").Range("A2").CopyFromRecordset Requete

    'Définit la requête.
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
End Sub

[Nicoyong]

bonjour à tous.
Je vous prie d'excuser mon manque de réponse à ce sujet. D'autres dossiers brûlants sont arrivés et je n'ai pas eu le temps de me replonger sur vos réponses. Je vais corriger cela au plus vite

Merci rdurupt, pour ta réponse mais dans le code que tu m'as proposé j'ai un problème avec la ligne :

Code :

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

dim Requete= new Adodb.Recordset

qui me donne une erreur de compilation, syntaxe.

[Invité]

Bonjour,
Oui dessolé une syntaxe nul a chier

Code :

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

dim Requete as new Adodb.Recordset