copie de valeur de cellule

Bonjour, j'ai recherché dans les différents post mais je ne trouve pas vraiment réponse mon problème:

Je voudrais copier les valeurs des cellules de différents fichiers dans un fichier centrale(mettre dans Bilan par exemple les valeurs de cellule contenu dans des xls différents).

j'ai commencé par ca:

Code:

---

1 2 3

Sub copie2() ActiveCell.Value = "=[chrono_adf.xls]plage!$h$217" End Sub

---

Inconvénient; on voit la formule dans la barre de saisie des formules.
une erreur de frappe peut fausser le document.
et je dois faire une macro pour chaque cellule.

Je voudrais créer une seule procédure pour remplir chaque champ avec la valeur de la cellule que je désire (pas une plage de cellule), j'ai pondu un code comme ca (qui ne fonctionne pas, problème de compilation :aie:):

Code:

---

1 2 3 4 5 6

Sub test() Dim total As Long Dim plage As String total = "[chrono_adf.xls]plage!$h$217" B4.Value = total.Value End Sub

---

Si vous pouviez me guider, merci.:triste:

Bonjour,

Si je reprend tes données, cela devrait donner un truc du genre

Code:

---

1 2 3

Sub test() Range("B4") = Workbooks("chrono_adf.xls").Sheets("plage").Range("H217") End Sub

---

en supposant que les deux classeurs (source et cible) sont ouverts

c'est parfait! merkiii:P:P.

Je me suis cassé la tête à vouloir poser des variables....:oops::oops:
J'ai une autre question: si je veux copier de la même façons une plage de cellule qui peut varier d'une version de document à une autre, je m'explique:

pour un chantier on va faire appel à différentes entreprises et le nombre/nom de ces boites peuvent varier.

Si je veux copier la partie concernant ces entreprises; colonne A les noms, sur 8/10 lignes et colonne B les valeurs des honoraires ...

J'ai aucunes idées de la forme que doit prendre ma procédure sur ce coup.
(désolé mais je débute....:oops::oops:).

Merci d'avance

Bah...là c'est difficile de répondre comme ça, pour copier les données en colonne A et B pas de problème mais pour aller récupérer ces données dans les différents fichiers...là ça se complique un peu : où se trouvent les noms et honoraires des entreprises ? toutes dans un même fichier ? chaque entreprise dans un fichier différent ?

Ca serait bien que tu colles ici un fichier exemple (en mettant des données bidons) avec ce que tu as au départ, ce que tu souhaites obtenir et par quelle opération

ok je fais ca, mais si je peux répondre c'est bien aussi.

Pour l'exemple des entreprises + honoraires, oui c'est dans un seul fichier (différent de mon bilan).

j'ai une question par contre, on peut nommer les cellules, dans la formule que tu me donne ....range("b4") peut être remplacé par range("resultat") ??

ça rendrait ma formule plus souple, moins assujettie aux changement des tableaux, je nomme ma cellule source et voila.

Merci

Citation:

---

Envoyé par Khaos

j'ai une question par contre, on peut nommer les cellules, dans la formule que tu me donne ....range("b4") peut être remplacé par range("resultat") ??

---

oeuf corse

voila un *.rar contenant le bilan et les fichiers source pour la copie,
pour la copie de colonne et variant suivant le nombre de boite les sources sont dans le fichier cout_g.xls dans le dossier technique.

Les valeurs sont bidons (fichiers à supprimer).

Merci par avance.

j'ai une autre question pour les âmes charitable. comment faire des opérations sur des valeurs contenue sur des feuilles séparées , et des fichiers séparés ??

j'ai tenté ceci sans résultat (erreur 400):

Code:

---

1 2 3 4 5 6 7

Sub valeur() Range("D20") = Sheets(bat_A).Range("az34") + Sheets(bat_b).Range("bb35") End Sub   Sub somme() Range("D20") = "=SUM(" & Sheets(bat_A).Range("az34") & ":" & Sheets(bat_b).Range("bb35") End Sub

---

Ni l'une ni l'autre ne fonctionne, je reçois un message m'indiquant que l'indice n'appartient pas à la sélection.

Si c'est sur un fichier ou des fichiers séparés bin...il faut le préciser

Code:

---

1 2 3

Sub valeur() Range("D20") = Workbook("Classeur1.xls").Sheets("bat_A").Range("az34") + Workbook("Classeur2.xls").Sheets("bat_b").Range("bb35") End Sub

---

En supposant que les autres fichiers sont également ouvert sinon c'est une autre procédure.

Autre petite remarque, ne pas oublier les "" dans tes noms de feuilles
Sheets("bat_A")

j'en étais pas loin!!

Justement ça m'intéresse de connaitre la procédure pour des fichiers non ouvert actuellement j'ai fais ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Application.Workbooks.Open "C:\Khaos\macro\jardin_petite_ile\commerciale\compromis.xls" Application.Workbooks.Open "C:\Khaos\macro\jardin_petite_ile\commerciale\g_px.xls" Application.Workbooks.Open "C:\Khaos\macro\jardin_petite_ile\technique\cout_g.xls"   Range("B3") = Workbooks("compromis.xls").Sheets("foncier").Range("E4") Range("B7") = Workbooks("g_px.xls").Sheets("recap").Range("b7") Range("b11") = Workbooks("compromis.xls").Sheets("foncier").Range("h4") Range("B31") = Workbooks("cout_g.xls").Sheets("cout").Range("total_vrd") Range("b74") = Workbooks("g_px.xls").Sheets("recap").Range("total_ca") Range("c4") = Workbooks("g_px.xls").Sheets("recap").Range("d7") Range("construction") = Workbooks("cout_g.xls").Sheets("cout").Range("k42") Range("convention_edf") = Workbooks("cout_g.xls").Sheets("cout").Range("i74") Range("B33") = Workbooks("cout_g.xls").Sheets("cout").Range("i76")   Workbooks("compromis.xls").Close Workbooks("cout_g.xls").Close Workbooks("g_px.xls").Close (True) End Sub

---

mais j'ai des soucis de fermeture de fichier.

Supprime le dernier (True)
Pour récupérer des infos dans des classeurs fermés, je ne maîtrise pas mais tu peux faire une recherche sur le forum, ce sujet a déjà été traité plusieurs fois ;)