Récupérer message Excel "fichier existe déjà"

Version imprimable

18/04/2023, 09h08
fikou

Récupérer message Excel "fichier existe déjà"

Bonjour,
Je crée un fichier Excel sous vb.net

Lors du lancement l'enregistrement du fichier Excel j'ai un message qui m'indique que ce fichier existe déjà

Code:

Classeur.SaveAs(Application.StartupPath & "\DATA\EtiquettesQ2.xlsx")

"Voulez-vous le remplacer Oui Non Annuler"
Oui ne pose pas de problème
J'aimerais récupérer l'action des boutons Non et Annuler afin de fermer ma form VB
Merci d'avance
FikoU
18/04/2023, 11h02
ProgElecT
Salut

Il me semble qu'il est possible de récupérer l'information en attribuant une variable à la méthode
Code:

1 2 Retour = Classeur.SaveAs(Application.StartupPath & "\DATA\EtiquettesQ2.xlsx") If Retour = ? Then
Par contre je ne me souvient plus des entiers retournés qui correspondent au bouton choisi.

[edit]
pour les valeur renvoyées je pense que tu peux te fier à:
https://support.microsoft.com/fr-fr/...6-ba9f1749f4c0 pargraphe Renvoyer des valeurs
[/edit]
18/04/2023, 11h50
fikou
Merci pour ta réponse
Code:

1 2 Dim sRetour As String sRetour = Classeur.SaveAs(Application.StartupPath & "\DATA\Liste tireurs.xlsx")
J'ai le message : Cette expression ne produit pas de valeur...
C'est pas une msgbox que j'ai créé mais un message d'Excel

FikoU
18/04/2023, 12h03
umfred

Tu utilises quel package pour agir sur ton excel ? Interop/PIA ?
Tu peux aussi utiliser la méthode Save() si le classeur existe déjà (aucune confirmation ne sera demandé, puisque tu sauvegardes le classeur sur lequel tu travailles) https://learn.microsoft.com/en-us/do...view=excel-pia

Je ne comprends pas trop ta demande de récupération des actions des boutons Non ou annuler en revanche.
A priori, comme évoqué, pas possible de savoir (simplement du moins) quel bouton a été appuyé.

Avant d'enregistrer, tu peux vérifier si le fichier existe, et à toi de choisir quoi faire dans ce cas (générer tes propres fenêtres via msgbox/messagebox et en récupérer les retours)
18/04/2023, 12h17
Thumb down

Bonjour,
Il me semble, effectivement, plus simple d'agir sur le message d'alerte excel plutôt que de vérifier l'existence du fichier avant d'exécuter la méthode saveas😭

Comme l'a souligné umfred.

Merci à tous,
Voila un truc qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 If My.Computer.FileSystem.FileExists(Application.StartupPath & "\DATA\Liste tireurs.xlsx") Then
            Dim sMsg = "un fichier du même nom existe déjà" & Chr(13) & "Voulez-vous l'écraser"
            Dim title = "Attention"
            Dim style = MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical
            Dim Reponse = MsgBox(sMsg, style, title)
            If Reponse = MsgBoxResult.Yes Then
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\DATA\Liste tireurs.xlsx",
                                                  Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                                                  Microsoft.VisualBasic.FileIO.RecycleOption.SendToRecycleBin)
                Classeur.SaveAs(Application.StartupPath & "\DATA\Liste tireurs.xlsx")
                If chkImprimer.Checked Then
                    appExcel.ActiveWindow.SelectedSheets.PrintOut(Copies:=CInt(nudNbCopies.Value))
                End If
            End If

Je supprime le fichier avant "saveAs" si je ne veut pas le message d'Excel

@+FikoU

18/04/2023, 15h27
umfred

Citation:

Envoyé par Thumb down

Bonjour,
Il me semble, effectivement, plus simple d'agir sur le message d'alerte excel plutôt que de vérifier l'existence du fichier avant d'exécuter la méthode saveas😭

Comme l'a souligné umfred.

j'ai dis exactement l'inverse :lol:

Oui je comprend bien
Code:

1 2 Dim sRetour As String sRetour = Classeur.SaveAs(Application.StartupPath & "\DATA\Liste tireurs.xlsx")
Cette expression ne produit pas de valeur ???

18/04/2023, 16h01
umfred

bah oui, la doc indique que saveas ne renvoie rien