boite de dialogue enervante;

Question

Sur un Prog Excel avec une Macro, je fait une copie d'un fichier A.xls dans un autre dossier.

Ma méthode consiste à ouvrir le Fichier A.xls et faire un "Enregistrer sous " dans le nouveau dossier.

Mais une boite de dialogue me signale que le fichier existe déja et me demande si je veut remplacer ce fichier.

Je voudrais que le " OUI "de cette boite de dialogue soit valider automatiquement.

 :blush)

BruNews · Answer

API: CopyFile(oldfile, newfile, 1);
ecrasement sans demande et pas besoin de l'ouvrir.
BruNews, ciao...

daffy21 · Answer

Dans l'aide VBA les mots clés sont introuvable, ne s'agit il pas d'une fonction Visual Basic tout court.

Concretement voici mon code:
-Workbooks.Open FileName:="C:\GestionAlarmes\ArchivesAL.xls"

-ActiveWorkbook.SaveAs FileName:="\Dpbopc0198\gestionalarm\ArchivesAL.xls "

Comment mettre en oeuvre ta fonction s'il s'agit bien de VBA

Merci à toi.

 ;)

BruNews · Answer

Je t'ai bien specifie API, fonction de dll (ici de Windows).
Tu commences par mettre sa declaration dans un module:

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal ExistName As String, ByVal NewName As String, ByVal bFail As Long) As Long

Dans ton code, ou tu veux:
CopyFile "c:	ruc.xls", "d:\bidon
ewtruc.xls", 0

Et c'est tout, avec zero en dernier param ecrase sans discuter.

BruNews, ciao...

daffy21 · Answer

Merci pour tes réponses

J'ai des lacunes incontestable en API.
Je vais essayer tout de même.

 :shy)

BruNews · Answer

Mais oui, c'est simple suffit de ne pas faire de betises.
Pour NewName le dossier cible doit exister sinon il faut le creeer avant.
BruNews, ciao...

Boite de dialogue enervante;

5 réponses

Discussions similaires