XL 2010 debogage boite de dialogue save

secours

XLDnaute Nouveau
bonjour tout le monde,
j'ai un petit soucis au niveau enregistrement du classeur?
en premier je veux définir le chemin vers lequel je vais sauvegardé mon classeur généré et deuxièment quand je clique sur annuler une boite de dialogue s'affiche (voir photo1) et une fois je clique sur annuler ça m'affiche ça (voir photo2).
voici le code:
Sub bt_dialog_save_D()

Dim varResult As Variant
Nom = Workbooks("YNP3324A1 - Paramètre FPGA-Ind_F00.xls").Sheets("Paramètres vs produits").Cells(2, 4).Value

'Afficher la boite de dialogue d'enregistrement
varResult = Application.GetSaveAsFilename(fileFilter:= _
"Excel Files (*.xls), *.xls", Title:="Save PO", _
InitialFileName:=Nom)

'Vérification d'annulation de l'enregistrement
If varResult <> False Then
ActiveWorkbook.SaveAs Filename:=varResult, _
FileFormat:=xlWorkbookNormal
Exit Sub
End If

End Sub



pourriez vous m'aider à faire ça SVP et merci d'avance
cdt
 

Pièces jointes

  • photo1.PNG
    photo1.PNG
    21.1 KB · Affichages: 18
  • photo2.PNG
    photo2.PNG
    14.9 KB · Affichages: 16

secours

XLDnaute Nouveau
bonjour à tous,
juste pour partager avec vous la solution pour le debogage g trouvé une ligne de code qui permet de looper l'étape d'alerte de l'enregistrement (2éme boite de dialogue afficher lors de l'enregistrement"enregistrer, ne pas enregistrer, annuler"

code:
Application.DisplayAlerts = False

et pour préciser le chemin de save il suffit juste de rajouter ton chemin dans la fonction:
Application.GetSaveAsFilename(cheminpardefaut & nompardefaut, "Fichiers Excel,*.xls", , "Enregistrement du fichier")
cdt
 

Discussions similaires