• Initiateur de la discussion Initiateur de la discussion zicou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zicou

XLDnaute Nouveau
bonjour a tous
j'ai crée un code dans private sub workbook_open
donc mon code s'excécute à l' ouverture du classeur

ce matin ça fonctionnait
ce midi ça ne fonctionne plus

j'ai tapé du code dans des feuilles mais pas dans thisworkbook

d'où vient ce soucis

merci beaucoup pour vos réponses
 
Re : PB sur workook_open

voila

Private Sub Workbook_Open()

MsgBox ("Bonjour ")

Dim Utilis As String
Dim DateJour As Date
'Récupération du nom de l'utilisateur
Utilis = Application.UserName
'Récupération de la date du jour
DateJour = Date
MsgBox ("Bonjour " & Utilis & Chr(10) & "Nous sommes le " & DateJour)
'*********************************************************************************************************************************
'*********************************************************************************************************************************


'********************************************************************************
'********************************************************************************
'*********************MISE PROTECTION CELLULES VIDES*****************************
'*********************EN DEBUT DE MOIS*******************************************
'********************************************************************************
'********************************************************************************

msgbox1 = MsgBox("nous mettons à jour les jours fériés", vbInformation, ActiveWorkbook.Name)

'MOIS DE JANVIER
Sheets("Janvier").Select
ActiveSheet.unprotect

'1er jour semaine
If Range("c12").Value = "" Then
Range("b14:c19").Locked = True
'Range("b14:c19").Interior.Pattern = xlGray25
Else
Range("b14:c19").Locked = False
'Range("b14:c19").Interior.Pattern = xlSolid
End If

'2eme jour semaine
If Range("e12").Value = "" Then
Range("d14:e19").Locked = True
Else
Range("d14:e19").Locked = False
End If

voilà une partie du code
en voulant supprimer des feuilles pour l'envoyer je me suis aperçu
qu'une de me feuilledébloquais le procéssu normale mais je ne vois pas d'ou ça vient???
 
Re : PB sur workook_open

j'ai trouvée d'ou vient le problème mais je n'arrive pas a le déceller
donc j'explique:
j'ai la date du jour qui s'affiche en N4 "=AUJOURDHUI()"
je récupère l'année de cette date en B8 "=ANNEE(N4)" pour alimenter un calendrier perpétuel sur une autre feuille
dès que je supprime la formule de B8 et que je met simplement 2008
ça fonctionne cela m'excécute mon Private sub Workbook_Open()
dès que je remer B8=annee (n4) ça ce remer à déconner

je ne vois pas du tout d'ou ça vient

merci
 
Re : PB sur workook_open

donc j'ai bricolé un peux
maintenant ça fonctionne
mais je veux des explication!!🙄
ce que j' ai fais:
donc dans mon private sub workbook_open
j'ai demandé a récupérer la date du jour et l'afficher dans la feuille "callendrier" en C4 puis en E4 je récupère l'année de cette date(C4) pour ensuite alimenter mon calendrier perpétuel
et mon PRIVATE SUB WORKBOOK_OPEN s'excécute normalement

voilà
 
Re : PB sur workook_open

Bonjour,
dans le code fourni, il n'est nullement fait référence à ces cellules (C4 et E4)
donc si tu nous fournissais tout le code, surtout la ligne qui envoie l'erreur, peut-être pourrions-nous t'aider un peu plus...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
458
Themax
T
Retour