Excel 2010 Connexion + importation depuis un classeur fermé

Fermé

ExcelRameur Messages postés 8 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 6 juillet 2017 - 4 juil. 2017 à 19:47
f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 - 6 juil. 2017 à 11:58

Bonjour,

Excel 2010 VBA.
Dans un onglet "cible" d'un classeur xlm 2010, je cherche à faire une connexion depuis un un onglet "source" d'un autre classeur et importer les données de cet onglet source.
La macro enregistrée via "développeur/enregistrer une macro" se bloque sur le pop-up de choix de l'onglet.

Merci d'avance !

A voir également:

Excel 2010 Connexion + importation depuis un classeur fermé
Gmail connexion - Guide
Liste déroulante excel - Guide
Rouvrir un onglet fermé - Guide
Si et excel - Guide
Coco chat fermé - Accueil - Réseaux sociaux

3 réponses

Réponse 1 / 3

yg_be Messages postés 23412 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 décembre 2024 Ambassadeur 1 557
4 juil. 2017 à 20:37

bonsoir, peux-tu partager ton code vba?

ExcelRameur Messages postés 8 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 6 juillet 2017
5 juil. 2017 à 09:45

Hello,
voici le "code" :
Sub testsub()
Sheets("onglet_cible").Select
Range("A1").Select
Workbooks("Classeur_cible.xlsm").Connections.AddFromFile _
"C:\classeur_source.xlsm"
Sheets("onglet_source").Select
End Sub

Réponse 2 / 3

yg_be Messages postés 23412 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 décembre 2024 Ambassadeur 1 557
4 juil. 2017 à 20:43

exemple:

Option Explicit
Sub rameur()
Dim classeursource As Workbook
Dim ongletsource As Worksheet
Set classeursource = Workbooks.Open("nom complet (chemin inclus) du fichier source")
Set ongletsource = classeursource.Sheets("nom de l'onglet source")
' travaillons maintenant avec ongletsource

End Sub

Réponse 3 / 3

yg_be Messages postés 23412 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 décembre 2024 Ambassadeur 1 557
5 juil. 2017 à 10:00

autre exemple:

Option Explicit
Sub rameur()
Dim ongletcible as Worksheet
Dim classeursource As Workbook
Dim ongletsource As Worksheet
Set ongletcible = Sheets("onglet_cible")
Set classeursource = Workbooks.Open("C:\classeur_source.xlsm")
Set ongletsource = classeursource.Sheets("onglet_source")
' travaillons maintenant avec ongletsource et ongletcible

End Sub

ExcelRameur Messages postés 8 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 6 juillet 2017
6 juil. 2017 à 11:37

Bonjour yb_ge
Et merci tout d'abord d'avoir regardé.
Alors c'est presque ça car je ne veux pas ouvrir le fichier source (en fait j'ai plusieurs fichiers source qui font entre 40 et 50 Mo chaque...).
Je cherche à créer des connexions ce qui me permet de rafraichir ("actualiser") les données dans mon classeur cible.

f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 712 > ExcelRameur Messages postés 8 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 6 juillet 2017
6 juil. 2017 à 11:58

Bonjour, a vous deux,

ExcelRameur
site a voir pour lire classeur ferme
https://silkyroad.developpez.com/VBA/ClasseursFermes/

Discussions similaires

Coco chat connexion sur mobile, le tchat est fermé ?

Formaté mais pas de connexion Internet ?