Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment evité boite de dialogue sur enregistrement ?

  • Initiateur de la discussion Initiateur de la discussion fredh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fredh

XLDnaute Occasionnel
[Resolu] Comment evité boite de dialogue sur enregistrement ?

Bonjour a tous

J'ai fait une macros qui m'ouvre des dichier csv, les travail puis les enregistre le fichier au format nomfichier.xls. Seulement lorsque le fichier existe deja j'ai une boite de dialogue qui s'ouvreet qui me demande si je veut enregistré le fichier par dessus le nomfichier.xls existant.

Comment evité cela ?
Voici la macros epurée :
HTML:
Sub aCSV_BMW_DC_Soma2()
'recherche du chemin du fichier ouvert
Path_Desti = ActiveWorkbook.Path & "\"
'recherche du nom du fichier ouvert
Nom_Orig = ActiveWorkbook.Name
 
'gel de l'ecran excel pour acceleré le processus
Application.ScreenUpdating = False
 
'Traitement ...
'Traitement ...
'Traitement ...
 
Range("A2").Select
ActiveWorkbook.SaveAs Filename:=Path_Desti & Left(Nom_Orig, (Len(Nom_Orig) - 4)) & ".xls", FileFormat:=xlExcel9795, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.ScreenUpdating = True
End Sub
Voila j'espere avoir été clair.

Merci de m'aider
@+
 
Dernière édition:
Re : Comment evité boite de dialogue sur enregistrement ?

bonjour fredh

teste (en supposant que tu veuilles ecraser le fichier csv)

Code:
Range("A2").Select
[COLOR=red]Application.DisplayAlerts = False[/COLOR]
ActiveWorkbook.SaveAs Filename:=Path_Desti & Left(Nom_Orig, (Len(Nom_Orig) - 4)) & ".xls", FileFormat:=xlExcel9795, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
[COLOR=red]Application.DisplayAlerts = True
[/COLOR]Application.ScreenUpdating = True
 
Re : Comment evité boite de dialogue sur enregistrement ?

Bonjour Pierrejean

Ca fait plaisir de te lire.

Ca roule, la modif est correcte

Je change le titre du post en resolu.

Merci beaucoup pour ton aide.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
Réponses
1
Affichages
1 K
Lucien31
L
A
Réponses
6
Affichages
1 K
AXELB68
A
J
Réponses
2
Affichages
6 K
jl456
J
J
Réponses
2
Affichages
667
J
P
Réponses
3
Affichages
1 K
Pierrotv136
P
L
Réponses
6
Affichages
7 K
LouisBlanc
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…