probleme de nom ambigue dans mon appli

[BASSDINGUE]

bonjour le forum,

j'ai un souci avec mon application developpé en vb:
hier ellle marchait bien et quand je l'ai reouvert ce matin elle me dit que j'ai des nom ambigue et elle ne demarre pas
le 1 nom ambigue:~ . Je ne sais pas a quoi cela correspond
et quand je passe par vb et que je lance un userform , c'est le nom du userform qui apparait comme noms ambigue
si quelqu'un sait ce que cela veut dire, ca m'arrangerait
merci

ps:je developpe pour du excel 2000

 

[Yohng]

Re : probleme de nom ambigue dans mon appli

Bonsoir,
Ce que je fais dans ce cas (je ne suis pas pro et j'ai les mêmes soucis que toi, mais avec d'autres erreurs) : dans la procédure d'initialisation, je mets un point d'arrêt à chaque ligne et je suis le déroulement. (Parfois, il est utile d'utiliser les espions...si tu sais ce que tu cherches) .
Bien entendu, lorsque tu as testé le passage d'une boucle, tu peux supprimer les points d'arrêt.... ne pas te taper 1000 fois la boucle!

 

[Yohng]

Re : probleme de nom ambigue dans mon appli

OUPs désolé, ca ne marchera pas pour nom ambigu!
Il faut lire le code jusqu'à déceller ou tu as tapé 2 fois la même procedure,ou bien tu as une variable qui a le nom d'un control, ou un control qui a le nom d'une procedure .... etc ....etc....

//// tu peux aussi essayer de compiler, et il te montrera (peut-être) ou est ton erreur! ///

 

[Cousinhub]

Re : probleme de nom ambigue dans mon appli

Bonjour,

vérifie dans ton code, que tu n'as pas deux fois le même nom de procédure
Si tu veux, mets tout ton code ici

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

quand je renomme mon userform d'acceuil en un autre nom, c'est ce nom qui apparait comme ambigue alors que je suis sur qu'il n'y aucun nom identique
dse idees?

merci

 

[tototiti2008]

Re : probleme de nom ambigue dans mon appli

Bonjour à tous,

c'est peut-être que ce n'est pas le nom du UserForm qui est ambigu...

 

[jeanpierre]

Re : probleme de nom ambigue dans mon appli

Bonsoir BASSDINGUE, bhbh,

Comme dit par bhbh que je salue, mets nous au moins, et dans un premier temps, tout ton code. Ensuite, on verra si un fichier joint s'avère nécessaire.

De loin, comme cela, pas facile de dire.

A te lire.

Jean-Pierre

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

et pourtant il me donne le nom du user
je comprend pas

 

[Roland_M]

Re : probleme de nom ambigue dans mon appli

bonjour

tu utilises aussi peut être une Constante VBA comme nom ce qui est interdit !?

Roland

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

Je veux bien , mais quel code ?
celui de la page d'acceuil?

parce que le probleme se repose si je demarre sur un autre user de l'appli

 

[jeanpierre]

Re : probleme de nom ambigue dans mon appli

Re,

Tout ton code, étape par étape.

Sinon, comme dit Roland, un nom réservé en VBA.

Après et sans plus, c'est le brouillard.

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

Peuxx tu etre plus clair roland M je ne suis pas sur d'avoir bien compris
merci

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

voila le code de la page d'acceuil
si vous trouvez quelquechose


Option Explicit
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public MusicWAV


Private Sub CommandButtonRecherche_Click()
USFSEARCH1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then Cancel = True

End Sub


Private Sub CMBRETARD_Click()


USFRETARDOPCA.Show

End Sub

Private Sub Sortie_Click()

USFSAVE_BD.Show
On Error Resume Next

End Sub



Private Sub BoutNouvelleFiche_Click()

USFCLIENTNEW.Show

End Sub


Private Sub CommandButtonAjoutNouveauCableur_Click()

USFCLIENTINFO.Show

End Sub

Private Sub CommandButtonAccesCode_Click()

On Error Resume Next
'USFPASSWORD.Show
Application.Quit

End Sub

Private Sub UserForm_Initialize()
'USFACCEUIL.
Label4.Caption = " Votre Base de données est enregistrée dans : " & ActiveWorkbook.FullName

Dim hwnd As Long, exLong As Long, zFactor As Integer, Style As Long

Sheets("table_client").Activate

hwnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hwnd, -16)
If exLong And &H880000 Then SetWindowLongA hwnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height
Style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, Style
DrawMenuBar hwnd

On Error Resume Next



'Affichage sur le UserForm
'USFACCEUIL.
LblDateHeure.Caption = "Nous sommes le " & Format(Date, "Long Date") '_
'& vbCrLf & vbCrLf & "Il est " & Format(Now, "Long Time")
'USFACCEUIL.
LblDateHeure.Caption = UCase(Left(USFACCEUIL.LblDateHeure.Caption, 1)) _
& Right(USFACCEUIL.LblDateHeure.Caption, Len(USFACCEUIL.LblDateHeure.Caption) - 1)



End Sub

 

[jeanpierre]

Re : probleme de nom ambigue dans mon appli

Re,

Lorsqu'apparaît "Nom Ambigue", c'est sur qu'elle ligne ?

 

[BASSDINGUE]

Re : probleme de nom ambigue dans mon appli

des le debut
il ne s'arrete pas sur une ligne precise