erreur de compilation

[oliviermartinand]

bonjour j ai un pobleme j ai cree un progsous exel 2007 avec plusieurs macro je l ai enregistrer en exel 2003 pour pouvoir l utiliser au boulot
lorsque je le lance sous exel 2003 certaine macro fonctionne et d autres plantent
voici le message affiche:
erreur de compilation:
projet ou bibliothèque introuvable

j ai bosse plus d un mois sur ca et je ne peux pas l utiliser
si qqun peut m aider
merci beaucoup

 

[jeanpierre]

Re : erreur de compilation

Bonsoir oliviermartinand, re le forum,

Déjà, je n'ai pas 2007, pas voulu s'installer sous Me...

Maintenant sous 2003, quelles macros fonctionnent et quelles macros ne fontionnent pas ?

Pour te dire que ton message est vague.....

Peux-tu nous en préciser d'avantage ?

A te lire.

Bonne soirée.

Jean-Pierre

 

[oliviermartinand]

Re : erreur de compilation

les macros simple comme passer d une feuille a l autre avec un bouton marchent
celles qui ne marche pas sont du genre:

Sub SaisieDesignation()
Designation = 0
'appel Designation
Designation = AppelDesignation()
'rempli la fiche
If Designation <> "" Then inventdesignation.Show
If Designation = DesignationFind Then modifinventdesignation.Show
'Sheets("Sommaire personnel").Activate
End Sub

--------------------------------------------------------------------------
Function AppelDesignation()
'demande un nom
Designation = InputBox("Entrer une désignation", " Création d'une fiche", "ex: LDV 45")

Set DesignationFind = Sheets("Sommaire fiches").Columns("B:B").Find(Designation, Range("B7"), xlFormulas, xlPart)
If Designation = "" Or Designation = "ex: LDV 45" Then GoTo fin

If DesignationFind Is Nothing Then
'Nouveau nom
Sheets("Sommaire fiches").Unprotect ("1308")
With Sheets("Sommaire fiches")
Sheets("Fiche vierge").Copy before:=Sheets(Worksheets.Count)
ActiveSheet.Name = Designation
ActiveSheet.Unprotect ("1308")
Set NbrDesignation = .Columns("B:B").Find("", Range("B7"), xlValues, xlWhole)
FinList = NbrDesignation.Row
.Cells(FinList, 2).Value = Designation
.Hyperlinks.Add Anchor:=.Cells(FinList, 2), Address:="", SubAddress:="'" & Designation & "'!A1"
' .Range(.Cells(8, 2).Address, .Cells(FinList, 2).Address).Sort key1:=.Range("B8"), order1:=.xlAscending, Header:=xlGuess, ordercustom:=1, MatchCase:=False, Orientation:=xltoptobooom
Sheets(Designation).Cells(3, 4).Value = Designation
'Unload inventdesignation
Sheets("Sommaire fiches").Protect ("1308")
End With
AppelDesignation = Designation

Else: Sheets(Designation).Activate

End If
'AppelDesignation = Designation
'Sheets(Designation).Cells(3, 4).Value = Designation
Sheets(Designation).Activate
fin:
End Function

 

[jeanpierre]

Re : erreur de compilation

Re,

Au lire, rapide il est vrai, je ne vois rien, ce soir, et ici, qui fait que cela ne fonctionne pas.

Je revois demain.. au besoin, j'intègre ton code dans un fichier... pas simple sans un petit exemple.... (sous 2000 ou 2003???)

Plusieurs heures sous un 15" ne sont pas toujours faciles.... pour moi, enfin.

Mets nous un petit exemple avec ton souci explicite.... ce sera mieux...

A te lire.

Jean-Pierre

 

[MichelXld]

Re : erreur de compilation

bonjour

Le message d'erreur survient à quelle ligne de ta macro ?

Si le blocage se fait sur une des ces deux lignes:

If Designation <> "" Then inventdesignation.Show
If Designation = DesignationFind Then modifinventdesignation.Show

il faudrait aussi contrôler le contenu des UserForm


Sinon, dans l'éditeur de macros,
Menu Outils
References
Est ce qu'il y a des références indiquées manquantes ?
Si oui décoche les et refait un essai.


Bonne journée
MichelXld