Discussion :

[thugelife]

Bonjour,
Pouvez-vous m'aider à résoudre ce problème : j'obtiens une erreur de code 1004 !

c'est un classeur modele

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim x As Byte
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = TextBox8 & Chr(10) & TextBox9
    End With
Next x
Unload Me
ActiveWorkbook.SaveAs Filename:=TextBox8, FileFormat:=xlsm
End Sub

merci

[neiluj26]

Ce ne serait pas parce que unload ton userform et qu'ensuite tu veux sauvegarder ton fichier avec la valeur contenue dans la textbox8?

[thugelife]

le useform s'ouvre au démarrage s'il y a rien dans l'entête gauche. puisque c'est un modèle à chaque foi qu'on l'ouvre le form s'affiche est on obtiens un nouveau classeur qui n'est pas encore enregistré.

[mercatog]

neiluj26 voulait dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim x As Byte
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = TextBox8 & Chr(10) & TextBox9
    End With
Next x
ActiveWorkbook.SaveAs Filename:=TextBox8, FileFormat:=xlsm
Unload Me
End Sub

[neiluj26]

Oui, merci mercatog. Je n'avais pas le temps de reprendre le code...

[thugelife]

Bonjour,
Mercatog et Neiluj26 je vous remercie pour votre aide.
avez vous tester le code car moi j'ai toujours le même problème.
je vous rappel que le classeur est un modèle
merci.