Discussion :

[Myaccess]

Bonjour a tous,

J'ai un petit problème avec la connexion de données dans Excel.

J'ai plus au moins, une grande partie de données dans une feuil excel (environs 3000 lignes) à faire connecté vers un autre classeur excel.

La méthode proposé dans excel permet de faire connecté ces données en sélectionnant la feuil (ce qui m'oblige de mettre les donnés a partir de la 1er ligne et la 1er colonne avec les entêtes en premier bien sure).

Mais dans mon cas, les entêtes commencent à partir de la 8eme ligne (les premières lignes, je les ai utilisé pour afficher quelques calculs lorsque je fais un filtre sur ma feuil de données).

En résumé, j'aimerai faire une connexion à partir d'une plage donné (sélection par mon choix) vers un autre classeur (feuil).

Alors, j'aimerai savoir, qu'elle est la méthode approprier pour faire cela.

Merci d'avance pour toutes proposition.

[Overeath]

Bonjour,

Code :

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

1
2
3
4
 
Sub connect
Workbooks("Classeur2").Sheets("Feuil1").range("taplage").Value = Workbooks("classeur1").Sheets("Feuil1").range("taplage").Value
End Sub

Il ne te reste plus qu'à indiquer le nom de ton classeur, ta feuille et ta plage
Le classeur ressemble à "monclasseur.xlsm" et pour le reste ça change pas
Lance cette macro de mise à jour quand tu veux pour voir apparaitre tes cellules sur le classeur 2 à jour.
Si tu ne comprends pas comment marche une macro, n'hésite pas !

Cordialement,
un aspirant à la programmation

[Myaccess]

Oh ! Merci Overeath....j'aime bien ceci.

Ok, Je vais essayer ce code et je vous rendrai la réponse du résultat.

[Myaccess]

Pour un premier test ça ma donné un message d'erreur '9' : L'indice n'appartient pas à la sélection.

Voila, Je décrit ce que j'ai fait en détail:

Sub connect()
Workbooks("Test.xlsm").Sheets("Feuil1").Range("r8C2:r20c10").Value = Workbooks("BDsource_test2.xlsm").Sheets("Feuil1").Range("r1C1:r20c10").Value
End Sub

Question: est-ce que je doit mettre ce code au niveau du classeur source ou dans le classeur de destination des données ?

Mon exemple est le suivant:

Ficher de source de données : BDsource_test2.xlsm
Fichier de destination des données : Test.xlsm

Existe-il une erreur dans mon code ?

[Overeath]

Tu dois placer ce code dans le classeur de destination de tes données et effectivement, il y a 2 erreurs dans ton code d'après moi
L'outil range sert à "sélectionner" une plage de cellule qui doit se composer comme ceci : range("cellule en haut à gauche du tableau:cellule en bas à droite du tableau")
Et la j'ai pas trop compris ce que tu as mis aux deux range ^^

[Myaccess]

Mon classeur est on mode R1C1, les entêtes ils sont en chiffres (1,2,...) pas en lettres (A,B,...).

Ma plage est "r8C2:r17c11" en lettre ça devrai être "B2:K17", le R et le C, c'est Row et Column en anglais.

Oui, je ne suis pas sure de ma sélection "R8C2:R17C11" est correct, mais l'essentiel ma sélection en lettre devrait être "B2:K17".

[Overeath]

J'ai essayé cette macro, les deux classeurs ouverts sur une plage défini un peu au hasard et toutes les valeurs se sont placées sans problème.
Effectivement, si le classeur source n'est pas ouvert, cela ne fonctionnera pas (je viens d'essayer), il faut donc ouvrir le classeur via ta macro puis le refermer si tu veux .

Code :

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

1
2
3
4
5
6
7
 
Sub connect
Application.Workbooks.Open "d:\classeur1.xls"
Workbooks("Classeur2").Sheets("Feuil1").range("taplage").Value = Workbooks("classeur1").Sheets("Feuil1").range("taplage").Value
T = Timer: While T +2 > Timer: Wend ' le temps que les données se transfèrent
Workbooks("classeur1").close false
End Sub

Je viens d'essayer aussi et tout marche parfaitement
Et le message d'erreur vient du nom de ton classeur/feuile où tu as du te tromper

[Marc-L]

Bonjour !

Si le classeur n'est pas ouvert, en dehors de la possibilité de le détecter et donc de l'ouvrir,
il y a deux autres possibilités :  une via une simple formule de calculs donc accessible au débutant,
l'autre par connexion ADO comme exposée dans un tutoriel …

Je rappelle qu'ici étant le forum des formules de feuilles de calculs,
toute question de code doit être posée dans le bon forum et où il y a le plus de passage …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Myaccess]

Parfait ! Oh, merci beaucoup Overeath.

Oui en fin de compte le problème étais au niveau de la plage.

Très intéressant comme code.

Merci Overeath.

[Myaccess]

Merci Marc pour le complément,

En faite, oui vous avez raison.