Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Données/Validation classeur fermé Distant

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion deniooo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

deniooo

XLDnaute Occasionnel
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: 
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: 
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 ?!
 
Trier par date Trier par votes
Re : Données/Validation classeur fermé Distant

Bonjour,

Voir PJ

Code: 
Liste Donnée/Validation avec classeur fermé

-Les données sont dans un classeur fermé DVSource.xls
-Elles sont copiées dans l'onglet Liste de ce classeur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$2" Then
   repertoire = ThisWorkbook.Path & "\"
   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("Liste").[A2:A1000].ClearContents
   Sheets("Liste").[A2].CopyFromRecordset rs
  End If
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Merci de me redonner le code mais je ne le comprends toujours pas..

D'ailleurs quand s'active-t-il ?! à chaque fois que je change mon curseur de cellule ?!

Je n'arrive pas à l'adapter à un autre fichier..

des explication un peu plus précise si possible ?! 😱
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Bonjour à tous,

Pour que ce code marche, dans l'éditeur VBA :
Menu Outils-Références
Cocher : Microsoft ActiveX Data Objects 2.X Library

D'autre part le classeur DVSource.xls devra contenir une liste nommée MaBD contenant un champ Noms
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

J'ai bien ces noms et données.
Lorsque je coche tous les Microsoft ActiveX Data Objects 2.X Library il me dit qu'il y a un projet, de bibliothéque ou de domaine existe.

je n'ai pu installer que :
Microsoft ActiveX Data Objects 2.8 Multiobject Library
Microsoft ActiveX Data Objects 2.0 Library

Comment s'active cette macro ?!
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Il ne faut pas que tu coches
tous les Microsoft ActiveX Data Objects 2.X Library
Cliquez pour agrandir...

Coches en un seul (le plus récent), ça suffit.
J'ai mis un X car le numéro peut dépendre de ta version Excel...

Ensuite tu executes ta macro et dis nous où ça plante et avec quel message.
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Oauip j'ai tout bien comme il faut !

Si j'ai bien pigé la macro fait une copie du champs dans un autre onglet en faisant une espéce de requéte BD..

Mais dés que j'efface ce qu'il y a dans l'onglet, que je le relance histiore de voir s'il me recopie les data.. et bien il ne recopie plus rien..
😵
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Le code est exécuté à l'ouverture du classeur:

Code: 
Sub auto_open()
   ' Microsoft activex data object 2.8 à cocher
   repertoire = ThisWorkbook.Path & "\"
   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("Liste").[A2:A1000].ClearContents
   Sheets("Liste").[A2].CopyFromRecordset rs
End Sub

JB
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

merci BOISGONTIER, ton code fonctionne parfaitement,

Maintenant est-ce que l'update peut se faire en temps réel ou faut-il toujours relancer la macro ?!
 
Vote positif 0 Vote négatif
Re : Données/Validation classeur fermé Distant

Code: 
Dim temps
Sub auto_open()
  maj
End Sub
Sub maj()
   ' Microsoft activex data object 2.8 à cocher
   repertoire = ThisWorkbook.Path & "\"
   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("Liste").[A2:A1000].ClearContents
   Sheets("Liste").[A2].CopyFromRecordset rs
   Set rs = Nothing
   Set cnn = Nothing
   temps = Now + TimeValue("00:00:20")
   Application.OnTime temps, "maj"
End Sub

Sub auto_close()
  On Error Resume Next
  Application.OnTime temps, Procedure:="maj", Schedule:=False
End Sub

JB
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2013 Copier des données de plusieurs classeurs
Réponses
2
Affichages
751
Lone-wolf
B
  • Résolu(e)
XL 2013 Recupérer données dans un classeur fermé bilan horaire annuel.
Réponses
3
Affichages
3 K
micheldu52
E
  • Question Question
nombre colonnes ADO
Réponses
4
Affichages
1 K
erics83
E
R
  • Question Question
Requête SQL - problème date - where - récupération celllule
2
Réponses
18
Affichages
6 K
rcan7412
R
Z
  • Question Question
copier une feuille d'un classeur fermé dans un classeur ouvert
Réponses
1
Affichages
3 K
herve62
G
  • Question Question
XL 2010 Erreur exécution 3021 BOF ou EOF
Réponses
0
Affichages
1 K
GHISLAIN
G
E
  • Question Question
XL 2013 Lire plage cellule classeur fermé
Réponses
8
Affichages
3 K
Etn
E
E
  • Question Question
Lire dans classeur fermés .csv
Réponses
4
Affichages
2 K
erics83
E
J
  • Question Question
lire cellule nommée fichier fermé (ADO ou ExcecuteExeclForMacro)
Réponses
6
Affichages
2 K
jojo_peter67
J
E
  • Question Question
Recherche dans liste externe
2 3
Réponses
31
Affichages
5 K
erics83
E
C
  • Question Question
Convertir les données copiées avec ADODB connection d'un classeur fermé
Réponses
4
Affichages
2 K
job75
B
  • Question Question
Lecture dans un classeur fermé excel 2010 .xlsx
Réponses
10
Affichages
2 K
Bill607
B
P
  • Question Question
Listes cascade sur 3 niveaux avec classeur fermé (ADO) trié et sans doublon.
Réponses
2
Affichages
2 K
prorudess
P
R
  • Question Question
Requête jointure sql dans une procédure VBA de 2 fichiers externes DBF
Réponses
10
Affichages
4 K
rcan7412
R
S
  • Question Question
Ecrire plusieurs lignes dans un classeur fermé
Réponses
2
Affichages
16 K
Scoobidoo
S
  • Question Question
Requête ADO Classeur Fermé
Réponses
1
Affichages
1 K
MuscatMimi
C
  • Question Question
Importer ligne entiere plutot que champs par champs
Réponses
0
Affichages
895
carlos
C
V
  • Question Question
Manip sur cellules fichiers fermes
2
Réponses
23
Affichages
3 K
VBANOVICE
V
R
  • Question Question
VBA : aide sur données / validation
Réponses
0
Affichages
1 K
riegel
R
C
  • Question Question
Excel VBA / Access / Variables d'interrogation
Réponses
5
Affichages
2 K
SergiO
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…