Discussion :

[patmicro]

Bonjour à tous les lecteurs: J'aimerais si possible ouvrir un fichier texte automatiquement lors de l'ouverture d'un fichier Excel. Ce fichier texte doit venir par dessus la feuille Excel lors de son ouverture et non pas rester dans la barre de taches comme dans la macro ci-dessous.
J'ai déjà un code, mais celui ci ne correspond pas à mes attentes car je dois spécifier le nom du fichier.
Je voudrais lui attribuer un chemin définis du type (D\ Budget \ "Le nom de mon fichier texte") D étant le disque sur lequel est enregistré mon fichier.
Pour parfaire le tout, le fichier texte doit s'enregistrer automatiquement à la fermeture d'Excel
Par avance merci pour votre aide.

voici le code qui ne me conviens pas.

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
opendial = Application.GetOpenFilename(FileFilter:="texte (*.txt), .txt", _
 FilterIndex:=0, Title:="S?lectionner le fichier texte ? ouvrir...", MultiSelect:=False)
Shell "notepad.exe " & opendial, vbMinimizedFocus
End Sub

Voici le résultat à obtenir

[Menhir]

non pas rester dans la barre de taches comme dans la macro ci-dessous.

As-tu essayé de simplement supprimer le vbMinimizedFocus ?

Je voudrais lui attribuer un chemin définis du type (D\ Budget \ "Le nom de mon fichier texte") D étant le disque sur lequel est enregistré mon fichier.

A priori, il suffit de changer la ligne du opendial = par opendial = "D:\Budget\Monfichier.txt" en remplaçant MonFichier par le nom de ton fichier.

[patmicro]

Bonjour Menhir : Merci de ta participation. Est-il possible de faire afficher le bloc notes ainsi ouvert en focus sur la feuille Excel en mode minimisé, plutôt que de s'ouvrir et de rester sur la barre de taches ? comme le montre la photo ci-dessus.