Rapport de message :*
 

Re: erreur

Titre du sujet : Re: erreur
par claude40 le 02/01/2009 20:47:12

rebonjour et bonjour JCGL

j'ai réctifier le code en "XML"sans succer.
 
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

voila le code que l'on ma proposer hier que j'ai essayer sans succer aussi peut etre une erreur de placement de ma par dans le reste de la macro.

quelqu'un peut il m'eclairer merci beaucoup