Sauvegarde d'une feuille d'un classeur

Salut tout le monde !

j'ai un classeur avec plusieurs feuilles, mais quand je fais une sauvegarde d'une seule feuille pas de problème mais je refais la même opération mais sur un autre pc j'ai un souci la copie ne se fait pas, pourquoi ? voici mon code :

Private Sub UserForm_Initialize()

PasDeCroix Me

TextBox1.Value = "C:\Documents and Settings\Manu\Bureau\ Archive Planning-"

TextBox2.Value = "-Patrick Jacquet-" & "-du-" & Range("C1") & "-en pause-" & Range("I1") & "-enregistrer le-"

End Sub

Private Sub TextBox1_Change()

If TextBox1 = "" Then MsgBox "Il faut entrer un chemin valide !"

End Sub

Private Sub TextBox2_Change()

If TextBox2 = "" Then MsgBox "Il faut entrer un nom valide !"

End Sub

Private Sub CommandButton1_Click()

On Error Resume Next

With ActiveWorkbook

.SaveAs TextBox1 & TextBox2 & Format(Date, "dd mmm"), FileFormat:=xlExcel4

.Close

End With

Unload Me

End Sub

merci de m'aider !

Salut le forum

Bienvenue à toi Chinel comme nouveau membre.

Enlève ton On Error Resume Next

Tu auras alors un code d'erreur, surement que le répertoire de sauvegarde n'existe pas.

Une bonne gestion des codes d'erreurs est beaucoup mieux qu'un simple On Error Resume Next

Mytå