Génération de fichier Excel à partir de fichier Texte
cs_gedeon44
Messages postés6Date d'inscriptionvendredi 27 janvier 2006StatutMembreDernière intervention 7 juillet 2006
-
3 mai 2006 à 10:26
linasteph
Messages postés153Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention22 juillet 2009
-
3 mai 2006 à 11:11
Bonjour,
Je cherche à écrire un script VB (.vbs) afin de générer des fichiers excel à partir de fichiers texte stockés dans un répertoire.
Mon script s'exécute en précisant en argument les répertoires source (endroit où se trouve mes fichier .txt) et cible (endroit où il doit générer les fichier excel).
Mes fichiers texte comporte des données avec comme séparateur ";". La première ligne correspondant à l'entête des colonnes, séparées également par des ";".
Le code suivant génère bien des fichiers excel mais leurs contenus n'est pas correcte. Les colonnes et les données sont décalées. Les arguments de OpenText ne semble pas correcte visiblement. Je cherche à obtenir la syntaxe exacte de la commande OpenText, mais j'ai du mal...
Je cherche par ailleurs à automatiser l'ajustement automatique des colonnes, et le filtre automatique sur l'ensemble des colonnes.
Merci d'avance.
Bonne journée.
*************
Dim FSO
Dim waExcel
Set FSO = CreateObject("Scripting.FileSystemObject")
Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
Set sArg = WScript.Arguments
If sArg.Count <> 2 Then
MsgBox "Veuillez respecter la syntaxe suivante : ConvTxtXls <RepertoireSource> <RepertoireCible>"
WScript.Quit
End If
sRepSource = sArg(0)
sRepCible = sArg(1)
If not FSO.FolderExists(sRepSource) Then
Wscript.Echo " Le repertoire source " & sRepSource & " n'existe pas !"
WScript.Quit
End If
If not FSO.FolderExists(sRepCible) Then
Wscript.Echo " Le repertoire cible " & sRepCible & " n'existe pas !"
WScript.Quit
End If
Set MonRep = FSO.GetFolder(sRepSource)
Set ColFiles = MonRep.Files
For Each ItemFichier in ColFiles
If FSO.FileExists(ItemFichier) Then 'Existance du fichier
sExtension = Right(ItemFichier.path,4)
linasteph
Messages postés153Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention22 juillet 20091 3 mai 2006 à 11:11
Essaie d'importer ton fichier d'en excel (menu Données > Donneés
externes > Importer le fichier texte) en enregistrant tes actions
sous forme de macro et ensuite tu récupères le code qui va bien.
Je viens de le faire et excel utilise la fonction ActiveSheet.QueryTables.Add...