VBA - Ecraser 1 fichier existant

[Petipeton]

Bonjour !

J'essaie d'automatiser un fichier... notamment son enregistrement.

Je suis à la recherche du code qui me permet d'enregistrer un fichier sous le même nom, au même endroit du disque dur et qui, éventuellement, écraserait tout fichier portant le même nom...

Ma difficulté est que Excel bloque sur la question 'Le fichier toto.xls existe déjà. voulez-vous le remplacer ?' et attrend la réponse de l'utilisateur.

Je souhaiterai qu'il réponde oui tout seul !!!

Merci de votre aide !

Petipeton

 

[Abel]

Bonjour Petitpeton,

Je ne sais pas si c'est possible.

Peut être en désactivant les messages d'alerte (application.displayalert =false). Je n'ai pas testé.

Une autre solution serait peut être de tester si le fichier existe déjà et de le supprimer (kill(fichier)) avant d'enregistrer le nouveau.

Sans filet :
NomFichier = (Nom du fichier à enregistrer)
if dir (chemin / NomFichier) <>'' then kill (chemin / NomFichier)
Ensuite tu enregistres.

Abel.

 

[Petipeton]

Merci de ta réponse, m'en vais essayer !!!

Je te tiens au courant.

Merci !!! 🙂

 

[Canardodo]

Bonsoir tutti,
Bonsoir Petipeton,
Je crois effectivement que ça marche avec
application.displayalert =false
Mais n'oublie pas de remettre
application.displayalert = True
après, pour éviter des surprises !!!

Bises sur les petons

 

[Abel]

Bonjour Petitpeton, Canardodo,

Je viens de vérifier, l'instruction DisplayAlerts=false fonctionne.

Exemple :

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:='Ecrasement fichier existant.xls'
Application.DisplayAlerts = True

Canardodo a raison. Surtout ne pas oublier la ligne:
Application.DisplayAlerts = True


Bonne journée.

Abel.

 

[Petipeton]

Yesssss !!!!!

Merci de vos réponses, tout a bien fonctionné !!!

Des p'ti bisous !!!

 

[charlesbonny]

Re : VBA - Ecraser 1 fichier existant

Bonjour Petipeton,
J'aurai voulu savoir si il était possible que tu me transmettes ton code pour ecraser le fichier
Merci