Discussion :

[majothi]

Bonjour,

J'utilise une zone liste, à l'interieure de cette zone liste, se trouve des noms qui corresponde à des fichiers excel.
Est il possible en cliquant sur un nom qui se trouve ds la zone liste d'ouvrir le fichier excel qui correspond ?

Merci d'avance pour votre aide

[LE VIEUX]

bonjour et bon we,

essayes :
d'abord "Ajouter, si ce n'est fait" "Référence - Microsoft Excel X.0(ex:12.0 pour 2007) Object Library"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MaZoneDéroulante_Click()
Dim appXl As Excel.Application
ZLD = Me.MaZoneDéroulante.value
Set appXl = CreateObject("Excel.Application")
strFile = "C:\MonCheminFichier" & ZLD & ".xls"
With appXl
    .Workbooks.Open strFile
    .Visible = True
End With
 
 
Set appXl = Nothing
End Sub

à+

[helas]

ou

Code :

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

1
2
3
4
5
 
Private Sub LeBouton_Click()
 Dim r As Long 
 r = Shell("excel.exe " & Me!MaZoneDéroulante, vbNormalFocus)
End Sub

[majothi]

Merci pour vos réponses,

HELAS, il y a un pb, il ne trouve pas les fichiers, j'ai une erreure sur le nom des fichiers et du chemin.

LE VIEUX ta solution fonctionne parfaitement, c'est exactement ce que je voulais faire.
Par contre, peux tu m'expliquer "Set appXL = Nothing" à la fin de la macro.

Merci encore de votre aide

[LE VIEUX]

bonjour,
satisfait de t'avoir aidé,
à ta question :

Par contre, peux tu m'expliquer "Set appXL = Nothing" à la fin de la macro

la réponse devrait être du genre :
Libérer les ressources liées à l'Objet Excel.Application utilisées par la variable Objet appXL qui après l'affectation de nothing ne pointe plus sur rien car on en a plus besoin donc on libère les ressources mémoires et systeme de l'objet.
un spécialiste des mémoires pourraient peut être t'en dire plus, pour les programmeurs c'est souvent une habitude même si dans certains cas cela n'est pas absoluement nécessaire si on n'utilise plus ni l'objet ni la variable objet dans la même session.

[majothi]

Merci pour ton explication, elle est suffisament claire.
Bon dimanche.