obtenir des données d'un classeur excel fermé

[fodjio]

Bonjour tous le monde!

J'ai besoin de recupérer une base de données se situant dans un autre classeur.
Et cela sans être obligé d'ouvrir ce classeur.

Je ne peux pas utiliser microsoft query car "y déconne grave" et il "m'oublie" des données, et je n'ai aucune idée pourquoi il me fait ça.

Enfin bref, toi qui lit ce message et qui a une réponse aide moi s'il te plait,
d'avance merci beaucoup...

 

[andré]

Salut,

Une petite recherche t'auraiT permis de retrouver le message suivant (aujourd'hui !):
<http://www.excel-downloads.com/html/French/forum/messages/1_127628_127628.htm>

Ândré.

 

[fodjio]

Salut et merci beaucoup c'est sympa!

Tu vas pas me croire mais ça fait 3 heure que je cherche dans le forum et je l'avais pas trouvé celui-là

(je dois mal mis prendre)

aujourd'hui mais à 3 heure du mat' tout de même (petite excuse il est vrai)

 

[fodjio]

Mais une petite question André :

est-ce que l'on peut faire quelque chose du genre

set maPlage= range("C:[monClasseur.xls]!Feuil1!A:Z")

par exemple

parce que moi je veux des colonnes entières et pas seulement une case

si tu peux me répondre, merci...

 

[Michel_M]

Bonsoir fodjio

ci joint demos sur liaisons lecture-écriture avec classeurs fermés (et avec access en petit supplèment gratuit gracieusement illustré)

Tu as une appli dans le fil problème multi colnnes de dimanche demandeur riri

nécessite bibliothèque ADO. Cocher la référence :
Microsoft ActiveX Data Object 2.x Library

Michel

 

[fodjio]

Merci bien Michel

Dès que j'aurai compris comment ça marche ch'te fait signe...

En attendant les autres si vous avez des idées n'hésité pas

Allez moi faut qu'aille MANGER!

A toute...

 

[fodjio]

Resalut michel!

Maintenant que j'ai finis de manger (c'était bon merci), est-ce que tu pourrai stp à quel emplacement l'on doit coché la référence à la bibliothèque (je ne connais pas cette partie d'excel)

En attendant je cherche, mais je pouvais gagner du temps ce serai très appréciable (c'est déjà assez compliqué comme ça)

Merci...

 

[fodjio]

Encore une autre petite question,

est-ce que cette bibliothèque est intégré à excel ou alors est-ce c'est comme un plug-in?

Encore merci

 

[Michel_M]

Salut,

Avant d'aller manger à mon tour:

tu vas dans l'éditeur VBA (alt+F11)

tu demandes outils - référence et tu cherches microsoft activex etc (2.0)

A+

Michel

 

[fodjio]

Merci beaucoup,

mais avant que tu me réponde j'avais à faire une connection, au moins maintenant je sais ou ça se trouve (et que c'est déjà coché par défaut), c'est sympa vraiment...

Seulement encore un gros problème :

Il y a des champs qui n'affichent pas de valeurs!

A cause des cellules vide ?? (il y en a beaucoup)

Si t'as une réponse tu me sauve la vie, parce que ça commence souler cette histoire de base de données

ReMerci.. et bon appetis bien sur...

 

[fodjio]

Salut Michel, grâce à toi j'ai enfin réussis à importer une bse de données!

seulement lorsque je fais autre requête que :
SELECT * FROM Table

J'ai une erreur =>
"Aucune valeur donnée pour un ou plusieurs de paramètres requis"

Si ça peut t'aider, valà le script:

Sub ImporterBdD()

Const FichierSource As String = classeur1.xls"
Const NomPlage As String = "BdD"
Dim NomFichier As String
Dim RequeteSQL As String
Dim ConnectionADODB As New ADODB.Connection
Dim RecordsetADODB As New ADODB.Recordset

RequeteSQL = "SELECT * FROM [" & NomPlage & "] ORDER BY Jour;"

'Connection à la base de données
ConnectionADODB.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & FichierSource & _
";extended properties=""Excel 8.0;HDR=no;IMEX=1"""

'Création du Recordset et éxécution de la commande SQL
Set RecordsetADODB = ConnectionADODB.Execute(RequeteSQL)

Application.ScreenUpdating = False
Feuil1.Cells(1).CopyFromRecordset RecordsetADODB

RecordsetADODB.Close
ConnectionADODB.Close
Application.ScreenUpdating = True

End Sub

Merci de me dire pourquoi ça ne fonctionne pas...A+