Résolu /Fermé
Bonjour,
Je souhaite récupérer dans un fichier Excel des valeurs de cellules situées dans d'autres fichiers Excel. Ces fichiers sont dans des dossier différents. La cellule par contre est toujours située au même endroit (même nom d'onglet et même case). J'ai mis en case A1 le début du chemin d'accès et dans d'autres cases la partie changeante du chemin (cf. photo de l'extract:). Ayant pas mal de valeurs à récupérer ainsi (plusieurs valeurs dans plusieurs fichiers), j'aimerais avoir une formule du style: $A$1&Ai&\[nom du]10. Onglet'! $G$2. Je n'arrive pas à trouver la bonne combinaison avec les bons symboles au bon endroit. Je pense qu'il doit y avoir une solution avec des formules. J'aimerais me passer de macro pour cela. Merci d'avance pour votre aide. DjiDji59430
Messages postés
3543
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
24 mai 2022
532
Modifié le 8 juil. Fonction VBA/Excel : récupérer les données d'un classeur - VB/VBA/VBS - Programmation - FORUM HardWare.fr. 2019 à 11:58
Bonjour à tous,
essaye:
=indirect($A$1&Ai&"\'[nom du fichier]onglet'!
Récupérer Données D Un Autre Classeur Excel Vba M
Le classeur source contient les données, le classeur d'arrivée contient les calculs (le simulateur). J'ai créé une macro qui permet à l'utilisateur de sélectionner le cas type sur le simulateur, et je voudrais que en fonction du nom du cas type qui arrive ainsi dans ma cellule A2, les données propres à ce cas type se placent en dessous. En code ce que j'ai fait ça donne:
Avec: 01 Plaine (analyse groupe CER France 01 - Chambre Agriculture 01) => le nom du cas type sélectionné
Bovins lait: la feuille qui contient le cas-type
B3:B75, D3 75: les cellules à copier
TEST V4: le simulateur
'01 Plaine (analyse groupe CER France 01 - Chambre Agriculture 01)
If Range("A2") = "01 Plaine (analyse groupe CER France 01 - Chambre Agriculture 01)" Then
Windows("fichier "). Activate
Sheets("Bovins Lait ")
Range("B3:B75, D3 75")
Range("D3"). Récupérer valeurs d'un autre classeur | Excel-Downloads. Activate
Windows("TEST "). Activate
Range("A3")
End If
Donc ça, ça marche très bien si les 2 classeurs sont ouverts, et je voudrais arriver à le faire avec fichier fermé.
Récupérer Données D Un Autre Classeur Excel Vba Gratuit
$A$1:$F$10
Cliquer sur Ajouter. Dans votre classeur, en A1 saisir la formule: =plage
puis valider. Etirer cette formule sur toute la plage de A1 à F10... Le code VBA correspondant
Sub ImporterDonneesSansOuvrir() Dim Chemin As String, Fichier As String Chemin = "C:\Pijaku\Ne_fait_rien_de_ses_journées\CCM\" Fichier = "" "plage", _ RefersTo:="='" & Chemin & "[" & Fichier & "]Feuil1'! $A$1:$F$10" With Sheets("Feuil2"). [A1:F10] = "=plage". [A1:F10] Sheets("Feuil1")("A1"). PasteSpecial xlPasteValues. [A1:F10] End With End Sub
Précautions d'emploi
Surtout, vérifiez bien le chemin d'accès au répertoire, l'orthographe, la casse sont très important. Récupérer valeur cellule dans d'autres classeurs [Résolu]. Aussi à vérifier le « \ » entre le chemin du répertoire et le nom du classeur. Exemple d'utilisation
Ce code boucle sur tous les classeurs Excel d'un répertoire et en extrait le contenu de la cellule A1 Feuil1, en l'occurence pour l'exemple, une date. Option Explicit Sub ImporterDates() Dim objShell As Object, objFolder As Object Dim Chemin As String, fichier As String Set objShell = CreateObject("lication") Set objFolder = owseForFolder(&H0&, "Choisir un répertoire", &H1&) If objFolder Is Nothing Then MsgBox "Abandon opérateur", vbCritical, "Annulation" Else Columns(1).
Récupérer Données D Un Autre Classeur Excel Vba Simple
Cordialement,
Pellouaille
"Va lentement, tu iras plus loin. " 03/05/2016, 15h59
#3
Bonjour Pellouaille,
Merci pour ton aide!!! 05/05/2016, 18h23
#4
bonjour;
voici un code qui pourra utile pour toi:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Sub RequeteClasseurFerme_Excel2007 ()
Dim Cn As nnection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As cordset
'Définit le classeur fermé servant de base de données
Fichier = "\\Lien de votre "
'Nom de la feuille dans le classeur fermé
NomFeuille = "NOm de Feuil"
Set Cn = New nnection
'--- Connexion ---
With Cn. Provider = "". ConnectionString = ";Data Source=" _
& Fichier & ";Extended Properties=" "Excel 12. 0;HDR=YES;" ""
End With
'-----------------
'Définit la requête. '/! \ Attention à ne pas oublier le symbole $ après le nom de la feuille. texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
Set Rst = New cordset
Set Rst = Cn. Récupérer données d un autre classeur excel vba excel. Execute ( texte_SQL)
'Ecrit le résultat de la requête dans la cellule que vous voulez
Range ( "Définir Cellule").
Récupérer Données D Un Autre Classeur Excel Vba 7
Si ça ne suffit pas comme info, n'hésitez pas à me le dire...
Dernière édition: 19 Juillet 2012
#5
Personne n'a une petite idée?? Help! #6
Bonjour mistick,
Tu as déjà 66 visites sur ton méssage et pas de réponse concluante?? Je pense que ton explication est trop vague, tu sais ce que tu recherches mais tu n'arrives pas à nous faire passer l'info. Comme précédemment, un fichier en pièce jointe nous évitera de "déchiffrer" ta demande. Récupérer données d un autre classeur excel vba m. Pour info, tu devras ouvrir les fichiers et les refermer (par programmation) pour puiser les données nécessaires.
Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres. Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour! Commentaires ( 1)
Pas encore de notes. Soyez le premier à évaluer!
Fonctionne en 230 volts. Livraison gratuite
Vitrine chauffante pour le...
1 515, 00 €
230 volts / 1800 watts
L x P x H: 1098 x 480 x 615 mm
Vitrine chauffante poulet...
1 623, 00 €
Avec planche à découper rétractable
-120, 00 €
Vitrine chauffante 2...
1 783, 00 €
1 903, 00 €
B x T x H: 1500 x 755 x 850 mm
Comptoir bain marie...
1 998, 00 €
230 volts /
B x T x H: 2150 x 890 x 870 mm
Vitrine chauffante meuble...
3 800, 00 €
B x T x H: 1250 x 880 x 1400 mm
3600 watts
Vitrine chauffante portes...
3 899, 00 €
L 1395 x P 910 x H 1020 mm
Livraison 3 ou 4 semaines
Affichage 1-19 de 19 article(s)
Vitrine Chauffante Pas Cher Nike
Elle maintient la tempé... Code fiche: 646111 Prix sur demande
Vitrine chauffante 3 niveaux
La vitrine chauffante 120 litres est un équipement conçu pour être aménagé facilement au sein de petits commerces, magasins et libres services.... Code fiche: 59538442 Prix sur demande
Dimensions: L. 800 x P. 640 x H. 685 mm - Puissance: 1160 W / 230 V
Cette vitrine chaude est un équipement de restauration qui permet de mettre en valeur les préparations chaudes qui sont proposées à la clientèle.... Livraison: 24 H
Code fiche: 8309511 1472. 90€ HT
Maintien homogène à température (régulation de 20 à 91 °C. Vitrine chauffante - Vitrines chaudes pour commerce - Techni-Contact. ) Cette vitrine chauffante convient pour maintenir à une température contrôlée:
- des friands,
- des tourtes,
- des tartes chaudes
- d'autres... Code fiche: 12114380 Prix sur demande
3 étagères amovibles - Puissance: 750 Watts 3. 2A
Maintenez vos aliments à une température entre 30° et 90° avec cette vitrine chauffante électrique. Contrôlant l'humidité des aliments grâc... Code fiche: 2661240 Prix sur demande
Capacité: 160 Litres
Cette vitrine chauffante 160 L est un matériel de restauration conçu pour conserver à chaud vos préparations culinaires.
Tout pour la
maison et le jardin
Produit ajouté au panier avec succès
Il y a 0 produits dans votre panier. Il y a 1 produit dans votre panier. Total produits
TTC
Frais de port TTC
Livraison gratuite!