1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 sous VB6 chemin d'accès introuvable

    Bonjour,
    On m’a indiqué ce forum pour trouver un développeur qui pourrai t m’aider à résoudre le bogue apparu lors de l’exécution de certains programmes sous Visual Basic 6 (VB6). J’utilise VB6 depuis plus de quinze ans et ai créé une douzaine de programmes regroupés dans le module programmes.
    Avec les points d’arrêts j’ai mis en évidence que le problème survenait pour tous les programmes à la ligne : Lire_Paramètres numeroRec Parametres (1)
    La lecture ne semble plus fonctionner car ça déclenche l’erreur 76 – chemin d’accès introuvable et s’ouvre la fenêtre Lire paramètres où : open »C:\ressources\vtech\parametres.dat » for Random As #FileNumber Len recordlength est surligné en jaune.
    Le fichier Usecam.txt se trouve vidé si j'insiste dans les tentatives (ce qui reste une énigme) -je l'ai rechargé plusieurs fois avec une clé USB- ce fichier Usecam.txt détient les données ou les copies des données sur parametres.dat nécessaires à l'exécution des calculs par un sous programme Usecam qui ne semble pas alimenté en données comme il le faudrait. En mettant un point d'arrêt au niveau du bugue et avec la touche F8 je n'arrive pas à rentrer plus dans les détails du chemin - il faut certainement explorer paramètres.dat mais je ne m'aventure pas à l'ouvrir car un message précise qu'il ya de gros risques pour l'application et demande d’aller sur le net trouver le logiciel requis.
    J'ai eu l'idée de ressortir mon vieux PC et ai pu constater que les programmes installés dans le dossierC:\ Ressource\Vtech fonctionnaient normalement. Après installation sur le disque C avec une clé USB d'une version récente du sous dossier à problème renommé Vtech0, le problème persistait dès le premier run et ça a ensuite contaminé l'ancien sous dossier Vtech. Les conclusions à tirer ne semblent pas évidentes- Est-ce que VB6 en contact avec le sous dossier Vtech0 à problème s'est altéré et ne permet plus à la version vtech sans problème de fonctionnner? Si c'est le cas ça signifie que réinstaller VB6 n'est pas la solution-mais qu'il faut d'abord trouver la raison de l'erreur 76 chemin d'accès introuvable.
    Une analyse des fichiers avec McAfee ne révèle rien - mais j'en arrive à suspecter un problème de ce type dont seraient la cible ces programmes?
    Avec mes remerciements
    Bague.

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut bague, bienvenue sur DVP

    Pour pouvoir t'aider, il faut que tu nous mettes le code de la procédure/fonction Lire_Paramètres numeroRec Parametres (1).
    De ce que j'ai compris, si cela est bien une procédure, son nom est Lire_Paramètres, avec 2 paramètres ?,
    - si oui il semble manquer une virgule entre numeroRec et Parametres (1)
    - si non, il ne devrais pas y avoir d'espace entre numeroRec et Parametres (1).
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour,
    Oui effectivement il manque une virgule entre numeroRec et Parametres(1) -mais uniquement dans le descriptif du problème pas dans les programmes concernés par le problème, qui se manifeste pour tous les programmes du module programme sans qu'ils aient été modifiés? Avez-vous déjà connu une problématique analogue à celle décrite à la fin du descriptif et concernant l'apparente contamination engendrée par l'erreur 76?
    Merci de votre réponse
    Bien cordialement
    Bague

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Citation Envoyé par ProgElecT
    Pour pouvoir t'aider, il faut que tu nous mettes le code de la procédure/fonction Lire_Paramètres numeroRec.Parametres (1).
    au moins jusqu’à l'open de "C:\ressources\vtech\parametres.dat" & numeroRec.Parametres (1)
    numeroRec.Parametres (1) est bien égal à Usecam.txt ?
    Le fichier Usecam.txt se trouve vidé, FileNumber est instancier comment?
    Sans ce minimum d'infos, on se perd en conjoncture et je ne voie pas comment on pourra t'aider.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut bague erreur 76

    Bonjour
    Merci pour la réponse d’hier-voici les infos concernant le code.
    Bien cordialement
    bague
    Dans tous les programmes du module programmes, le bogue erreur 76 apparait à la ligne Lire_Parametres numeroRec, Parametres(1) comme dans le programme Defcam où à la fin lorsqu’une nouvelle définition de came a été retenue et donc sa vingtaine de paramètres ont été enregistrés (dans parametres Usecam.txt qui contient pour le moment pour chacune des 67 cames enregistrées, la vingtaines de paramètres nécessaire à la reformulation de ces 67 lois de cames, par le sous prog_Usecam) . parametres Usecam.txt alimente le sous programme Usecam utilisé dans les autres programmes comme par exemple Dynamique 4 qui ont besoin d’utiliser pour chaque valeur de la rotation TED, la levée YUsecam, la vitesse Y0Usecam, l’accélération Y00Usecam etc de la loi decame retenue numéroRec =67(par exemple).
    Pour vérifUsecam=0 , prog_Defcam ne bogue pas car on évite la ligne Lire_Parametres numeroRec, Parametres(1).

    Recopie de la fin du prog_Defcam
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    'Utilisation pour vérif du prog_Usecam (pour le dernier enregistrement ou pour une valeur inférieure de numéroRec)
     If vérifUsecam = 1 Then
     numeroRec = 67 ' 49 '53 '57 ' 53 '4
     TEA4D = 90 '20.19139 ' 90 '20.19139 '100
     Lire_Parametres numeroRec, Parametres(1)   
     For TED = 0 To TEA4D Step DTED 
     Prog_Usecam
     Debug.Print TED; YUsecam; Y0Usecam; Y00Usecam; Y000Usecam; RcbUsecam; PsiDUsecam
     Next TED
     End If
    Lorsque le bogue se manifeste, la fenêtre Lire_Paramètres s’ouvre et contient :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Public Sub Lire_Parametres(ByVal recordNum As Long, param As Parametres_type)
    'lecture d'un enregistrement existant dont le numéro = recordNum
    ' NB: le premier enregistrement a le numéro = 1, le deuxième le numéro = 2, etc...
     FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
     recordlength = LenB(Parametres(1)) 'longueur d'un enregistrement du fichier parametres.dat
      Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = recordlength    '************************* (surligné en jaune lors du bogue) **************************
       Get #FileNumber, recordNum, param 'insère la variable param en fin de fichier
     
       Close FileNumber 'fermer le fichier parametres.dat
    End Sub
    Pour info :
    Pour utiliser prog_Usecam dans les prg du module programmes
    Hors boucle numeroRec=1 à 67 pour le moment
    Lire_Parametres numeroRec, Parametres(1)
    Dans la boucle prog_Usecam
    Pour utiliser le prog_Usecam à partir d’un programme du module par exemple prog_Defcam il faut dans déclaration en tête du module, déclarer les variables qui sont échangées entre les 2 prog(ici TED, YUsecam , Y0Usecam, Y00Usecam, Y000Usecam, RcbUsecam, PsiDUsecam)
    Toutes les variables utilisées par Usecam doivent avoir une valeur attribuée provenant de Paramètre(1). Pour cela au début du prog_Usecam on a écrit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    With parametres(1)
    Gamin=.Gamin
    'Etc
    YA3=.YA3
    End with
    Copie du fichier ParamètresUsecam.txt pour la première came enregistrée
    Prog_Defcam Fichier ParamétresUsecam.txt
    Came 1
    Gamin = -75 A1 = -1500 A3 = 1200 A4 = 460 A5 = 80
    Yrampe = 0,25 Vrampe = -5 Rbase = 21,5 Rgalet = 9
    TEmaxD = 26 TEA2D = 028,500000 TEA3D = 030,229578
    TEA4D = 032,500000 TEA2A3D = 01,729578 TEA3A4D = 02,270422
    XF1 = 0,351447 XF2 = 0,444565
    XE1 = 0,472629 XE2 = 0,535310
    XD1 = 0,577874 XD2 = 0,630311
    XC1 = 0,720168 XC2 = 0,748598
    XB1 = 0,901996 XB2 = 0,929686
    XA1 = 0,988230 XA2 = 1,096154
    B6 = -075,000000 B5 = -107,000000 B4 = -303,533442
    B3 = -758,712494 B2 = 110,000000 B1 = 1500,000000
    CCci6 = -000,216095 DCci6 = 027,199333
    CCci5 = 006,213240 DCci5 = 026,334289
    CCci4 = 057,090488 DCci4 = 017,544717
    CCci3 = 197,152547 DCci3 = -011,201464
    CCci2 = -117,312469 DCci2 = 064,692874
    CCci1 = -761,368872 DCci1 = 263,648884
    Fci1 = -000,083620 Fci2 = 000,165816
    Eci1 = -000,060549 Eci2 = 000,160192
    Dci1 = 000,282253 Dci2 = 000,369908
    Cci1 = -000,612588 Cci2 = 000,341623
    Bci1 = -000,608956 Bci2 = 000,338334
    Aci1 = -000,178756 Aci2 = 000,137606
    XOF = 0,351447 RF = 0,234606 Y00OFR = -0,170799
    XOE = 0,425764 RE = 0,118073 Y00OER = -0,265624
    XOD = -0,225675 RD = 0,866098 Y00ODR = 0,119320
    XOC = 0,748598 RC = 0,028765 Y00OCR = 0,565829
    XOB = 0,901996 RB = 0,027900 Y00OBR = 0,566695
    XOA = 1,096154 RA = 0,108741 Y00OAR = 0,108741
    DG0 = 185,000000 YA3 = 0,099066

  6. #6
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut

    On y voie un peu plus claire dans ta demande d'aide.

    Avant que tu nous mettes un peu de code, je soupçonnais une mauvaise implémentation de FileNumber, ce qui n'ai pas le cas

    Lorsque le bogue se manifeste, la fenêtre Lire_Paramètres s’ouvre et contient :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = recordlength    '************************* (surligné en jaune lors du bogue) **************************
    Le Len = recordlength à la suite de la demande d'ouverture du fichier est il un mauvais copier/coller
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  7. #7
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour,
    Merci pour la réponse
    Après avoir retaper au clavier Len = recordlength , ça n'a pas eu d'effet sur le bogue qui perdure. Dans les versions antérieures de vtech, son écriture est identique.
    Bien cordialement
    bague

  8. #8
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut

    Quand on a un problème de bug, il arrive parfois, par énervement, que l'on ne voie plus les choses la/les erreurs les plus évidentes.
    C'est pourquoi il ne faut pas te vexer des remarques qui suivent.
    Citation Envoyé par toi
    m’aider à résoudre le bogue apparu lors de l’exécution de certains programmes
    Je suppose donc que cela fonctionnait sans problème avant, le bug n'est il pas apparu suite à un changement d'ordinateur, OS, de système anti virus .....

    A mon avis, l'erreur 76, chemin d'accès introuvable, n'est pas forcement la bonne indication retournée par le débogueur VB6.
    Pour cela, je ferai une ouverture/fermeture simple sans aucune intervention/modification et le fermerai immédiatement après son ouverture.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
    'recordlength = LenB(Parametres(1)) 'longueur d'un enregistrement du fichier parametres.dat
    Open "c:\ressource\vtech\parametres.dat" For Input As #FileNumber
    Close FileNumber 'fermer le fichier parametres.dat
    Cela a t il provoqué une erreur?, si oui de quel type.

    Si non
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
    'recordlength = LenB(Parametres(1)) 'longueur d'un enregistrement du fichier parametres.dat
    Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = (Parametres(1))
    Close FileNumber 'fermer le fichier parametres.dat
    Cela a t il provoqué une erreur?, si oui de quel type.

    A savoir:
    Citation Envoyé par toi
    Le fichier Usecam.txt se trouve vidé si j'insiste dans les tentatives (ce qui reste une énigme)
    Citation Envoyé par MSDN
    Si le fichier indiqué par l'argument pathname n'existe pas, il est créé au moment où un fichier est ouvert en mode Append, Binary, Output ou Random.
    Autre remarque
    Citation Envoyé par toi
    J'ai eu l'idée de ressortir mon vieux PC et ai pu constater que les programmes installés dans le dossierC:\ Ressource\Vtech fonctionnaient normalement. Après installation sur le disque C avec une clé USB d'une version récente du sous dossier à problème renommé Vtech0, le problème persistait dès le premier run et ça a ensuite contaminé l'ancien sous dossier Vtech.
    Le statut du fichier copier, les droits en lecture/écriture/autorisation d’accès pour utilisateur xxxx ..... , n'est il pas modifier lors du passage de ta sauvegarde au copier sur ton disque dur?
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  9. #9
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour,
    Merci pour cette réponse et pour les propositions de tests afin de remédier au problème
    Ci-après les tests effectués
    Bien cordialement
    bague
    Tout fonctionnait normalement avant le bogue. Il n’y a pas eu de changement d’ordinateur ni d’anti virus.
    Une ouverture de vtech et de dynamique.vbp suivi d’une fermeture immédiate sans aucune intervention a été sans effet sur le bogue qui persiste.
    Modifications dans :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Public Sub Lire_Parametres(ByVal recordNum As Long, param As Parametres_type)
    'lecture d'un enregistrement existant dont le numéro = recordNum
    ' NB: le premier enregistrement a le numéro = 1, le deuxième le numéro = 2, etc...
     FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
     recordlength = LenB(Parametres(1)) 'longueur d'un enregistrement du fichier parametres.dat
      Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = recordlength
       Get #FileNumber, recordNum, param 'insère la variable param en fin de fichier
       Close FileNumber 'fermer le fichier parametres.datéé
    End Sub
    Ligne modifiée : Open "c:\ressource\vtech\parametres.dat" For Input As #FileNumber .
    Pas d’effet l’erreur 76 persiste chemin d’accès introuvable.

    Puis deuxième essais avec : Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = (Parametres(1)).
    Erreur de compilation type incompatible de base

    La clé USB utilisée pour l’installation sur le disque C de mon ancien PC, du sous dossier à problème renommé Vtech0 a été faite avec une clé USB qui n’a pas posée de problème depuis une petite dizaine d’année d’utilisation. Le bogue est apparu sur le PC actuellement utilisé et sur le disque dur C sans qu’il n’y ai de lien avec la clé USB.
    On ne peut rien exclure, mais s’il y a un problème avec la modification du statut du fichier copier de la clé USB lors du passage de la sauvegarde au copier sur le disque dur, il s’agit d’un second problème qui s’ajoute au bogue 76.
    Merci de m’indiquer comment procéder à cette vérification de changement de statut que je réaliserai ensuite.

    Enfin, en essayant d’ouvrir dynamique.vbp d’une version.zip de vetech réalisée la semaine dernière, voici ce qui apparait à l’écran :
    Chemin d’accès introuvable :’C:\DOCUME~1\User\ LOCALS 1\Temp\Repertoiretemporaire1 pour VTECH.ZIP\VISUAL\Resultats.frm… continuer à charger le projet oui non
    Y a-t-il un lien avec le bogue qui nous préoccupe ?

  10. #10
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut
    On ne peut rien exclure, mais s’il y a un problème avec la modification du statut du fichier copier de la clé USB lors du passage de la sauvegarde au copier sur le disque dur, il s’agit d’un second problème qui s’ajoute au bogue 76.
    Merci de m’indiquer1 comment procéder à cette vérification de changement de statut que je réaliserai ensuite.

    Enfin, en essayant d’ouvrir dynamique.vbp d’une version.zip de vetech réalisée la semaine dernière, voici ce qui apparait à l’écran :
    2 Chemin d’accès introuvable :’C:\DOCUME~1\User\ LOCALS 1\Temp\Repertoiretemporaire1 pour VTECH.ZIP\VISUAL\Resultats.frm… continuer à charger le projet oui non
    Y a-t-il un lien avec le bogue qui nous préoccupe ?
    Pour le 1,
    regarder les propriétés (bouton droit sur le fichier) Attributs: Lecture seule/Caché, dans l'onglet Sécurité, pour chaque Noms de groupes ou d'utilisateurs, les droits de chacun, ceci pour le fichier à copier et le fichier copier.

    Pour le 2, en essayant d’ouvrir dynamique.vbp d’une version.zip de vetech, tu tentes de charger le projet dynamique.vbp depuis un dossier différent du dossier ou est effectivement le fichier Resultats.frm, il faut réunir tous les fichiers du projet dans le même dossier.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  11. #11
    Membre éclairé
    Inscrit en
    décembre 2007
    Messages
    511
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 511
    Points : 665
    Points
    665

    Par défaut autre proposition

    Bonjour,

    Je lance une idée mais à toi de voir...

    Et si tu faisais un essai avec

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim fso
    fileesxists( 
    set fso  =CreateObject ("Scripting.FileSystemObject")
     
    If fso.fileExists("c:\ressource\vtech\parametres.dat") then
       ...
    End IF
    If fso.folderExists("c:\ressource\vtech") then
    ...
    End If
    Et voir ce que cela donne

  12. #12
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour,
    Merci pour cette nouvelle proposition et pour la rendre utilisable, de compléter la modification à tester dans :
    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
    Public Sub Lire_Parametres(ByVal recordNum As Long, param As Parametres_type)
    'lecture d'un enregistrement existant dont le numéro = recordNum
    ' NB: le premier enregistrement a le numéro = 1, le deuxième le numéro = 2, etc...
     Dim fso
      fileExists(
     Set fso = CreateObject("Scripting.FileSystemObject")
     If fso.fileExists("c:\ressource\vtech\parametres.dat") Then
       '...
     End If
     If fso.folderExists("c:\ressource\vtech") Then
    '...
     FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
     recordlength = LenB(Parametres(1)) 'longueur d'un enregistrement du fichier parametres.dat
     Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = recordlength
     Get #FileNumber, recordNum, param 'insère la variable param en fin de fichier
    Bien cordialement
    bague

  13. #13
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut
    Insertion du code proposé par iclic
    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
    Public Sub Lire_Parametres(ByVal recordNum As Long, param As Parametres_type)
    'lecture d'un enregistrement existant dont le numéro = recordNum
    ' NB: le premier enregistrement a le numéro = 1, le deuxième le numéro = 2, etc...
     Dim fso As Object, recordlength As Integer, FileNumber As Integer
     
     Set fso = CreateObject("Scripting.FileSystemObject")
     If Not fso.folderExists("c:\ressource\vtech") Then
        MsgBox "Dossier introuvable", vbInformation, "Erreur"
        Exit Sub
     End If
     
     If Not fso.fileExists("c:\ressource\vtech\parametres.dat") Then
        MsgBox "Fichier introuvable", vbInformation, "Erreur"
        Exit Sub
     End If
     
    FileNumber = FreeFile ' pour obtenir un numéro de fichier non utilisé
    recordlength = LenB(param) 'longueur d'un enregistrement du fichier parametres.dat
    On Error Resume Next
    Open "c:\ressource\vtech\parametres.dat" For Random As #FileNumber Len = recordlength
    If Err.Number <> 0 Then
        MsgBox "Erreur N° " & Err.Number & vbNewLine & vbNewLine & _
                "Description:" & vbNewLine & Err.Description
        Exit Sub
    End If
    'A priori, il n'y a plus de problème à partir de cette ligne de code
    Get #FileNumber, recordNum, param 'insère la variable param en fin de fichier
    Close FileNumber 'fermer le fichier parametres.dat
    fso = Nothing
    End Sub
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  14. #14
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour,
    Merci encore à l’équipe de développez.com; l’insertion du code proposé par *iclic* m’a permis de mettre en évidence que le dossier ("C:\ressource\vtech") n’existe pas, ce qui m’a conduit à faire les vérifications suivantes :
    Dans poste de travail, le dossier Ressource est placé à la racine du disque C
    Un clic droit sur Ressource donne son emplacement C:\
    Puis en ouvrant le sous dossier vtech (de Ressource),
    Un clic droit sur vtech donne son emplacement C:\Ressource\Ressource
    Puis en ouvrant le fichier Dynamique.vbp de (vtech),
    Un clic droit sur Dynamique.vbp donne son emplacement C:\Ressource\Ressource\vtech
    On constate qu’il ya une erreur dans le chemin d’accès à vtech puis aux fichiers qu’il contient avec Ressource qui apparait 2 fois, sans raison logique.
    Il me semble nécessaire de corriger cette anomalie en modifiant le chemin d’accès à vtech.
    Comment modifier ce chemin si vous confirmez que sa retouche est nécessaire ?
    Par ailleurs sur mon ancien PC, le disque dur endommagé avait été changé et la société qui avait fait le changement, avait récupérer le dossier Ressource sur la disque endommagé et l’avait placé dans
    C:\Documents and Settings\User\Mes documents\ (emplacement vérifié par un clic droit sur le second dossier Ressource placé dans mes documents).
    Puis en ouvrant le sous dossier vtech (de Ressource),
    Un clic droit sur vtech donne son emplacement
    C:\Documents and Settings\User\Mes documents\ (il manque Ressource dans ce chemin –comme s’il avait été capté par le dossier Ressource situé à la racine de C qui lui en a deux ?)
    Puis en ouvrant le fichier Dynamique.vbp de (vtech),
    Un clic droit sur Dynamique.vbp donne son emplacement C:\Documents and Settings\User\Mes documents\ Ressource\vtech (le chemin semble correct mais il y a l’erreur 76 chemin d’accès introuvable également)
    J’ai pris l’habitude depuis des années à réactualiser par un copier coller la version de vtech du dossier Ressource sous Mes Documents à partir de celui placé sous la racine de C qui est mon logiciel habituel, utilisé pour les calculs ou des modifications apportées au fil du temps.
    L’erreur 76 se manifeste pour les toutes les versions de vetech placées à la racine de C ou dans Mes Documents.
    Il me semble préférable de supprimer le dossier Ressource placé dans Mes Documents quand tout sera rétabli.
    Merci par avance de votre analyse.
    Bien cordialement
    bague

  15. #15
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour Prog-Elect,
    N’ayant pas eu de suite à mon dernier message, je reviens vers vous pour finaliser la résolution du problème erreur 76 chemin d’accès introuvable.
    Comme dit précédemment, l’avancée a été de mettre en évidence que le dossier ("C:\ressource\vtech") restant introuvable m’a conduit à faire des vérifications sur les emplacements des dossiers concernés décrits dans mon message précédent où une erreur dans les chemins d’accès peut expliquer l’erreur 76 qui nous préoccupe.
    Il me semble nécessaire de corriger certaines anomalies en modifiant les chemin d’accès à vtech.
    Comment modifier ces chemins si vous confirmez que ces retouches sont nécessaire ?
    Merci par avance de votre réponse.
    Bien cordialement
    bague

  16. #16
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 462
    Points
    8 462

    Par défaut

    Salut
    Citation Envoyé par bague Voir le message
    Bonjour ProgElect,
    N’ayant pas eu de suite à mon dernier message,
    ..................
    Il me semble nécessaire de corriger certaines anomalies en modifiant les chemin d’accès à vtech.
    Comment modifier ces chemins si vous confirmez que ces retouches sont nécessaire ?
    ................
    bague
    Je pensais que tu ferais l'essai et que tu nous signalerais le résultat.

    Dans un premier temps je ferai une sauvegarde de tous les fichiers programme ou je serai amené à faire des modifications.
    Dans chacun d'eux, ou le chemin semble diriger vers un mauvais endroit, je changerai ce chemin et enregistrerai.
    Je lancerai l’exécution du programme en debug.
    .............. Bon, pas bon ?

    Si cela ne donne pas le résultat attendu,

    Deuxieme temps, je remplace tous les fichiers modifiés par ceux sauvegardés.
    Je recherche tous les chemins attendus (par le programme) sur le disque dur, je note bien leurs noms, je corrige leurs noms sur le disque dur.
    Je lance l’exécution du programme en debug.
    .............. Bon, pas bon ?
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  17. #17
    Membre éclairé
    Inscrit en
    décembre 2007
    Messages
    511
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 511
    Points : 665
    Points
    665

    Par défaut chemin d'accès

    Bonjour Bague,

    Je ne mets jamais les chemins d'accès en "clair" dans mes programmes,
    mais dans un petit fichier texte où je vais chercher ces paramètres au début du logiciel.
    C'est beaucoup plus facile s'il faut changer un chemin et d'adapter selon les cas.

  18. #18
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement de composants

    Informations forums :
    Inscription : octobre 2017
    Messages : 9
    Points : 1
    Points
    1

    Par défaut erreur 76 avec VB6 chemin d'accès introuvable

    Bonjour ProgElect,
    je vous confirme avoir enfin résolu grâce à vos précieux conseils le problème erreur 76 chemin d’accès introuvable, en corrigeant certaines anomalies détectées dans le chemin d’accès à vtech.
    Un grand Merci pour vos réponses.
    Bien cordialement
    Si vous êtes sur Paris (je suis dans le 14 ème) je vous propose qu’on prenne un verre et je vous offrirai à l’occasion une bonne bouteille (indiquez ce que vous aimez) en remerciement
    bague

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Erreur 3709 sous vb6 et acces
    Par SISGI dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 09/04/2014, 23h23
  2. [XL-2010] Erreur '76' Chemin d'accès introuvable
    Par ti-flo41 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 13/06/2013, 16h25
  3. Erreur "Chemin d'accès introuvable"
    Par Cachlab dans le forum VBScript
    Réponses: 15
    Dernier message: 06/02/2012, 17h19
  4. erreur d'exécution '76' chemin d'accès introuvable
    Par ensmaitk dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 26/04/2007, 18h31
  5. Pb Chemin d'accès introuvable
    Par loic.440 dans le forum ASP
    Réponses: 2
    Dernier message: 13/01/2005, 14h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo