Extraire une formule d'un fichier et la copier dans un autre fichier

[Arnaud81]

Bonjour,

J'ai deux fichiers A et B

Dans le fichier A, feuille 1, cellule A1, j'ai une formule dont l'affichage est le résultat de la formule.

Je souhaiterai faire une petite macro
- pour sélectionner la cellule A1 du fichier A,
- copier la formule et non le résultat,
- coller cette formule dans le fichier B, feuille 1, cellule A1 avec affichage de la formule et non du résultat et sans lien avec le classeur A.

Si quelqu'un a une idée

Merci d'avance

 

[Dugenou]

Re : Extraire une formule d'un fichier et la copier dans un autre fichier

Bonsoir,
Si tu souhaites afficher les formules d'une feuille, c'est faisable sans macro (voir PJ).
Explications sur demande.
Si tu veux vraiment une macro, je ne sais pas faire, mais d'autres te répondront.

Edit : Merci Gareth (pfff excuses mais j'ai arrêté de fumer récemment alors j'ai pas pu m'en empêcher !)

 

[Gareth]

Re : Extraire une formule d'un fichier et la copier dans un autre fichier

Bonsoir,

Voir l'exemple joint (ouvrir les 2 fichiers)

Sub Test()
Workbooks("B.xls").Sheets("Feuil1").Range("A1").Value = "'" & Workbooks("A.xls").Sheets("Feuil1").Range("A1").FormulaLocal
End Sub

 

[Arnaud81]

Re : Extraire une formule d'un fichier et la copier dans un autre fichier

Impeccable!!

Je souhaitai passer par une macro, car j'ai X cellules à ramener dans plus de 20000 lignes et dans plusieurs classeurs.

Merci beaucoup et bonne journée