Bonjour
Je suis bloqué par un souci d'enregistrement de la feuille active (Feuillevar) via un userform dans un nouveau classeur déterminé par (enregistrer sous) .
J'ai une liste de choix dans la page INVENTAIRE dans laquelle je choisi un onglet sur lequel j'insert des articles et ensuite je dois l'enregistrer en feuille seule avec des critères de nom d'enregistrement et la, ça plante à l'enregistrement.
.
Je vous remercie pour le coup de main et les indications que vous allez me donner
Voici un bout de code qui plante
Private Sub CommandButton21_Click()
Dim nom As String
Dim Feuillevar As String
Feuillevar = ListBox1.Value
Sheets(Feuillevar).Activate
Sheets(Feuillevar).Copy
Range([A1], ActiveSheet.UsedRange).Copy
ActiveSheet.[A1].PasteSpecial Paste:=xlPasteValues
'Application.Dialogs(xlDialogSaveAs).Show
Répertoire = "c:\RETOUR"
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
nom = [g10] & "_" & [F11] & "_" & [e7] & "_" & Format(Date, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.Saveas Répertoire & nom
'ActiveWorkbook.Close
End Sub
Je suis bloqué par un souci d'enregistrement de la feuille active (Feuillevar) via un userform dans un nouveau classeur déterminé par (enregistrer sous) .
J'ai une liste de choix dans la page INVENTAIRE dans laquelle je choisi un onglet sur lequel j'insert des articles et ensuite je dois l'enregistrer en feuille seule avec des critères de nom d'enregistrement et la, ça plante à l'enregistrement.
.
Je vous remercie pour le coup de main et les indications que vous allez me donner
Voici un bout de code qui plante
Private Sub CommandButton21_Click()
Dim nom As String
Dim Feuillevar As String
Feuillevar = ListBox1.Value
Sheets(Feuillevar).Activate
Sheets(Feuillevar).Copy
Range([A1], ActiveSheet.UsedRange).Copy
ActiveSheet.[A1].PasteSpecial Paste:=xlPasteValues
'Application.Dialogs(xlDialogSaveAs).Show
Répertoire = "c:\RETOUR"
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
nom = [g10] & "_" & [F11] & "_" & [e7] & "_" & Format(Date, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.Saveas Répertoire & nom
'ActiveWorkbook.Close
End Sub