pbe projet ou biblio introuvable...

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

bubus31

XLDnaute Nouveau
Bonjour,

j'ai fait la macro suivante dans workbook pour la lancer à l'ouverture du fichier excel:

Sub maj_qtite()

Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim m As Integer

l = Sheets("achat").Range("A65536").End(xlUp).Row
m = Sheets("Liste").Range("X2000").End(xlUp).Row

For j = 7 To l

For i = 7 To m

If Month(Date) >= 1 And Month(Date) <= 3 Then
If Sheets("Liste").Range("Y" & i).Value = Sheets("achat").Range("A" & j).Value Then Sheets("Liste").Range("X" & i).FormulaR1C1 = "=RC[-1]*RC[-2]*achat!R" & j & "C10"
End If
Next
Next
End Sub

Selon les ordinateurs le fichier excel se lance tres bien, et puis sur d'autres, dès l'ouverture il me met un message d'erreur: projet ou biblio introuvable et il surligne (Date) de If Month(Date) . Quelqu'un aurait une idée? je me suis dit qu'il fallait peut etre declarer Date pour eviter ce probleme, mais je le declare en tant que quoi?..d'autres idées???

Merci d'avance,

Bubus
 
Re : pbe projet ou biblio introuvable...

bonsoir


Dans l'éditeur de macros
Menu Outils
References
Vérifie s'il y a des références indiquées "Manquantes" dans la liste.
Si oui, décoche les et clique sur le bouton OK pour valider


si ça ne fonctionne toujours pas, utilise la syntaxe
Code:
VBA.Month(VBA.Date)



Bonne soirée
MichelXld
 
Re : pbe projet ou biblio introuvable...

merci pour ta reponse,

la methode de cliquer sur la reference manquante marche tres bien. ms pour l'autre methode, g comprend pas bien: j'ai rajouté dans le code VBA.Month(VBA.Date) mais ca n'a pas marché. Peux tu me dire ce que j'ai mal fait?
merci encore
 
- 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

Réponses
3
Affichages
197
Réponses
10
Affichages
291
Réponses
4
Affichages
469
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
511
Réponses
5
Affichages
189
Réponses
10
Affichages
549
Réponses
8
Affichages
493
Retour