Enregistré classeur

Bonjour,

J'avais été super bien aidé ici une première fois alors je retente ma chance ...

Je souhaite généré un nouveau classeur exportant le contenu de text box, jusque la tout va bien.

Seul problème, pas moyen d'enregistrer ce classeur ... j'ai regardé de nombreux site, essayé de nombreux code et solution proposé... rien. Vous l'aurez compris, je suis au bord de la dépression ....

Voici mon code, comme la première fois c'est pas le plus propre mais jusqu'a la sauvegarde, il fonctionne !

Private Sub CommandButton1_Click()

CommandButton1.BackColor = RGB(128, 255, 128)

If CheckBox5.Value = True And CheckBox6.Value = True And CheckBox7.Value = True And CheckBox8.Value = True And CheckBox9.Value = True And CheckBox4.Value = True And CheckBox3.Value = True And CheckBox2.Value = True And CheckBox1.Value = True Then

MsgBox "Maintenance Mensuelle validé"

Set Newbook = Workbooks.Add 'creation

Newbook.Activate

Newbook.Sheets("Feuil1").Range("A1") = "Rapport de maintenance"

Newbook.Sheets("Feuil1").Range("B1") = Date

Newbook.Sheets("Feuil1").Range("A3") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A4") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A5") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A6") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A7") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A8") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A9") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A10") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A11") = "Commentaire sur ..."

Newbook.Sheets("Feuil1").Range("A12") = "Autres commentaires"

Newbook.Sheets("Feuil1").Range("B3") = TextBox1

Newbook.Sheets("Feuil1").Range("B4") = TextBox2

Newbook.Sheets("Feuil1").Range("B5") = TextBox3

Newbook.Sheets("Feuil1").Range("B6") = TextBox4

Newbook.Sheets("Feuil1").Range("B7") = TextBox5

Newbook.Sheets("Feuil1").Range("B8") = TextBox6

Newbook.Sheets("Feuil1").Range("B9") = TextBox7

Newbook.Sheets("Feuil1").Range("B10") = TextBox8

Newbook.Sheets("Feuil1").Range("B11") = TextBox9

Newbook.Sheets("Feuil1").Range("B12") = TextBox10

Macro1

Else: MsgBox "Maintenance Mensuelle point manquant"

End If

End Sub

Sub Macro1()

' Macro1 Macro

ActiveWorkbook.SaveAs Filename:= _

"S:\Maintenance préventive\PACK MAINTENANCE MACOTEC 2.0\Rapport maintenance mensuelle" & Date & ".xlsm", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Bonjour à tous

Il y a 2 problèmes, il manque un slash, et ta date ne peut pas entrer dans un nom de fichier avec les slashs; remplace par des tirets :

Date2 = Format(Date, "dd-mm-yy)
ActiveWorkbook.SaveAs Filename:= _
"S:\Maintenance préventive\PACK MAINTENANCE MACOTEC 2.0\Rapport maintenance mensuelle\" & Date2 & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Bonne continuation

Pardon "dd-mm-yy"

Ca fonctionne ! Impressionant, en un coup d'oeil vous voyez l'erreur quand j'y passe des heures à cherché pourquoi mon fichu code marche pas ...

Merci beaucoup !

Ps : j'avais pas vu l'edit pour le guillemet, je reflechis un peu par moi meme aussi de temps en temps