Discussion :

[ghostvb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

Je n'ai pas la réponse, mais tu auras des informations ici :
http://msdn.microsoft.com/en-us/library/bb210376.aspx

Au passage pour le code utilises les balises de codes (le bouton # dans l'éditeur) et cela donne cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ha aussi dit nous ce que cela fait