ouvrir fichier xlsm

[ngexcel]

bonjour à tous et toutes

j ai trouvé un fichier qui me permet de lister et d ouvrir les fichiers excel qui sont dans un répertoire
mon problème je liste bien les fichiers xls,xlsm,xlsx mais je n arrive pas a ouvrir les formats xlsm ou xlsx

je vous joint le fichier merci d avance

 

[vgendron]

Re : ouvrir fichier xlsm

Hello
les formats xlsx et xlsm sont les extensions pour Excel 2007
toi. t'es en 2003...
xls est devenu xlsx
et xlm est devenu xlsm..

solution: utiliser un convertisseur ???

 

[ngexcel]

Re : ouvrir fichier xlsm

bonsoir j ai essayé avec excel 2007 j ai le même problème pouvez vous tester mon fichier

 

[Roland_M]

Re : ouvrir fichier xlsm

bonsoir,
voir modif côté code !

 

[ngexcel]

Re : ouvrir fichier xlsm

Merci cela fonctionne pour excel

Pour les fichiers PowerPoint et Word cela ne fonctionne pas

 

[Roland_M]

Re : ouvrir fichier xlsm

re

effectuer une recherche sur le forum ou sur le net ! il y a des tas d'exemples !
exemple ici:

https://www.excel-downloads.com/threads/macro-pour-ouvrir-document-powerpoint-ou-world.17511/

 

[Roland_M]

Re : ouvrir fichier xlsm

re

une autre façon d'ouvrir un fichier ...
ceci dans un module
et tu tapes F5 sur le Sub ShellOuvreFich()

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

Public Sub ShellOuvreFich()
Dim Fichier As Variant, fTypes$, Result, I%
fTypes = "Fichiers (*.*) (*.*),"
Fichier = Application.GetOpenFilename(Title:="Ouvrir", fileFilter:=fTypes)
If Fichier = False Then
   MsgBox "Pas de fichier sélectionné.", , "Microsoft"
Else
   I = InStrRev(Fichier, ".")
   If I Then
      If LCase(Mid(Fichier, I, 3)) = ".xl" Then
         ThisWorkbook.FollowHyperlink Fichier
      Else
         Result = ShellExecute(0, "Open", Fichier, "", "", 1)
      End If
   End If
End If
End Sub

 

[ngexcel]

Re : ouvrir fichier xlsm

Merci je voudrais garder le même type de recherche donc je cherche encore pourquoi cela n ouvre pas ppt et doc