Ouvrir/fermer un fichier excel existant

Bonjour,

Débutant en vbs, j'effectue un import de fichier texte et je voudrais l'ouvrir même si il existe déjà et le refermer en l'enregistrant sans boite de dialogue (en auto).
Voici mon script de base :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
    StrPath = "C:\" 'Chemin d'accès du fichier
    If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas
    StrFich = "ControleDisque.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 True
    End If
    'Fermeture d'Excel
    waExcel.Application.Quit

J'ai essayé plusieurs méthodes trouvée sur le forum mais ça coince !!

Merci de me donner un coup de pouce :)

Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject") Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel StrPath = "C:\" 'Chemin d'accès du fichier If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas StrFich = "ControleDisque.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 True End If 'Fermeture d'Excel waExcel.Application.Quit