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
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas