Bonjour;

Après plusieurs tentatives j'ai réussi à mettre ma formule dans la cellule d’un fichier.
Par contre elle est modifiée et donc ne marche pas.
Voici le
Code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub Arborescence()
'Déclaration des variables
    Dim objXl As New Excel.Application
    Dim Dossier As String
    Dim fformule As String
    Dim cmpt As Integer '# variable ajouté
    Dim i As Long
    Dim plage As String
'……
'Récupère le numéro de la dernière ligne vide dans la colonne A.
    i = Range("A65536").End(xlUp).Row + 1
 
        plage = "d3:d" & i
        fformule = "=SUBTOTAL(9," & plage & ")"
        Cells(1, 6).FormulaR1C1 = fformule
Pouvez-vous me donner un coup de main.
D’avance merci