message d'erreur

[claude40]

re
et merci alexga 78 pour ton aide

mais quand je veut enregistrer la feuille dans son fichier cela m'affiche le message d'erreur suivant.

(erreur d'éxécution '1004':

la méthode' SaveAs' de l'objet '_WorkBook a échoué.)

quelqu'un peut il regarder a quoi sa corespond et m'expliquer?

merci
Regarde la pièce jointe Archive.zip

 

[alexga78]

Re : message d'erreur

Re Claude40,
tu as une macro qui cache le feuille, par conséquent la macro ne peut pas s'effectuer sur la feuille cachée.
tu peux afficher toutes les feuilles à l'ouverture de fichier avec un truc du style
Dim F As Worksheet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each F In Worksheets
F.Visible = True
Next F
End Sub

Sinon, si tu préfères avoir les feuilles cachées (pour éviter l'acces à utilisateur tu peux afficher la(les) feuille(s) utilisées dans l'userform en ajoutant dans le bouton valider de ton userform:
au début:
If Sheets("feuille").Visible = xlSheetVeryHidden(ou hidden) Then
Sheets("feuille").Visible = True
end if
à la fin pour la caher à nouveau:
If Sheets("feuille").Visible = True Then
Sheets("feuille").Visible = xlSheetVeryHidden(ou hidden)
end if
Voila
bonne soirée


au fait ce n'etait peut être pas utile de créer un nouveau fil !