XL 2013 Créer un fichier Text à partir d'un Commandbutton sur Userform

[pat90]

Bonjour,
J'ai crée un exemple, afin de pouvoir ouvrir un fichier *Text depuis mon CommandButton.Ce fichier *text devrait s'ouvrir à la demande, pouvoir évidement écrire, et le fermer "fichier, enregistrer sous".
Et je désirerais aussi simplement le fermer, après annotation par exemple, et pouvoir par la suite,meme après fermeture de tout ,retrouver les annotations.
Je suis débutant et en plus ,je n'ai rien trouvé à ce sujet dans notre forum...je suis un peux perdu.
Merci par avance si vous avez une idée.
Cordialement
Pat90

 

[youky(BJ)]

Bonsoir pat90,
Voici déja un bon début de code
Bruno

Private Sub CommandButton1_Click()
Dim myApplication As Object
 Set myApplication = CreateObject("Shell.Application")
   chemfich = ThisWorkbook.Path & "\mesjeux.txt"   'a adapter
   On Error Resume Next
   myApplication.Open (chemfich)
   Set myApplication = Nothing
   If Err > 0 Then MsgBox "Fichier non trouvé"
End Sub

 

[youky(BJ)]

Petite modif
Le on error était pas pris en compte
Bruno

Private Sub CommandButton1_Click()
Dim myApplication As Object
On Error GoTo MyErreur
Set myApplication = CreateObject("Shell.Application")
   chemfich = ThisWorkbook.Path & "\mesjeux1.txt"
   myApplication.Open (chemfich)
   Set myApplication = Nothing
Exit Sub
MyErreur:
Set myApplication = Nothing
MsgBox "Fichier TXT non trouvé!"
End Sub

 

[pat90]

Bonjour Bruno,
Merci tout d'abord pour votre réponse.
Par contre, est ce que de votre coté ,quand vous lancer,la feuille1 excel répond correctement??
D'autre part ,quand je clique sur "LA METHODE"...il ne passe rien

 

[pat90]

Bon,j'ai trouvé mon erreur....je n'avais pas bien renommé le fichier *text dans le répertoire(dossier).
Désolé pour ma fausse alerte.
Mais a l'ouverture du fichier,la feuille excel ne veux rien prendre en compte,que si je ferme l'userform

 

[youky(BJ)]

Bonjour Pat,
Cette ligne dans le code est à adapter
ThisWorkbook.Path indique que c'est le même dossier que votre fichier excel
mesjeux1.txt sera le nom du fichier txt à ouvrir
chemfich = ThisWorkbook.Path & "\mesjeux1.txt"
Bruno

 

[youky(BJ)]

Je remets le fichier.
Chez moi l'userform s'ouvre à l'ouverture du fichier ensuite si je click sur le bouton mon fichier txt apparait. Pensez à bien renommer soit le fichier soit dans le code.
Bruno

 

[pat90]

Re bonjour Bruno,
Par ce petit message ,avec un peux de retard je viens vous confirmer que c'est impeccable et que ca fonctionne très bien.....je vais donc verrouiller notre fil...en vous remerciant.
Cordialement.
Pat90