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

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
 

eric72

XLDnaute Accro
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?
 

patricktoulon

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
4
Affichages
543
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…