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?
 

Discussions similaires

Réponses
4
Affichages
491

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG