Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Macro simple code erreur 1004

  • Initiateur de la discussion Initiateur de la discussion eric72
  • 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 !

eric72

XLDnaute Accro
Bonjour,
J'essaie avec une macro toute simple :
Sub test()
'
' test Macro
'

'
ChDir "C:\Users\Utilisateur\Documents\Développement\magasin\LMH"
Workbooks.Open Filename:= _
"C:\Users\Utilisateur\Documents\Développement\magasin\LMH\LMH Budget.xlsm"
End Sub
d'ouvrir un fichier, il m'indique un message d'erreur d'exécution 1004 "la méthode select de la classe range a échoué" alors qu'il n'y a aucune difficulté dans cette macro.
Quelqu'un a t il une petite idée du pourquoi?
Bonne journée et Merci d'avance pour votre dévouement.
Eric
 
A l'ouverture du fichier j'ai cette macro:


Private Sub Workbook_Open()

'si date entre 02/01 et 30/10 plus de modif de budget
If Date >= DateSerial(Year(Date), 1, 2) And Date <= DateSerial(Year(Date), 10, 30) Then
'Range("z1") = DateSerial(Year(Date), 1, 2) 'adapter le ?
Call ProtecBudget
Else
Call DeProtecBudget

End If

If Date >= DateSerial(Year(Date), 10, 30) And Date <= DateSerial(Year(Date), 1, 2) Then
'Range("z1") = DateSerial(Year(Date), 1, 2) 'adapter le ?
'Call ProtecBudget
Else
Call DeProtecBudget
'si date entre 30/10 et 02/01 possibilité de modifier le budget
'If DateSerial(Year(Date), 1, 2) >= Date >= DateSerial(Year(Date), 10, 30) Then


'MsgBox "Vous avez accès à La Saisie du BUDGET"
'Call DeProtecBudget

End If
End Sub
Tu penses que ca peut venir de ça?
 
Bonsoir
a mon avis ca viens de ta sub DeProtecBudget qui soit n'a pas le temps de déprotéger soit ne déprotège pas
donc quand tu essaie de rentrer ta date dans Z1 BEN .. walouh!!!

peut être devrais tu faire une gestion d'attente de dé protection
 
- 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

  • Question Question
Microsoft 365 Erreur de macro
Réponses
4
Affichages
742
Réponses
20
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…