Bonsoir,
J'utilise ce code pour sélectionner un fichier texte dans un dossier, le
formater et copier les données dans un classeur.
Jusque là ça marche très bien.
Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le
nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte
Dim S$
S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
If Dir(S) = "" Then Exit Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
juqte après ton workbooks.opentext tu écris Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir, J'utilise ce code pour sélectionner un fichier texte dans un dossier, le formater et copier les données dans un classeur. Jusque là ça marche très bien. Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte Dim S$ S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") If Dir(S) = "" Then Exit Sub
'Traitement et copie des données dans un autre classeur (celui d'ou je lance la macro) 'Là je veux fermer le fichier Texte.
Merci pour votre aide Domi
Bonjour,
juqte après ton workbooks.opentext tu écris
Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris
wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir,
J'utilise ce code pour sélectionner un fichier texte dans un dossier, le
formater et copier les données dans un classeur.
Jusque là ça marche très bien.
Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le
nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte
Dim S$
S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
If Dir(S) = "" Then Exit Sub
juqte après ton workbooks.opentext tu écris Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir, J'utilise ce code pour sélectionner un fichier texte dans un dossier, le formater et copier les données dans un classeur. Jusque là ça marche très bien. Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte Dim S$ S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") If Dir(S) = "" Then Exit Sub
'Traitement et copie des données dans un autre classeur (celui d'ou je lance la macro) 'Là je veux fermer le fichier Texte.
Merci pour votre aide Domi
Domi
Simple et efficace à priori ;o) Merci beaucoup Domi
"anonymousA" a écrit dans le message de news:44622cd1$0$29208$
Bonjour,
juqte après ton workbooks.opentext tu écris Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir, J'utilise ce code pour sélectionner un fichier texte dans un dossier, le formater et copier les données dans un classeur. Jusque là ça marche très bien. Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le
nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte Dim S$ S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") If Dir(S) = "" Then Exit Sub
'Traitement et copie des données dans un autre classeur (celui d'ou je lance
la macro) 'Là je veux fermer le fichier Texte.
Merci pour votre aide Domi
Simple et efficace à priori ;o)
Merci beaucoup
Domi
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:44622cd1$0$29208$8fcfb975@news.wanadoo.fr...
Bonjour,
juqte après ton workbooks.opentext tu écris
Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris
wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir,
J'utilise ce code pour sélectionner un fichier texte dans un dossier, le
formater et copier les données dans un classeur.
Jusque là ça marche très bien.
Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car
le
nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte
Dim S$
S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
If Dir(S) = "" Then Exit Sub
Simple et efficace à priori ;o) Merci beaucoup Domi
"anonymousA" a écrit dans le message de news:44622cd1$0$29208$
Bonjour,
juqte après ton workbooks.opentext tu écris Set wbk = ActiveWorkbook
puis à la fin de tes instructions tu écris wbk.Close
Alors le fichier de texte importé que tu auras ouvert se fermera.
A+
Bonsoir, J'utilise ce code pour sélectionner un fichier texte dans un dossier, le formater et copier les données dans un classeur. Jusque là ça marche très bien. Je voudrais ensuite fermer ce fichier texte mais je n'y parviens pas car le
nom est variable (S) et toutes mes tentatives restent vaines...
'Selection et Importation du fichier Texte Dim S$ S = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") If Dir(S) = "" Then Exit Sub