Discussion :

[anisr]

Bonjour,
Le code ci-après permet d'ouvrir un fichier txt puis de le convertir en xls. En ajoutant une feuille "Récap" je souhaite synthétiser les données de la première feuille (somme des données d'une colonne) Dans la cellule A1 de la feuille "Récap"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
           Classeur.SaveAs Filename:="C:\txt\Extraction\xls\" & FSO.GetBaseName(oFile.Name) & ".xls", _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
 
 
         Set wksDest = Classeur.Worksheets.Add()
 
        wksDest.Name = "Recap"
 
           ActiveSheet.Range("A1") = "=SUM('sheets(1).Name'!C[2])"
 
 
     Classeur.Close True

Le code ne fonctionne pas , Merci de m'indiquer où est l'erreur.

A+

[dadavyvy]

Code :

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

1
2
wksDest.Name = "Recap"
ActiveSheet.Range("A1") = "=SUM('sheets(1).Name'!C[2])"

Et avec ?

Code :

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

wksDest.Range("A1") = "=SUM('" & sheets(1).Name & "'!C:C)"

[anisr]

Ok ça marche avec une légère modi

Code :

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

wksDest.Range("A1") = "=SUM('" & sheets(1).Name & "'!C:C)"

qui devient

Code :

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

wksDest.Range("A1") = "=SUM('" & sheets(2).Name & "'!C:C)"

[dadavyvy]

PS. Tu pourrais peut-etre fermer ton autre post :
Synthèse de feuilles de données