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 !