rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Lancer un fichier non exe en vba excel.

Posté par Tsetse71, le mercredi 23 novembre 2005 à 14:33:30
Bonjour,

Petite question a 2 balles :
- comment ouvrir un fichier non exe en vba en sachant que la methode shell ne fonctionne pas elle me renvoie l'erreur : Argument ou appel de procédure incorrect.

Voici ma ligne de commande :

rc = Shell("C:\winnt\clock.avi", 1)

J'ai mis le fichier clock.avi pour exemple je pourrais le faire avec un .doc, .ppt, .zip.....

Pouvez vous m'aider ????
Merci a vous
Répondre à Tsetse71  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
inf, le mercredi 23 novembre 2005 à 15:23:14
Slt,

en lancant l'appli associé, tu passe le fichier visé en paramètres.

rc = Shell("C:\winnt\mplayer.exe C:\winnt\clock.avi", 1)

inf
Répondre à inf

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Tsetse71, le jeudi 24 novembre 2005 à 12:47:02
Salut inf,

Merci pour cette réponse, mais que faire quand on ne sais pas quelle programme va ouvrir le fichier Ex: Un zip peut etre ouvert par Winzip ou Izarc ... ou bien quand on ne connais pas le chemin d'installation du programme ?

tsetse-
Répondre à Tsetse71

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 mennix, le lundi 17 avril 2006 à 08:29:09
il faut utiliser la fonction ShellExecute, je ne suis pas sur que excel la, donc il faut la chercher dans shell32.dll, la declarer en librairy.
Cette fonction permet de lancer n'importe qu'elle appli, windows sera retrouver son le bon soft

ds ta macro tu ecris:
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
Public Const
SW_SHOWNORMAL = 1

et voila comment ca marche!;
fName = "Index.html" 'Ou le nom du fichier que vous voulez ouvrir
RetVal = ShellExecute(hwnd, "Open", fName, ByVal 0&, 0&, SW_Normal)
Répondre à mennix
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger AxCrypt 1.6.4.4AxCrypt - AxCrypt est un logiciel de chiffrement (encryption) permettant de protéger par mot de passe des fichiers ou des dossiers...Catégorie: Chiffrement
Licence: Open Source
Télécharger Extracteur d'icônes 3.1.0.9Extracteur d'icônes - Le programme Extracteur d'Icônes permet de visualiser les fichiers icônes (ICO) du dossier de votre choix, mais aussi de...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger ZipRepar 1.25ZipRepar - Qui n'est jamais tombé sur une archive zip corrompue. ZipRepar permet de réparer la plupart des archives Zip corrompues ou...Catégorie: Compression/Décompression
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Lancer un fichier non exe en vba excel. »