Discussion :

[ghostvb]

Bonjour,
J'ai un souci avec mon script que j'ai déjà récupéré sur un forum, je voudrais fermer excel en sauvegardant les modifs mais sans boite de dialogue soit en auto.
J'ai essayé plusieurs formules mais en vain et je n'arrive pas à bien comprendre et à trouver des infos sur cette phrase :

Code :

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

1
2
'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

Le fichier texte est sauvegardé sous : StrPath & StrFich en enlevant .txt et en remplaçant par .xls
Ensuite à quoi correspondent les

Code :

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

, , , , , , 2, True

?
Est-ce à ce niveau là qu'il faut paramétrer la sauvegarde sans boite de dialogue ?

Voici le script en entier :

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

Fait-il le modifier pour pouvoir enregistrer le fichier avec les modifs et sans boite de dialogue ?

Merci pour les infos

[SfJ5Rpw8]

de qu'elle boîte de dialogue s'agit'il?

[ghostvb]

Boite de dialogue :

Un fichier nommé 'C:\ControleDisque.xls' existe déjà à cet emplacement. Voulez-vous le remplacer?

Merci

[SfJ5Rpw8]

Boite de dialogue :

Un fichier nommé 'C:\ControleDisque.xls' existe déjà à cet emplacement. Voulez-vous le remplacer?

Merci

à .... (on l'aurai su avant....)

précède ta sauvegarde de :

Code :

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

1
2
 
waExcel.DisplayAlert = false

(où waExcel.Application.DisplayAlert = false ... je sais plus et j'ai pas excel sous la main ..)

[ghostvb]

J'avais déjà essayé et cela me marque le message d'erreur suivant :


Cet objet ne gère pas cette ppropriété ou cette méthode:"DisplayAlert"

idem pour "Application.DisplayAlert"

[SfJ5Rpw8]

Code :

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

waExcel.Application.DisplayAlerts = false

[ghostvb]

Ca fonctionne très bien, merci beaucoup !!!!