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

youky(BJ)

XLDnaute Barbatruc

• 23 Octobre 2020

• #2

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 23 Octobre 2020

• #3

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

 

Vote positif 0 Vote négatif

Solution

P

pat90

XLDnaute Nouveau

• 24 Octobre 2020

• #4

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

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 24 Octobre 2020

• #5

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Octobre 2020

• #6

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 24 Octobre 2020

• #8

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

 

Vote positif 0 Vote négatif