Je ne parviens pas =E0 fermer un fichier ".txt" ouvert =E0 partir de vba.
J'aimerais ouvrir n'importe quel fichier texte =E0 partir de vba
r=E9cup=E9rer son nom une fois ouvert afin de le fermer apr=E8s avoir
appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider =E0
r=E9aliser cela.
Voici mon bout de macro.
Sub XXX()
variableclasseur =3D ActiveWorkbook.Name
variablefeuille =3D ActiveSheet.Name
bonjour il te suffit de nommer ton fichier au moment ou tu l'ouvres
FichierAOuvrir = Application.GetOpenFilename("Text Files (*.txt), *.txt") If FichierAOuvrir <> False Then MsgBox "Open " & FichierAOuvrir
ensuite tu le fermes en l'appelant par son petit nom FichierAOuvrir
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba. J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
bonjour il te suffit de nommer ton fichier au moment ou tu l'ouvres
FichierAOuvrir = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FichierAOuvrir <> False Then
MsgBox "Open " & FichierAOuvrir
ensuite tu le fermes en l'appelant par son petit nom FichierAOuvrir
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba.
J'aimerais ouvrir n'importe quel fichier texte à partir de vba
récupérer son nom une fois ouvert afin de le fermer après avoir
appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à
réaliser cela.
Voici mon bout de macro.
Sub XXX()
variableclasseur = ActiveWorkbook.Name
variablefeuille = ActiveSheet.Name
bonjour il te suffit de nommer ton fichier au moment ou tu l'ouvres
FichierAOuvrir = Application.GetOpenFilename("Text Files (*.txt), *.txt") If FichierAOuvrir <> False Then MsgBox "Open " & FichierAOuvrir
ensuite tu le fermes en l'appelant par son petit nom FichierAOuvrir
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba. J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
en plus je suis tellement à la masse que j'avais pas vu que tu as déjà Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt") ... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba. J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
en plus je suis tellement à la masse que j'avais pas vu que tu as déjà
Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt")
... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba.
J'aimerais ouvrir n'importe quel fichier texte à partir de vba
récupérer son nom une fois ouvert afin de le fermer après avoir
appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à
réaliser cela.
Voici mon bout de macro.
Sub XXX()
variableclasseur = ActiveWorkbook.Name
variablefeuille = ActiveSheet.Name
en plus je suis tellement à la masse que j'avais pas vu que tu as déjà Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt") ... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba. J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
en plus je suis tellement à la masse que j'avais pas vu que tu as déj à Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt") ... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba . J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
Merci.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Malheuresement cela ne marche pas à prioris Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt").... Lorsque je remplace ceci :
Windows("ST.txt").Activate
Par cela :
Windows(Fichier).Activate
On me renvoie le message suivant : "Erreur d'exécution 09 - L'indice n'appartient pas à la sélection"
Pourquoi ce message d'erreur ??? Parce que le nom du fichier est complet ? Habituellement on a TARTAMPION.txt alors que la variable Fichier renvoie le chemin complet, soit C:xxxTARTAMPION.txt Comment faire pour n'avoir que TARTAMPION.txt ?
Merci
On 12 juin, 19:57, Misange <misa...@monsite.net> wrote:
en plus je suis tellement à la masse que j'avais pas vu que tu as déj à
Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt")
... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba .
J'aimerais ouvrir n'importe quel fichier texte à partir de vba
récupérer son nom une fois ouvert afin de le fermer après avoir
appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à
réaliser cela.
Voici mon bout de macro.
Sub XXX()
variableclasseur = ActiveWorkbook.Name
variablefeuille = ActiveSheet.Name
Merci.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Malheuresement cela ne marche pas à prioris
Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt")....
Lorsque je remplace ceci :
Windows("ST.txt").Activate
Par cela :
Windows(Fichier).Activate
On me renvoie le message suivant :
"Erreur d'exécution 09 - L'indice n'appartient pas à la sélection"
Pourquoi ce message d'erreur ??? Parce que le nom du fichier est
complet ?
Habituellement on a TARTAMPION.txt alors que la variable Fichier
renvoie le chemin complet, soit C:xxxTARTAMPION.txt
Comment faire pour n'avoir que TARTAMPION.txt ?
en plus je suis tellement à la masse que j'avais pas vu que tu as déj à Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt") ... bon je rentre il est temps de lâcher l'écran !!!
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour,
Je ne parviens pas à fermer un fichier ".txt" ouvert à partir de vba . J'aimerais ouvrir n'importe quel fichier texte à partir de vba récupérer son nom une fois ouvert afin de le fermer après avoir appliquer le traitement voulu.
Quelqu'un a t'il un bout de macro dans ce genre ? Ou peut on m'aider à réaliser cela.
Voici mon bout de macro.
Sub XXX() variableclasseur = ActiveWorkbook.Name variablefeuille = ActiveSheet.Name
Merci.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Malheuresement cela ne marche pas à prioris Fichier = Application.GetOpenFilename("Text Files(*.txt), *.txt").... Lorsque je remplace ceci :
Windows("ST.txt").Activate
Par cela :
Windows(Fichier).Activate
On me renvoie le message suivant : "Erreur d'exécution 09 - L'indice n'appartient pas à la sélection"
Pourquoi ce message d'erreur ??? Parce que le nom du fichier est complet ? Habituellement on a TARTAMPION.txt alors que la variable Fichier renvoie le chemin complet, soit C:xxxTARTAMPION.txt Comment faire pour n'avoir que TARTAMPION.txt ?