Microsoft 365 Macro simple code erreur 1004

[eric72]

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

 

[Robert]

Bonjour Éric, bonjour le forum,

Il semblerait qu'il manque une partie de ton code car je n'y vois aucun Select...

 

[mapomme]

Bonjour @eric72 , @Robert 🙂

Autre idée -> Quand tu ouvres le fichier LMH Budget.xlsm , n'y aurait-il pas une macro dans ce classeur qui s'exécute automatiquement à l'ouverture provoquant cette erreur de Select ?

 

[eric72]

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?

 

[eric72]

J'ai retiré cette macro et ca fonctionne mais comment puis je faire pour executer Private Sub Workbook_Open() automatiquement?

 

[patricktoulon]

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

 

[eric72]

Bonsoir,
Merci pour votre aide (à tous) j'ai tout simplement mis "before close" et ça résoud tous mes problèmes.
Résolu.....
Merci beaucoup pour votre aide
Eric