- Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
- Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
- StrPath = "C:\Donnees\Rapport\" 'Chemin d'accès du fichier
- If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas
- StrFich = "Igli07_aout.txt" 'Nom du fichier
- If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
- waExcel.Visible = False 'Rendre invisible Excel
- 'Importe le fichier texte vers une feuille Excel de façon Largeur fixe avec délimiteur : Tabulation et Space
- waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , True, , , True
- 'Sauvegarde la feuiller importer vers le chemin d'accès de départ en motifiant l'extension et en mode partagé pour éviter des erreurs
- waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 2
- End If
- 'Fermeture d'Excel
- waExcel.Application.Quit
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
StrPath = "C:\Donnees\Rapport\" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas
StrFich = "Igli07_aout.txt" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe avec délimiteur : Tabulation et Space
waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , True, , , True
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit