Discussion :

[fab-56]

Bonjour,
J’aimerais sous vba, récupérer des informations d’un autre classeur avec plusieurs conditions et plusieurs résultats.
Exemple : j’ai le compte 626200 à chercher du DAF dans un autre classeur. J’aimerais récupérer les montants de ces 2 conditions.
Avez-vous la solution?

Cordialement.

[Pellouaille]

Hello fab-56,

En copiant collant ton titre dans google et en ajoutant le super mot clé 'Developpez', je suis tombé la-dessus:

http://www.developpez.net/forums/d12...ure-fermeture/

Sans doute quelques réponses à tes questions.

Une fois le fichier ouvert, tu peux rechercher l'info dont tu as besoin puis copier/coller vers ton premier classeur.

Cordialement,

Pellouaille

[fab-56]

Bonjour Pellouaille,

Merci pour ton aide !!!

[Logisticien]

bonjour;

voici un code qui pourra utile pour toi:

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
Sub RequeteClasseurFerme_Excel2007()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "\\Lien de votre Fichier.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "NOm de Feuil"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
        'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule que vous voulez
    Range("Définir Cellule").CopyFromRecordset Rst
 
    '
    '... la requête ...
    '
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

[Menhir]

Passer par du OLEDB pour récupérer les données d'un autre classeur Excel, c'est un peu comme passer la le trou du cul pour opérer des amygdales.

J’aimerais sous vba, récupérer des informations d’un autre classeur avec plusieurs conditions et plusieurs résultats.
Exemple : j’ai le compte 626200 à chercher du DAF dans un autre classeur. J’aimerais récupérer les montants de ces 2 conditions.

Avec des information aussi floues et peu précises, pas facile d'apporter une solution utilisable...

Essaye d'adapter ça :

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
Dim WSSource As Worksheet, WSDest As Worksheet
Dim LigS As Long, LigD As Long
 
Set WSDest = ActiveSheet
LigD = 1 + WSDest.Cells(Rows.Count, 1).End(xlUp).Row
 
Workbooks.Open "C:\MonRépertoire\MonClasseur.xls"
Set WSSource = ActiveSheet
 
For LigS = 1 To WSSource.Cells(Rows.Count, 1).End(xlUp).Row
    If WSSource.Cells(LigS, 1) = "MaCondition" Then 
        WSSource.Rows(LigS).Copy WSDest.Rows(LigD)
        LigD = LigD + 1
    End If
Next LigS

[fab-56]

Bonjour,
Merci pour vos réponses. C’est vrai que c’est assez flou ce que je veux. En gros j’aimerais récupérer des informations d’un autre classeur et que sur la même ligne il y a la condition que je cherche. Enfin de retranscrire ces informations sur mon classeur actif.
EX : condition : DAF
Information à récupérer : le montant
Sur le classeur : service montant
DAF 56
DMC 345
DAF 651
ETC …
J’ai essayé de m’adapter à vos réponses, mais sans succès.
Cordialement

[Menhir]

En gros j’aimerais récupérer des informations d’un autre classeur et que sur la même ligne il y a la condition que je cherche. Enfin de retranscrire ces informations sur mon classeur actif.

Désolé mais c'est toujours aussi flou.
Si tu faisais des copies d'écran de tes données sources et du résultat que tu veux obtenir, ce serait peut-être plus clair.

[fab-56]

c'est en pièce jointe !

[kiki29]

Salut, pour info, à voir : Lire et écrire dans les classeurs Excel fermés.

[Menhir]

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
Dim WSSource As Worksheet, WSDest As Worksheet
Dim LigS As Long, LigD As Long
 
Set WSDest = ActiveSheet
LigD = 1 + WSDest.Cells(Rows.Count, 1).End(xlUp).Row
 
Workbooks.Open "C:\MonRépertoire\MonClasseur.xls"
Set WSSource = ActiveSheet
 
For LigS = 3 To WSSource.Cells(Rows.Count, 1).End(xlUp).Row
    If WSSource.Cells(LigS, 2) = "DAF0101" Then 
        WSDest.Cells(LigD,1).Value = WSSource.Cells(LigS,4).Value
        LigD = LigD + 1
    End If
Next LigS

[fab-56]

Merci !! La fonction apparemment tourne bien mais impossible de voir les montants sur le classeur !

[fab-56]

C'est bon !! Merci beaucoup !!!!

[fab-56]

Je reviens vers vous, car j'ai constaté un problème, si je devais relancer la macro les montants déjà constatés reviennent sur les lignes plus bas. Est ce possible de le faire en format if ... then ?
Cordialement,

[Menhir]

Ecoute, au lieu d'envoyer tes spécifications au compte-gouttes, essaye une bonne fois pour toute de bien expliquer ton besoin clairement et en détail, et pas simplement par un exemple. Parce que là, ça commence à être agaçant.