Ouvrir un fichier avec un programme particulier

**MarcVB6** · 04/01/2022, 15h15

Bonjour,

Mes fichiers .txt s'ouvrent par défaut avec Word.
Dans mon appli je voudrais pouvoir spécifiquement ouvrir un fichier .txt mais avec Notepad (sans changer le fait que Word reste le programme par défaut).
J'ai regardé un peu partout mais je n'ai rien trouvé pour cela. Je suis pourtant certain de l'avoir déjà lu quelque part ...
Merci par avance pour votre aide

**ProgElecT** · 04/01/2022, 19h20

Salut

Code :

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

Shell("C:\Windows\notepad.exe Lecteur/CheminDossier/NomDuFichier", vbNormalFocus)

Adapter le chemin ou est installé notepad ainsi que le chemin et nom du fichier à ouvrir.

**MarcVB6** · 04/01/2022, 20h42

Je savais que c'était possible.
Merci beaucoup Progelect (notre sauveur)

**MarcVB6** · 12/01/2022, 16h07

Bonjour,

Je vais me faire huer.
Mais comment retrouver le chemin où est installé notepad ?
Il doit bien y avoir une commande avec Shell mais laquelle ?
Merci

**ProgElecT** · 12/01/2022, 18h23

Salut

Nom : OuBLocNote.jpg
Affichages : 221
Taille : 267,6 Ko

**MarcVB6** · 12/01/2022, 18h54

Merci ProgElect,

Tu as raison de me taper sur la tête mais ce que je voudrais c'est obtenir l'emplacement de Notepad.exe par du code.
Car quand mon appli sera compilée en .exe on ne pourra plus 'définir manuellement' l'emplacement de Notepad.exe
Merci

**DAUDET78** · 17/01/2022, 12h24

Envoyé par MarcVB6

on ne pourra plus 'définir manuellement' l'emplacement de Notepad.exe
Merci

Tu peux mettre le chemin d'accès à NotePad.exe dans un fichier .INI ou dans la base de registre (chemin modifiable dans un menu de ton programme dans une rubrique "Préférence")

Mais, en général, c'est dans C:\Windows\notepad.exe . Vérifié pour W10 (32 et 64) , W7 et XP chez moi

Par exemple, dans le logiciel VideoPad (au zazzzard!), le choix est donné à l'utilisateur dans le sous-menu "Options" du menu "Préférence" pour spécifier un dossier pour stocker des fichiers temporaires

Nom : _Option.JPG
Affichages : 211
Taille : 49,9 Ko

Nom : _Option.JPG
Affichages : 211
Taille : 49,9 Ko

PS : tu as aussi la possibilité de copier le fichier Notepad.exe d'origine et de le mettre dans le répertoire que tu veux lors de l'installation de ton logiciel sur une nouvelle machine

**MarcVB6** · 17/01/2022, 15h29

Merci,
Oui j'ai regardé dans XP et 10 et il est toujours au même endroit : C:\Windows\notepad.exe
Le problème est si je donne mon EXE à une tierce personne.
Je peux savoir facilement si notepad est toujours à cet endroit.
Mais s"il n'y est pas ... Où peut-il être ?
Evidemment le problème ne peut arriver que si la personne a déplacé notepad.
Je pense qu'il doit bien exister une fonction toute simple qui permet de retrouver l'endroit de cet EXE comme de n'importe quel autre EXE d'ailleurs.
Quand on double clic sur un fichier (exemple un JPG), il s'ouvre avec son appli .EXE associée ; Windows sait donc où se trouve cet EXE.

J'ai cherché dans la base de registre où les chemins des EXE seraient inscrits. Mais je n'ai rien trouvé.
J'ai trouvé des trucs sur Internet mais ce sont de vraies usines à gaz.
Je pense que le plus simple est que si je vois que notepad n'est plus à cet endroit ( C:\Windows), j'affiche un message en demandant à la personne de déplacer notepad à cet endroit.
C'est très culcul.

**DAUDET78** · 17/01/2022, 15h59

Envoyé par MarcVB6

Mais s"il n'y est pas ... Où peut-il être ?

Tu te compliques la vie pour rien .... Si tu veux dormir tranquille, tu copies NotePad.exe et tu le mets dans le répertoire où se trouve l'EXE de ton programme lors de l'installation de ton programme (avec les DLL , OCX dont ton programme a besoin)

Evidemment le problème ne peut arriver que si la personne a déplacé notepad.

Personne ne fait ça et il faut avoir les droits d'Administrateur

Je pense que le plus simple est que si je vois que notepad n'est plus à cet endroit ( C:\Windows), j'affiche un message en demandant à la personne de déplacer notepad à cet endroit.

Il faut avoir les droits d'Administrateur

**MarcVB6** · 17/01/2022, 18h10

Oui tu as raison
D'autant que je viens d'essayer la manip suivante : J'ai déplacé notepad.exe sur mon disque D: et je l'ai supprimé dans C:\Windows\
Et bien lorsque j'ouvre un fichier TXT, notepad s'ouvre !! Incroyable non ?
Je suis allé voir dans D: et notepad.exe y est bien et chose curieuse il est revenu tout seul dans C:\Windows\
Une histoire de fou.

J'aurais une question subsidiaire.
J'ai utilisé l'astuce de ProgElct:

Code :

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

Shell("C:\Windows\notepad.exe Lecteur/CheminDossier/NomDuFichier", vbNormalFocus)

Ça ne fonctionne qu'avec:

Code :

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

1
2
Dim Retour
Retour = Shell("C:\Windows\notepad.exe Lecteur/CheminDossier/NomDuFichier", vbNormalFocus)

Mais j'aurais besoin de passer tout cela dans 2 Strings:

Code :

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

1
2
3
Dim Programme as string: Dim Fichier as string
Programme = "C:\Windows\notepad.exe"
Fichier = "D:\MonFichier.txt"

Ensuite je fais:

Code :

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

Retour = Shell(Programme  Fichier , vbNormalFocus)

J'ai un retour d'erreur :

Compile error / Expected list separator or)

J'ai essayé différentes possibilités mais rien n'y fait.
Où est mon erreur ?
Merci d'avance

**DAUDET78** · 17/01/2022, 18h21

Envoyé par MarcVB6

D'autant que je viens d'essayer la manip suivante : J'ai déplacé notepad.exe sur mon disque D: et je l'ai supprimé dans C:\Windows\
Et bien lorsque j'ouvre un fichier TXT, notepad s'ouvre !! Incroyable non ?
Je suis allé voir dans D: et notepad.exe y est bien et chose curieuse il est revenu tout seul dans C:\Windows\
Une histoire de fou.

le fou, c'est toi de retirer un programme Windows !

Ensuite je fais:
Retour = Shell(Programme Fichier , vbNormalFocus)

Et tu penses qu'en mettant deux variables chaines en suivant , elles se concatènent ???

Code :

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

Retour = Shell(Programme & Fichier , vbNormalFocus)

**MarcVB6** · 17/01/2022, 18h48

Je l'avais déplacé dans D:, il était facile à retrouver et à redéplacer dans c:\Windows.
J'avais bien essayé cela dans mes recherches car ça me semblait logique :

Code :

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

Retour = Shell(Programme & Fichier , vbNormalFocus)

mais là j'avais un message d'erreur:

Run-time error '5' Invalid procedure call or arguiment

**DAUDET78** · 17/01/2022, 18h53

Envoyé par MarcVB6

Je l'avais déplacé dans D:, il était facile à retrouver et à redéplacer dans c:\Windows.

On ne touche pas à ce qui est dans C:\windows

Retour = Shell(Programme & Fichier , vbNormalFocus) mais là j'avais un message d'erreur: Run-time error '5' Invalid procedure call or arguiment

avec le Programme & Fichier

**MarcVB6** · 17/01/2022, 19h15

Oui c'est bien ce que j'ai écrit :

Code :

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

Retour = Shell(Programme & Fichier , vbNormalFocus)

**DAUDET78** · 17/01/2022, 19h19

Programme et Fichier sont bien déclarés comme String ?

**MarcVB6** · 17/01/2022, 19h52

Oui c'est bien ce que j'avais écrit dans un précédent post:

Code :

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

1
2
3
Dim Programme as string: Dim Fichier as string
Programme = "C:\Windows\notepad.exe"
Fichier = "D:\MonFichier.txt"

**DAUDET78** · 17/01/2022, 20h14

Teste ça :

Code :

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

1
2
3
4
Dim Programme as string: Dim Fichier as string
Programme = "C:\Windows\notepad.exe"
Fichier = """D:\MonFichier.txt"""
Retour = Shell(Programme & " " & Fichier)

**ProgElecT** · 17/01/2022, 20h48

Salut

Le doublage des " est important quand le chemin comporte un/des espaces, mais là c'est surtout l'espace à mettre entre les 2 paramètres de la commande Shell.

DAUDET78

pour Retour = Shell(Programme & " " & Fichier)