[VBA-E] Utilisation des classeurs fermés

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/09/2007, 10h34
Pierre Fauconnier

Pour Excel 2007, je ne sais pas trop si c'est cette référence qui doit être cochée ou une autre. Regarde dans les références pour voir s'il n'y a pas une plus approchante...

Vérifie bien les chaines de caractères que tu passes, et transmets-nous éventuellement le code adapté qui plante...

Ici, tu trouveras des messages qui disent que cela fonctionne.

Ok?
26/09/2007, 11h15
Pierre Fauconnier

Ce serait plus facile avec les lignes qui précèdent la ligne

Code:

.open

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim chemin As Variant
    chemin = Range("L12").Value & "\"
    Dim marque As String
    marque = Range("S26").Value
    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 = chemin & "Tarifs_BFL_Automatisme.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = marque
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
           & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With

26/09/2007, 12h36
Pierre Fauconnier

Es-tu sûre du nom du fichier?

Pour le vérifier, mets un point d'arrêt sur la ligne

Code:

nomfeuille = ...

et vérifie le nom du fichier
26/09/2007, 13h59
a.dequidt

Pour moi nomfeuille recoit le nom de l'onglet dans lequel on fait la recherche...
26/09/2007, 14h06
Pierre Fauconnier

Ce qu'il faut vérifier dans un premier temps, c'est le nom du classeur... C'est pourquoi je te proposais de mettre un arrêt après que la variable NomFichier ait été valorisée. Ainsi, tu peux vérifier que le classeur que tu renseignes à la connexion ADODB est un classeur qui existe.

Tu peux aussi fonctionner en mode pas à pas
26/09/2007, 14h29
a.dequidt

Bon alors, la variable Fichier possède le chemin du classeur. (c:\...\tarifs.xls)
Et la variable NomFeuille possède l'onglet dans lequel il faut effectuer la recherche
26/09/2007, 14h33
Pierre Fauconnier

Cela, je m'en doute un peu...

Ce que je te demande, c'est de vérifier que les valeurs de tes variables sont bonnes, et tu ne pourras le vérifier qu'en exécutant le code pas à pas et en affichant la vraie valeur des variables.

Il se peut très bien que la variable censée contenir le nom de ton fichier contienne une erreur...
26/09/2007, 14h59
a.dequidt

Bé non fichier et chemin possèdent ce qu'il faut :/
26/09/2007, 15h35
Pierre Fauconnier

Il faut que je teste sur un XL2007, mais professionnellement, je suis toujours en 2003. Je testerai sur celui de ma fille qui est en 2007. J'essaierai de faire cela ce soir.
26/09/2007, 15h36
a.dequidt

Fait pas ça malheureux :oops:

Je suis sous excel 2003
26/09/2007, 15h57
Pierre Fauconnier
?????

Mais alors, tu utilises le mauvais provider....

Revois un de mes posts précédents. Ta connexion doit s'ouvrir avec
Code:

1 2 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & nomfichier & ";Extended Properties=""Excel 8.0"";"

Voir 40 message(s) de cette discussion en une page