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

pat90

XLDnaute Nouveau
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
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Bonsoir pat90,
Voici déja un bon début de code
Bruno
VB:
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)

XLDnaute Barbatruc
Petite modif
Le on error était pas pris en compte
Bruno
VB:
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
 
Ce message a été identifié comme étant une solution!

pat90

XLDnaute Nouveau
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

XLDnaute Nouveau
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)

XLDnaute Barbatruc
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)

XLDnaute Barbatruc
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

XLDnaute Nouveau
Re bonjour Bruno,
Par ce petit message ,avec un peux de retard :oops: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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas