Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 11/10/2011, 18h52   #1
Nouveau Membre du Club
 
Inscription : avril 2009
Messages : 134
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 134
Points : 29
Points : 29
Par défaut ListBox.Rowsource depuis un autre classeur

Bonsoir à tous et toutes

Dans mon fichier excel, je viens de créer un UserForm avec une ListBox

Ce fichier excel peut être dans de multiples répertoires

La ListBox doit par contre aller chercher ses données dans un seul classeur, situé à "e:\aff\test.xls

Code :
1
2
3
4
Private Sub UserForm_Initialize()
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = "[Test.xls]ListeLocaux!A2:A10"
End Sub
Je n'arrive pas à trouver la bonne syntaxe pour que la 3e ligne du code trouve bien mon fichier test.xls

Si vous avez une réponse, je vous en remercie par avance

Daniel S
familledacp est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/10/2011, 19h17   #2
Expert Confirmé
 
Avatar de patricktoulon
 
patrick
Inscription : avril 2009
Messages : 1 829
Détails du profil
Informations personnelles :
Nom : patrick
Âge : 42
Localisation : France, Var (Provence Alpes Côte d'Azur)

Informations professionnelles :
Secteur : Bâtiment

Informations forums :
Inscription : avril 2009
Messages : 1 829
Points : 2 857
Points : 2 857
Envoyer un message via MSN à patricktoulon
Par défaut heu...!!!

bonjour

je me suis rendu compte a plusieurs reprises que row source ne fonctionnait que quand le sheets en question avait le focus

tu va devoir passer soit par open le fichier et un tableau sur le range

soit utiliser la méthode pour lire ou écrire dans les fichiers fermés
tu a çà dans la faq


au plaisir
__________________
mes fichiers dans les contributions:
mon formulaire mail avec CDO en vba et mon formulaire mail avec CDO en vbs dans un HTA
mon nouveau mouse in out pour les boutons dans un userform
mon addin pour prendre un cliché de selection de cellules

si ton problème est résolu n'oublie pas de pointer :résolu:ça peut servir aux autres
et n'oublie pas de voter
patricktoulon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/10/2011, 07h03   #3
Nouveau Membre du Club
 
Inscription : avril 2009
Messages : 134
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 134
Points : 29
Points : 29
Bonjour Patrick et merci pour ta réponse

Voila où j'en suis arrivé

et cela fonctionne (pour moi c'est le principal )


Code :
1
2
3
4
5
Private Sub UserForm_Initialize()
    Workbooks.Open "e:\1-AFF\AAA\00 Base\BaseMateriels\NovoMaterBAse.xls"
    ActiveWindow.WindowState = xlMinimized
    ListBox1.RowSource = "[NovoMaterBAse.xls]NovoMaterBAse!B6:B1300"
End Sub

Bonne journée

Daniel
familledacp est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h31.


 
 
 
 
Partenaires

Hébergement Web