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 ThenIf 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) .
Si j'écris ca en plus: VBA.Month(VBA.Date) ca ne marche pas...
une idée??
Je pense qu'il doit manqué une référence...mais je ne suis pas sûr de moi....Essaye aussi(voir si cela fonctionne) avec : DatePart("M", Now), Month(Now)
Merci à vous deux pour vos réponses, mais j'ai testé les deux à l'instant sur un ordi qui n'accepte pas la macro et cela ne fonctionne pas.
DateTime.Date tout seul me met une erreur de proriété
et VBA.Month(DateTime.Date) ne fait rien. Cela est accepté mais ne change rien à l'erreur de biblio ou projet.
j'ai également testé DatePart("M", Now), Month(Now) et cela n'est pas accepté par vba: erreur de macro. J'ai effectué quelque modif mais sans succes.
Bonjour,
Alors sinon j'ai trouvé ce code qui est censé décocher les références manquantes de microsoft. support:
Sub RemoveLibraryReferences()
On Error Resume Next
Dim xObject As Object
Set xObject = ThisWorkbook.VBProject.References.Item("Office")
ThisWorkbook.VBProject.References.Remove xObject
Set xObject = ThisWorkbook.VBProject.References.Item("stdole")
ThisWorkbook.VBProject.References.Remove xObject
End Sub
Le probleme c'est qu'elle ne m'a pas retiré les références Microsoft Office 9.0 et OLE Automation comme elle devrait et qu'en plus ce qui m'intéresse c'est plutot DATE.
Quelqu'un a déjà utilisé ce type de macros pour effacer les références maquantes?
En fait la référence qui manque est Image Kodak, c'est la seule chose qui change sur l'autre ordi. je fais le test de ce que tu me proposes et je reviens.
J'ai fait le test ? Month(Date)
et il n'y a pas d'erreur.
Mais bon comme je manque de temps, je vais faire la méthode rapide et efficace de cherhcer la reference manquante et la décocher...
ok, donc en gros tu te prend la tete avec Month alors qu'elle n'y ait pour rien...
quand tu as ce message d'erreur, normallement, Excel doit t'ouvrir la liste des references, avec en gros MANQUANT devant le nom de celle incriminée...