Inserer des formules sur des Classeurs fermés

Bonjour à tous,

Suite à une modif que j'ai du faire sur une des mes feuilles j'ai du rajouter une formule et je dois mettre la même formule sur environ 90 feuilles différentes.

Existe t'il un moyen de le faire "en automatique" ou alors est ce que je dois me faire un copié/collé à la main sur les 90 feuilles ?

En fait ma dernière feuille contient une formule en B40 (celle que je viens de rajouter)

et mes 90 feuilles précédentes n'ont pas cette formule, sachant que toutes les feuilles sont sur le même modèle.

D'avance merci de votre aide.

Fred

Bonjour

Tu sélectionnes la 1ère feuille et, avec la touche Maj enfoncée, tu sélectionnes la dernière.

Tu mets ta formule en B40

Amicalement

Nad

bonjour Nad,

Désolé je n'ai pas compris ta réponse.

Je suis dans mon répertoire de travail ou sont toutes mes feuilles,

Si je sélectionne toutes les feuilles (ca pas de problème) comment mettre la formule en B40 car les feuilles sont fermées mais effectivement bien sélectionnées.

Amicalement

Fred

Re

Ne confonds-tu pas feuilles et classeurs ? Qu'entends-tu pas "feuilles fermées" ?

Nad

Oups, alors autant pour moi.

En fait, J'ai des "fichiers" donc je suppose "classeurs", sous excel 2010 nommés "Vente semaine 1.xlsx", "Vente semaine 2.xlsx"...

et c'est dans ces fichiers que je dois rajouter ma formule

Précision : Chaque classeur dispose de 3 onglets et ma formule doit être mise en B40 sous l'onglet nommé "Reporting"

Fred

-- 19 Jan 2011, 17:28 --

Trouvé ma solutions.

Je vous la donne cela peut servir à d'autre. (En adaptant les chemins et noms)

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    Dim wk1 As Workbook, sh As Worksheet

 'Définit le répertoire contenant les fichiers
    Chemin = "C:\dossier\"

    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")

    Do While Len(Fichier) > 0
        Workbooks.Open Chemin & Fichier

        Set wk1 = Workbooks(Fichier)
        Set sh = wk1.Worksheets("Reporting")

        wk1.Activate
        sh.Activate

        Range("B40").Formula = "=$A$1+$A$2"

        wk1.Close True 'ferme le classeur en enregistrant les modif
        Fichier = Dir()
    Loop
End Sub