Discussion :

[fikou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[fikou]

Merci pour ta réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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)

[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.

[fikou]

Merci à tous,
Voila un truc qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[umfred]

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

[fikou]

Oui je comprend bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sRetour As String
        sRetour = Classeur.SaveAs(Application.StartupPath & "\DATA\Liste tireurs.xlsx")

Cette expression ne produit pas de valeur ???

[umfred]

bah oui, la doc indique que saveas ne renvoie rien