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

  • Initiateur de la discussion Initiateur de la discussion pat90
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

Solution
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
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour