[VBA-E] Correction code opérations sur cellules

Version imprimable

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:

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+

13/03/2007, 10h23
dadavyvy
Citation:
Envoyé par anisr

Code:

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

Code:

wksDest.Range("A1") = "=SUM('" & sheets(1).Name & "'!C:C)"
13/03/2007, 12h36
anisr

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

Code:

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

qui devient

Code:

wksDest.Range("A1") = "=SUM('" & sheets(2).Name & "'!C:C)"
13/03/2007, 21h52
dadavyvy

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