fichier non trouvé

**sagull** · 02/03/2010, 04h23

bonjour,
dans un fichier, j'ai des formules qui pointent vers un fichier que je dois choisir parmis plusieurs et qui se trouvent dans un dossier réseau. Aujourd'hui j'ai mis des "blabla" pour le nom de fichier et d'onglet dans les formules et de ce fait, la fenêtre fichier non trouvé s'affiche à l'ouverture du doc.
comme beaucoup d'utilisateurs sont amenés à utiliser ce fichier, est-il possible, en vba je pense, d'appeler une fenêtre plus conviviale avec un texte explicatif et qui reprendrait les noms de fichiers contenus dans le dossier réseau avec un choix possible par bouton radio par exemple?
merci pour votre aide

**davcar14** · 02/03/2010, 09h34

Bonjour,

Tu trouveras ci-dessous une procédure VB qui liste les fichiers d'un dossier et qui les stocke dans une Table. Charge à toi ensuite, via un formulaire d'afficher le contenu de la table .

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
35
36
37
38
39
40
41
42
Function Lire_Repert(nomrep As String)
 
    On Error GoTo Err_Lire_Repert
 
    ' lecture du repertoire passé en parametre
    ' mise en tab des fichiers XLS
    Dim db As Database
    Dim r As Recordset
    Dim nbFic As Long
    Dim nomfic As String, stsql As String
 
    DoCmd.SetWarnings False
 
    'Raz table tempo
    stsql = "DELETE * FROM T_Temp_Fic;"
    DoCmd.RunSQL stsql
 
    Set db = CurrentDb
    Set r = db.OpenRecordset("T_Temp_Fic", dbOpenDynaset)
 
    nbFic = 1
    nomfic = Dir(nomrep & "\*.xls")
    Do While nomfic <> ""
        r.AddNew
        r.Fields("FIC_XL") = nomrep & "\" & nomfic
        r.Fields("Fic_Court") = nomfic
        r.Fields("Gestionnaire") = Mid(nomfic, 23, 5)
        r.Update
        nbFic = nbFic + 1
        nomfic = Dir      ' extrait fichier suivant
    Loop
 
    r.Close
    Set db = Nothing
 
Exit_Lire_Repert:
    DoCmd.SetWarnings True
    Exit Function
Err_Lire_Repert:
    MsgBox Err.Description, vbCritical, "Erreur_Lire_Repert " & Err.Number
    Resume Exit_Lire_Repert
End Function

**sagull** · 02/03/2010, 16h44

Merci pour ta réponse davcar14 mais la, vu mes connaissances en la matière, je crois que je coule direct. J'ai bien essayé de décripter mais en vain. Par contre, s'il était trop difficile pour moi d'y parvenir de cette manière, serait-il possible de faire en sorte que la fenêtre "Le classeur que vous avez ouvert comporte des liaisons avec un autre classeur" ne s'affiche pas, que les liens ne soit pas mis à jour et qu'aucune fenetre "fichier non trouvé" ne s'ouvre pour me permettre, en priorité, d'afficher mon message box et ses explications dés l'ouverture du fichier. Par la suite, un commandbouton me permettrait de mettre à jour les liens au besoin . J'ai bien vu des bribes de réponses dans le forum mais tout ce que je parviens à faire c'est ne pas afficher la fenêtre par contre, la fenetre "fichier non trouvé s'affiche toujours"

plus j'écris et plus il me semble en demander beaucoup mais bon...

merci