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"
Le code ne fonctionne pas
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, Merci de m'indiquer où est l'erreur.
A+
Partager