Bonjour à tous,
il semblerai que mon code de mon Userform ne fonctionne pas, il doit manquer quelques chose.
Private Sub CommandButton1_Click()
Range("C4") = TextBox_Code_Article.Value
'TextBox_numero est le nom de la zone de texte
'Value est la propriété contenant la valeur de la zone de texte
Range("G4") = TextBox_Code_Sym.Value
'TextBox_numero est le nom de la zone de texte
'Value est la propriété contenant la valeur de la zone de texte
Range("I7") = TextBox_Methode.Value
'TextBox_numero est le nom de la zone de texte
'Value est la propriété contenant la valeur de la zone de texte
Unload Me
'Unload ferme l'UserForm
'Le nom de l'UserForm a été remplacé par Me (puisque ce code est placé dans l'UserForm à fermer)
RefreshListMotif
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'Save
ChDir _
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES"
ActiveWorkbook.SaveAs Filename:= _
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES\" & Range("Z1").Value & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Suppression du bouton Save Print close
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
'fermeture du classeur
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Merci d'avance.