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