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.