Discussion :

[deniooo]

Bonjour,
Je viens de trouver cette doc :
Données/Validation
Sur les listes dynamiques tirant leurs donnée d'un fichier fermé.
Or je ne comprends pas trés bien comment cela fonctionne.
Voila ce qui me trouble :

Code :

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

1
2
repertoire = ThisWorkbook.Path & "\"
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & repertoire & "\" & "DVSource.xls"ce qui au final done un DBQ = \toto\tata\lerepertoire\\DVSource.xls

Est-ce normal le \\ ?!

Autre question, peut-on utiliser cette méthode pour un fichier distant qui n'est pas dans le même répertoire que le fichier dans lequel on applique cette macro ?!

J'ai bien entendu essayé et ce, sans succés.

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$2" Then
   repertoire = "\Path\..\Test Reporting\"
   Dim rs As ADODB.Recordset
   Set cnn = New ADODB.Connection
   cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & repertoire & "\" & "DVSource.xls"
   Set rs = cnn.Execute("SELECT noms FROM MaBD where noms<>'' ORDER BY noms")
    Sheets("Feuil2").[A2:A1000].ClearContents
   Sheets("Feuil2").[A2].CopyFromRecordset rs
  End If
End Sub

Bien entendu il existe Feuil2 dans mon fichier.

Quelqu'un a une idée ?!

[SilkyRoad]

bonsoir

Voila ce qui me trouble :

repertoire = ThisWorkbook.Path & "\"
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & repertoire & "\" & "DVSource.xls"ce qui au final done un DBQ = \toto\tata\lerepertoire\\DVSource.xlsEst-ce normal le \\ ?!

Il y a effectivement un antislash de trop

Autre question, peut-on utiliser cette méthode pour un fichier distant qui n'est pas dans le même répertoire que le fichier dans lequel on applique cette macro ?!

normalement oui.

Code :

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

repertoire = "\Path\..\Test Reporting\"

le chemin indiqué est il correct?
et il y a toujours un antislash de trop à la fin.


http://silkyroad.developpez.com/VBA/ClasseursFermes/




bonne soirée
michel

[Pierre Fauconnier]

Salut.

Personnellement, avant de faire tout cela (sauf si le VBA est obligatoire), je m'orienterais vers MSQuery pour récupérer les données du classeur distant, et je baserais ma liste déroulante de validation sur le résultat de la requête...

[deniooo]

Malheureusement oui Excel et VBA sont de mise..
J'ai pris une autre solution, j'ouvre le fichier en lecture seule à l'ouverture du premier fichier. C'est barbare mais c'est le plus rapide pour les délais qui me sont fixés..

Je me demandais comment est-ce qu'on désactive les message de demande d'ouverture en lecture et autre jouyeusetés du genre ?!

De même comment désactive-t-on l'affichage d'un classeur ?
(je veux ouvrir mon classeur source en "caché" ou un fond)

merci d'avance !

[Pierre Fauconnier]

Pourquoi est-ce obligatoire de le faire par VBA? (exercice d'un cours que tu suis?)

Si l'obligation est "de résultat" et pas "de moyens", MSQuery permet d'atteindre le résultat sans problème...

[deniooo]

Obligation de moyen malheureusement.
Je fais un outil de reporting et il évolue TRES vite. J'en suis à ma 6éme version en moins de 2 semaines.
Seulement il doit être utilisé par tout le monde, donc accessible.
De plus je n'ai pas de budget prog, et je ne suis pas programmeur à la base.

Donc gogo excel et ces joyeusetés avec tous les problémes que cela entraine.

Mes questions sont toujours d'actualités donc !

[Pierre Fauconnier]

Ben justement. MSQuery, cela te prend 3 minutes sans programmation, et accessible par "tout le monde"...

[deniooo]

Ah je ne connais pas !
ce ne sont pas les requéte de pseudos BD que fait excel à partir d'un autre fichier ?!

[Pierre Fauconnier]

Pourquoi de pseudo BD?

MSQuery peut aller chercher des données dans des bases SQL, ACCESS, Paradox, FoxPro, Dbase, même dans des feuilles Excel...

C'est puissant et paramétrable. Il y a moyen de configurer la mise à jour à l'ouverture du fichier, sur évènement ou autre...

Cela me semble une très bonne solution pour récupérer des données, et je l'utilise très souvent.

Pour y accéder, Outils/Données Externes.../Créer une requête

[deniooo]

Et ben.. un nouveau monde s'offre à moi
je comprends de mieux en mieux !
où peut-on trouver les syntaxe de BD ? je suis habitué à MySQL mais là.. le différent c'est <> si j'ai bien compris.
C'est un mélange de BD et de microsoft ?!

[Pierre Fauconnier]

Tu as http://sql.developpez.com qui est très complet sur les syntaxes de différents moteurs sql. La syntaxe de MSQuery se rapproche assez fort de la syntaxe de MSSQL, mais il y a, comme toujours, quelques différences.

Tu peux par exemple utiliser des fonctions SQL dans les critères, voire même pour créer des "champs calculés" ce qui évite de devoir le faire dans Excel. Tu as bien entendu les possibilités de tri.

Normalement, par défaut, tu as un assistant de requête (qui ressemble un peu à celui des requêtes Access).

Le plus simple est que tu essaies et que tu continues dans ce fil de discussion pour tout complément d'infos.

[deniooo]

Paaaaarfait !! merci beaucoup !

Par une contre petite question/remarque :
les colonnes SQL que Excel détecte frâce aux "noms", je les ai un peu testé.
Je me suis rendu compte qu'il ne prends pas en compte les plages de noms dynamiques..
ce probléme vient de moi ou est-ce une limitation ?!

[Pierre Fauconnier]

Pour que MSQuery fonctionne de façon optimale, il faut que tes données soient organisées dans Excel à la mode "base de données", c'est-à-dire:
Une feuille par table
On commence en A1
La première ligne reprend les intitulés de colonne
Normalement, pas de colonne sans nom de champ (pas de cellule vide en ligne 1 entre la première colonne et le dernier champ de la table

En respectant cela, tu n'as pas besoin de plages dynamiques avec DECALER. MSQuery prend toute la table et tu trouveras dans MSQuery les noms des onglets comme étant les noms de tes tables...

Si des données sont ajoutées dans la feuille source, elles seront automatiquement récupérées via le MSQuery lors de la mise à jour.

Pense qu'un clic droit sur une cellule "récupérée" va permettre de modifier les propriétés de la requête (notamment la mise à jour automatique à l'ouverture) et que l'on peut aussi réaliser la mise à jour par VBA.

[deniooo]

D'accords, utiliser excel comme un BD !
je vois.
Mon probléme ici c'est que le fichier qui me servira de source n'est pas ordonné de cette façon, je doit donc passer par les noms.. ou autre si cela existe ?!

[Pierre Fauconnier]

Je pense que tu n'as pas d'autre choix que d'utiliser une plage non dynamique et de la redimensionner par VBA.

[EDIT] Une autre solution serait de ramener les données de la plage nommée dynamiquement dans une feuille qui servira de table, et qui sera "normalisée"...[/EDIT]