Discussion :

[SylVBA]

Bonjour,

Je me tourne vers vous pour vous demander un coup de main sur ADO.

Je manipule plutôt bien le VBA, mais je reste une bille sur ADO

J’ai en premier lieu lu le très bon tuto de SylkiRoad (Lire et écrire dans les classeurs Excel fermés)

Je n’arrive pas à modifier les exemples pour arriver aux requêtes suivantes :
Première demande :
Dans le code « RequeteClasseurFerme() » de la page 11

On définit NomFeuille as string, puis dans le code on a cette ligne :

texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
Comment remplacer cette ligne en utilisant le CodeName de la feuille Excel et nom pas le nom de l’onglet (sheetname) ?

Les utilisateurs ont quelque fois tendance à modifier le nom de l’onglet, ce qui provoque une erreur, de plus toutes mes feuilles sont nommées en dur (Codename) et il serait plus facile de gérer les requêtes à partir des codename des feuilles concernées..

Est-ce possible ? Et si oui comment ?

Deuxième question pour nos champions :

Dans le code « extractionValeurCelluleClasseurFerme » de la page 12
On définit la variable Cellule as string : OK

Si on veut extraire une cellule alors on définit Cellule comme "A1 :A1" : pas de problème.

Puis on a le commentaire suivant :
'Pour une plage de cellules, utilisez:
'Cellule = "A4:C10"

Mais imaginons que la plage soit une colonne du fichier source avec un nombre inconnu de lignes remplies….

A quel moment je peux lui dire :

Dim DerLig as long

DerLig = La feuille définit du classeur désigné et donc le numéro de la dernière cellule non vide de la colonne B ou de la deuxième colonne (ou une autre ….)

Ensuite je pourrais définir 'Cellule = "B4:B" & DerLig et donc de définir Cellule avec une adresse entre B2 et B & Derlig.

Et enfin la question qui en découle, suis obligée d’exporter les informations dans une feuille de mon classeur puis les utiliser pour remplir une ListBox d’un Userform suivant certains critères, ou puis je directement alimenté un UF avec les données du classeur fermé sans passer par une copie dans une feuille cachée ou autre ? Par exemple lister dans une ListBox la liste unique des clients facturés ou une recherche de disponibilité dans une base article Excel fermée ?

Merci d’avance de votre aide et de vos explications, il me manque pas mal d’info pour comprendre et mettre en œuvre de nombreuses statistiques à partir de fichier Excel fermés, ces fichiers sont au format *.xls et pas au format 2007, mais les requêtes sont écrites dans des fichiers Ex 2013.

Je reste très attentive à vos commentaires,

Un grand merci d’avance à vous,

SylVBA

[kiki29]

Salut, ne lisant pas les laïus, remplace NomFeuille par CodenameDeLaFeuille.Name.
pour la suite :

Code :

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

DerLig = shCodeNameFeuille.Range("B" & Rows.Count).End(xlUp).Row