Discussion :

[dahi67nb]

Bonjour,
HELP!!!

J'ai ce code qui ne fonctionne pas! il indique "Erreur de compilation: Projet ou bibliothèque introuvable".
Il compile pas la ligne ....Format....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub moi()
Dim date_test As Date
    'Now renvoie la date et l'heure en cours (07.02.2018 09:09:02)
    date_test = Now()
    'Renvoie : 05.04.19
    Range("A1") = Format(date_test, "dd.mm.yy")
    'Renvoie : mardi 5 avril 2019
    Range("A2") = Format(date_test, "dddd d mmmm yyyy")
End Sub

NB: j'ai essayé dans la bibliothèque des références "VBAProject" de décocher la référence (MANQUANT: Microsoft...) il m'indique qu'il est impossible de supprimer le contrôle....

Merci pour votre aide.

[vinc_bilb]

Bonjour

Et bien .... votre code marche
Au minimum, dans les références, vous devriez je pense avoir:
1. Le VBA
2. Microsoft Excel Objects library
3. Microsoft Office Objects library

Si vous les avez, je ne comprends pas ce qui coince

[Menhir]

NB: j'ai essayé dans la bibliothèque des références "VBAProject" de décocher la référence (MANQUANT: Microsoft...) il m'indique qu'il est impossible de supprimer le contrôle....

Tu n'aurais pas, par hasard, oublié de signaler que cette macro a été développée sur un poste ayant une autre version d'Office ???

Cherche dans la bibliothèque d'objets celle qui correspond à la version installée de celle qui est signalée manquante (normalement, ça devrait être le même nom avec un chiffre différent) et coche-la.

[Theze]

Bonjour,

Vas dans les références et décoches où il est marqué MAQUANT*!

[dahi67nb]

Bonjour,

Merci pour vous réponse,
Menhir : Oui! tu as raison, macro a été développée sur un poste ayant une autre version d'Office 32 Bits de 2010.
vinc_bilb : j'ai les trois références bien cochées.
Theze: je n'arrive pas à décocher


Dans la bibliothèque des références, je n'arrive pas à décocher (MANQUANT: Microsoft Windows Common Contrôle.....). Il m'indique de (Impossible de supprimer le contrôle ou la référence; en cours d'utilisation).

Comment dois-je faire SVP

[Menhir]

Dans la bibliothèque des références, je n'arrive pas à décocher (MANQUANT: Microsoft Windows Common Contrôle.....). Il m'indique de (Impossible de supprimer le contrôle ou la référence; en cours d'utilisation).

Le Sub que tu présentes ici est-il la seule macro de ta feuille ?
N'y aurait-il pas des macros évènementielles, des fonctions, des UserForms, des contrôle ActivX, etc... ?

[unparia]

Bonjour

je n'arrive pas à décocher (MANQUANT: Microsoft Windows Common Contrôle.....)

Microsoft Windows Common Contrôle...

correspond à un contrôle activex et le code que tu montres n'en utilise aucun et n'a aucun lien avec cette absence.
Il va te falloir au moins isoler. Déjà : au moins apprendre à examiner ce que tu as copié/collé (ce qu'il contient, etc ..)

[dahi67nb]

Menhir: non y'en d'autre! par exemple ci-après, il m'indique sur (j) que la bibliothèques est introuvable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub benvic()
 
    j = 2 ' Ici
    Sheets("primes_BENVIC").Select
    Range("A2:z10000").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Primes_Solvay").Select
 
lastrow = Sheets("primes_Solvay").Cells(Sheets("primes_Solvay").Rows.Count, "A").End(xlUp).Row
 
 For i = 1 To lastrow

Voila!

[patricktoulon]

Bonjour

correspond à un contrôle activex et le code que tu montres n'en utilise aucun et n'a aucun lien avec cette absence.
Il va te falloir au moins isoler. Déjà : au moins apprendre à examiner ce que tu as copié/collé (ce qu'il contient, etc ..)

re
bonjour unparia et ben si !!! justement
quand il y a un manquant dans les références les premières chose a morfler se sont les fonctions dates

certes je suis d'accords normalement l'erreur ne devrait pas se déclencher ici sauf que EN GROS dans le code de la sub c'est la première ligne ou vba utilise une librairie ou fonction intégrées ( les dates) donc voili voilou il se pose ici et te tanque une erreur loufoque (explications venues tout droit de la communauté Microsoft )

voila voila

essaie un truc simple dans une sub avec une référence manquante concernant un control common ou autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 sub test
 x=date ''beep beep erreur !!
end sub

donc theze

plus précisément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub moi()
Dim date_test As Date
    'Now renvoie la date et l'heure en cours (07.02.2018 09:09:02)
 'ici vba va se mettre en error mais pas declencher d'erreur  car    
date_test = Now()' car la valeur va devenir (error ou  false ou empty  ou une autre propertie inutilisé du style "invalid" etc...)
' puisque vba est bloqué, elle est donc valide même si ca n'est pas celle que l'on attends
    'Renvoie : 05.04.19
    Range("A1") = Format(date_test, "dd.mm.yy")' ici l'erreur se déclenche parce que format(false ou error ,"...") ne veux rien dire 
    'Renvoie : mardi 5 avril 2019
    Range("A2") = Format(date_test, "dddd d mmmm yyyy")
End Sub