Discussion :

[Khaos]

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 :

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

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 ):

Code :

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

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.

[fring]

Bonjour,

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

Code :

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

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

[Khaos]

c'est parfait! merkiii.

Je me suis cassé la tête à vouloir poser des variables....
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....).

Merci d'avance

[fring]

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

[Khaos]

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

[fring]

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