VBA - Ecraser 1 fichier existant

A

Abel

XLDnaute Accro

• 12 Mai 2005

• #2

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.

 

Vote positif 0 Vote négatif

P

Petipeton

Guest

• 12 Mai 2005

• #3

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

Je te tiens au courant.

Merci !!! 🙂

 

Vote positif 0 Vote négatif

C

Canardodo

Guest

• 12 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 13 Mai 2005

• #5

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.

 

Vote positif 0 Vote négatif

P

Petipeton

Guest

• 27 Mai 2005

• #6

Yesssss !!!!!

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

Des p'ti bisous !!!

 

Vote positif 0 Vote négatif

C

charlesbonny

Guest

• 23 Février 2009

• #7

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

 

Vote positif 0 Vote négatif