[XL-2003] Repertoire d'ouverture de fichier

[guigui69]

Bonjour à tous,


Je voudrait réaliser ceci:
J'ai un document excel, ou j'ai placé un bouton Ouvrir.

Lorsque que je cliquerai sur ce bouton je voudrait qu'il arrive directement dans un dossier (\\XXX.XXX.XXX.XXX\xls\), pour que la personne soit directement dans le bon répertoire et choisissent directement un fichier.

Est-ce possible de réaliser cela en VBA.

Car j'ai essayé de faire "enregistrer une macro" mais sans résultat.

Merci d'avance

guigui69

[jpcheck]

Hello,

en utilisant la on trouve ce genre d'information

http://access.developpez.com/faq

selon ton objet de base :
http://access.developpez.com/faq/?pa...fierInitialDir

[taquatzieu]

Bonjour,
pourquoi pas un simple lien hypertexte ??

[Theze]

Bonjour,

Teste ce qui suit en lançant la proc "Ouvrir" après avoir adapter le chemin. La boite s'ouvre sur le dossier choisi et te permet de récupérer le fichier sélectionner. Applique un filtre si tu ne veux que des fichiers Excel :

Code :

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
 
Function Fichier(Dossier As String) As Variant
 
    With Application.FileDialog(3)
 
        'défini le répertoire sur lequel s'ouvrir
        .InitialFileName = Dossier
 
        'affiche la boite de dialogue
        .Show
 
        'si annuler
        On Error Resume Next
 
        'récupère le chemin du fichier choisi (le 1er)
        Fichier = .SelectedItems(1)
 
        'si une erreur (pas de fichier choisi) retourne False
        If Err.Number <> 0 Then Fichier = False
 
    End With
 
End Function
 
Sub Ouvrir()
 
    'adapter le chemin
    MsgBox Fichier("D:\Mon Répertoire\")
 
End Sub

Hervé.