Office 365 Macro simple code erreur 1004

eric72

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

XLDnaute Barbatruc
Bonjour Éric, bonjour le forum,

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

eric72

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

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

patricktoulon

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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas