Discussion :

[melancolie]

bonjour.
mon application installée sur les machines XP, vista, W7 marchent parfaitement. et quand, je veux ouvrir un formulaire, il me ramène le message

"erreur d'exécution 52, nom ou numéro de fichier incorrect".

mon application est faite sous XP.

voici le code qui appelle l'ouverture du formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
Private sub OuvrirFormulaire()
feuilleActive = "c_membre"
 
If IsLoadedForm(c_MEMBRE) Then 'IsLoadForm est une function booléenne qui vérifie si le formulaire est déjà ouvert
   c_MEMBRE.ZOrder 0
   Exit Sub
End If
 
c_MEMBRE.Show
end sub

au démarrage de la feuille, on a le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Form_Load()
    On Error GoTo GestErr
 
    With cbFILTRE(0)
        .AddItem "Masculin"
        .AddItem "Féminin"
    End With
 
    With cbFILTRE(1)
        .AddItem "CNI"
        .AddItem "Carte de séjour"
        .AddItem "Carte consulaire"
        .AddItem "Passeport"
        .AddItem "Permis de conduire"
        .AddItem "(Autre)"
    End With
 
    With cbFILTRE(3)
        .AddItem "Pisteur"
        .AddItem "Paysan"
        .AddItem "Coopérative"
        .AddItem "Association"
        .AddItem "(Autre)"
    End With
With cbFILTRE(4)
        .AddItem "Oui"
        .AddItem "Non"
    End With
 
    cmdREFRESH_Click 'procédure qui rafraichit les données de la grille
    Exit Sub
GestErr:
    MyLib.GestionDesErreurs "Echec d'ouverture du formulaire", CheminSon & "malfound.wav"
End Sub

il y a une photo à afficher quand on parcourt la grille. et la procédure qui permet l'affichage s'écrit comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub RS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    On Error Resume Next
 
    If RS.EOF Then
        imPHOTO.Picture = LoadPicture()
      Else
        If RS!PhotoIdentite <> "" And IsNull(RS!PhotoIdentite) = False Then If Dir(RS!PhotoIdentite, vbHidden) <> "" Then imPHOTO.Picture = LoadPicture(RS!PhotoIdentite)
    End If
End Sub

j'espère avoir été assez explicite pour expliquer mon problème.
merci d'avance

[OhMonBato]

bonjour.
mon application installée sur les machines XP, vista, W7 marche parfaitement

Il y a un probleme alors ou pas ?
Sinon je trouve bizarre de voir une fois c_Membre en tant que String puis en tant que variable, c'est normal ?

Code :

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

1
2
feuilleActive = "c_membre"
if IsLoadedForm(c_MEMBRE) Then

Sur quelle ligne se produit ton erreur ?

[melancolie]

Il y a un probleme alors ou pas ?
Sinon je trouve bizarre de voir une fois c_Membre en tant que String puis en tant que variable, c'est normal ?

Code :

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

1
2
feuilleActive = "c_membre"
if IsLoadedForm(c_MEMBRE) Then

FeuilleActive est une variable de type string qui me permet juste de savoir le formulaire en cours.

à la création, je ne rencontre aucune erreur. après, je crée le fichier setup avec innosetup. je l'installe proprement sur d'autres postes. tout marche parfaitement mais c'est à l'ouverture du formulaire "c_MEMBRE" que le message apparaît. c'est pourquoi je vous ai fait parvenir les codes des procédures intervenant à l'affichage du formulaire.

peut être dois je aussi envoyer la procedure de "cmdRefresh_Click". la petite bête doit se cacher quelque part.

[OhMonBato]

Sur quelle ligne se produit l'erreur ?

[melancolie]

OhMonBato a écrit

Sur quelle ligne se produit l'erreur ?

j'ai répondu

à la création, je ne rencontre aucune erreur.

c'est à l'exécution sur une machine tierce que je rencontre le problème à l'ouverture du formulaire "c_MEMBRE"

[OhMonBato]

Et bien a toi de rajouter quelques MsgBox par exemple a differentes etapes pour voir ou ca coince et de tester cette version sur l'autre machine.

[melancolie]

bonne idée. je suis sur une autre tâche. je m'y mets ce soir et demain, je fais le point

[ProgElecT]

Salut OhMonBato, melancolie

@melancolie

mon application installée sur les machines XP, vista, W7 marchent parfaitement. et quand, je veux ouvrir un formulaire, il me ramène le message "erreur d'exécution 52, nom ou numéro de fichier incorrect".

Dans l'éditeur VB6, au run du projet, pas d'erreur ?

c'est à l'exécution sur une machine tierce que je rencontre le problème à l'ouverture du formulaire "c_MEMBRE"

Dans la procedure Private Sub RS_MoveComplete(ByVal adReason ...... tu demandes une gestion d'erreur, On Error Resume Next, mais tu ne l'utilises pas, de plus elle annule sûrement le On Error GoTo GestErr de la procédure Form_Load
Moi je tenterai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub RS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    On Error Resume Next
 
    If RS.EOF Then
        imPHOTO.Picture = LoadPicture()
      Else
        If RS!PhotoIdentite <> "" And IsNull(RS!PhotoIdentite) = False Then If Dir(RS!PhotoIdentite, vbHidden) <> "" Then imPHOTO.Picture = LoadPicture(RS!PhotoIdentite)
    End If
'**************** Ajout ******************************
If Err <> 0 Then
    Dim Msg As String
    Msg = "Erreur N°" & Err & vbCrLf _
        & "Description: " & vbCrLf & Err.Description & vbCrLf _
        & "Chemin de l'image" & vbCrlf & RS!PhotoIdentite
    Err.Clear
    MsgBox Msg, vbCritical, "Problème"
End If
End Sub

Pourquoi, car je pense que le chemin photo, RS!PhotoIdentite n'est pas valide pour les ordinateurs ou sont installé ton programme.