Discussion :

[Grez_01]

bonjour les amis

ce que j'aimerais être capable de faire serait d'aller chercher des données dans un classeur fermé et ailleurs dans mon pc et ce sans copier de valeurs dans une plage, j'aimerais par exemple chercher une valeur dans un tableau d'une feuille nommée "Page 1" du document fermé par recherche vertical/horizontale et retourner la valeur dans mon fichier dans une cellule spécifique.

j'avais comme idée :

Code :

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

1
2
3
4
5
6
set plageVerif = doccument_excel_fermer.sheets("Page 1").cells(1, 1).CurrentRegion
feuille = (MonthName(Month(Sheets("Semaine").Cells(4, 3).Value)) & " " & Year(Sheets("Semaine").Cells(4, 3).Value))
nom = "Bolduc"
for a = 0 to pageVerif.Rows.Count
    Sheets(feuille).Cells(ligne, 5) = (Application.VLookup(nom, plageVerif, 3, False)
Next a

et il serais tu possible de raccourcir cette commande ??

Code :

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

feuille = (MonthName(Month(Sheets("Semaine").Cells(4, 3).Value)) & " " & Year(Sheets("Semaine").Cells(4, 3).Value))

(feuille = "septembre 2016") par exemple

[kiki29]

Salut, à lire : Lire et écrire dans les classeurs Excel fermés

[Grez_01]

j'ai tenter de voir des lignes de code qui pourrais résoudre mon questionnement mais dès que je change les exemples pour faire ce que je voudrais que ça fasse, ça fini en code d'erreur

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
Sub tests()
 
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim plage As Range
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\...\Desktop\test.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;HDR=NO"""
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
 
    'je sais que texte_SLQ c'est ce que ca va chercher, mais comment je fait pour le remplacer pour avoir une recherche verticale/horizontale au lieux d'avoir un currentregion, je veux que cela me retourne une seule valeur
    texte_SQL = "SELECT * FROM [Feuil1$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
End Sub

[clementmarcotte]

Bonjour,

Le moteur Jet est incompatible avec Office 2007 et suivants.

Tu dois utiliser le moteur ACE au lieu du moteur Jet,

Pour les chaînes de connexion, tu peux jeter un œil sur ce site:

http://www.connectionstrings.com/excel/

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
With CreateObject("adodb.connection")
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & FicihiXls & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
            .Open
Set Rs=.Execoute("select * from [septembre 2016$] where [champ]='toto'"
            .close
End With

ça HDR=YES ça veut dire que la première ligne est la zone de titre de colonnes.

Le type de connexion que tu utilises est bien pour du xls. As tu un message d'erreur et si oui le quel?

[Grez_01]

erreur : FicihiXls (variable not define)
dans la ligne

Code :

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

1
2
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & FicihiXls & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""

et si possible j'aimerais utiliser des fichiers xslx