XL 2013 OUVRIR TOUT FICHIER A PARTIR DE LISTBOX

[fatoum]

Bonjour a tous
je cherche a ouvrir des fichiers avec différentes extensions .pdf .xlsx .xlsm .doc .... sur un listbox en double cliquant sur le nom du fichier concerné depuis un bon moment maintenant, je peux vous assurer que j'ai parcouru les solutions déjà proposer en vingt...
voici en fichier joint un morceau de ce que je fais... tout en vous remerciant d'avance pour votre aide j’espère réellement avoir une solution

 

[job75]

Bonjour à tous,

Si vous n'êtes pas très qualifié N'OUVREZ PAS le fichier précédent.

En effet il y a une Workbook.Open qui masque Excel, sans l'afficher ensuite :

Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
Load UserForm1
UserForm1.Show
End Sub

Pour ne pas avoir de problème il faut bien sûr la remplacer par :

Private Sub Workbook_Open()
Me.Application.Visible = False
Load UserForm1
UserForm1.Show
Me.Application.Visible = True
End Sub

C'est tout simplement se moquer du monde !!!

A+

 

[Temjeh]

Oui merci Job
J'avais remarqué.

J'aurais du avertir aussi.
Comme toi aussitôt ouvert, aussitôt dans la déchiqueteuse.

A+

 

[fatoum]

Bonjour ! Je vous remercie pour vos réponses mais ça ne marche toujours pas... J'ouvre et referme tous les types de fichiers sans problème sauf les fichiers excel. En effet lorsque j'ouvre un fichier excel et que je veux refermer celui ci me demande de fermer le classeur dans lequel se trouve mes macro c'est ce qui me stresse depuis un bon moment. J'espère vraiment trouver une solution merci encore pour votre aide

 

[Temjeh]

Bonjour Fatoum

Si tu veux recevoir de l'aide, annule le code à l'ouverture en mettant devant une apostrophe.
'ThisWorkbook.Application.Visible = False
Une procédure qui masque EXCEL, pas nécessaire dans le forum.

Ensuite reposte ton fichier pour l'aide.

Pour ma par, le problème vient surement de ton Userform.
Met l'option du Userform ShowModal à False.
Impossible de travailler ou de fermer les autre classeurs si le UserForm force le devant.

Après un test j'ouvre et ferme tout les classeurs sans problème.

A+

 

[job75]

Bonjour fatoum, Temjeh,

Ça ira beaucoup mieux si dans ThisWorkbook vous remplacez la Workbook_Open par :

Private Sub Workbook_Activate()
UserForm1.Show 0 'non modal
End Sub

A+

 

[Temjeh]

Oui le zéro fait toute la différence.

A+

 

[fatoum]

salut c'est génial j'y suis enfin arrivée je vous remercie énormément pour vos réponses.

 

[Modeste geedee]

Bonsour®

Bonjour a tous
je cherche a ouvrir des fichiers avec différentes extensions .pdf .xlsx .xlsm .doc .... sur un listbox en double cliquant sur le nom du fichier concerné depuis un bon moment maintenant, je peux vous assurer que j'ai parcouru les solutions déjà proposer en vingt...
voici en fichier joint un morceau de ce que je fais... tout en vous remerciant d'avance pour votre aide j’espère réellement avoir une solution

pour ouvrir n'importe quel fichier, laissez Windows utiliser les programmes associés aux extensions correspondantes ...

'
' dans la section déclaration de votre module


Public Declare Function ShellExecute _
    Lib "shell32.dll" _
    Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
    As Long

'utiliser ShellExecute avec un code comme ci-dessous

Sub ShellExec()
    Dim strFile As String
    Dim strAction as String
    Dim lngErr As Long

     strFile = "c:\somefile.txt"  ' le nom et le chemin du fichier souhaité
    strAction = "OPEN"  ' action might be OPEN, NEW or other, depending on what you need to do

    lngErr = ShellExecute(0, strAction, strFile, "", "", 0)

    ' optionally, add code to test lngErr

End Sub

plus d'infos voir là :

[VBnet Win32 Shell] ShellExecute: ShellExecute Madness

VBnet provides Intermediate and Advanced Win32 API code for VB developers. Comprehensive Code, FAQ, Developers Resources & News, alphabetical API/Type/Constant/Method Index, along with the largest Visual Basic-related links list on the net.

www.mvps.org

 

[job75]

Re, salut Modeste geedee,

En plus de mon post #6 complétez ainsi le code de l'UserForm :

Private Sub ListBox2_Click()
On Error Resume Next
ThisWorkbook.FollowHyperlink ListBox1 & "\" & ListBox2
Workbooks(ListBox2).Activate
End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox2_Click
End Sub

A+

 

[fatoum]

C'est excellent!