intercepter message si fichier existe

Version imprimable

08/07/2008, 10h50
androginius

intercepter message si fichier existe

Bonjour.

Dans une macro VBA je crée une copie d'un fichier excel en utilisant la methode saveas. Si l'utilisateur choisit un nom de fichier qui n'existe pas (j'utilise getsaveasfilename pour lui laisser choisir le nom), auncun probleme, mais si le fichier existe déjà excel montre un message de confirmation auquel on peut répondre oui, non ou annuler.
J'aimerai pouvoir générer différents codes en fonction de la réponse choisie par l'utilisateur et je ne sais pas comment "intercepter" ces réponses.
je précise que le fichier auquel s'applique le "saveas" n'est pas le fichier qui contient la macro et je ne peux donc pas utiliser l'évènement workbook_beforesave pour intercepter le message.
quelqu'un peut-il m'aider ou au moins m'orienter.
merci par avance.
NB: Je ne suis pas du tout un pro de VBA, seulement un bidouilleur, alors soyez indulgents si jamais j'ai posé une question co..e. :oops:
08/07/2008, 11h01
Godzestla

je ferai un peu différement.

Apres le getsaveasfilename j'utiliserais DIR pour controler si le fichier existe déjà ou pas et en fonction via MSGBOX ou USerform, je gère moi-meme les options OUi Non Ou annuler.

Si oui -> Kill du fichier avant ou displayalert= false

Salut, via peut-être quelque chose comme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
    Option Explicit
    Dim Fichier As Variant
    Dim NomFichier As String
    Dim Rep As Integer
    .....
    NomFichier = .....
    .....
    Fichier = Application.GetSaveAsFilename(InitialFileName:=NomFichier, fileFilter:="Fichier XLS (*.xls), *.xls")
    If Fichier = False Then Exit Sub
 
    If Dir(Fichier) <> vbNullString Then
        Rep = MsgBox("Le fichier : " & Fichier & vbCrLf & vbCrLf & _
                     "existe déjà dans ce dossier" & vbCrLf & vbCrLf & "Voulez-vous le Remplacer ?", _
                     vbYesNo + vbExclamation, "Avertissement")
    End If
 
    If Rep = 6 Then
        With Application
            .ScreenUpdating = False
            .DisplayAlerts = False
        End With
 
        .......
 
        With Application
            .ScreenUpdating = True
            .DisplayAlerts = True
        End With
    End If
    .....

Voir également aide en ligne sur MsgBox

08/07/2008, 11h16
androginius

Ok!!

Dites, vous êtes rapides comme l'éclair!!
Merci bcp pour le coup de main. Je pensais que l'on pouvait intercepter facilement ces messages même quand le fichier en question ne contenait pas le code, mais je vois que non. Je viens déjà d'apprendre quelque chose.
je vais appliquer la solution que vous me proposez en eliminant les alertes d'excel et en générant mon propre message.
Merci encore, pour l'effectivité et la rapidité!!
:king: