La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour
fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer
Dim Chemin As String
Dim Fichier As Variant
Chemin = "C:\Program Files\TMI Software\ValiVacq 4.3.2\"
Do
Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2)
If TypeName(Fichier) = "Boolean" Then
MsgBox "opération annulée."
Exit Sub
End If
Loop Until Len(CStr(Trim(Fichier))) = 4
Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then
MsgBox "Fichier inexistant."
Exit Sub
Else
Workbooks.OpenText Chemin & Fichier
End If
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
Daniel.C
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
Bonjour.
Si j'ai bien compris :
Activeworkbook.close
Cordialement.
Daniel
"inès" <ins@discussions.microsoft.com> a écrit dans le message de news:
D0B98377-B024-461D-98C3-6F9183A8BBBC@microsoft.com...
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire
pour
fermer se fichier automatiquement une fois que les données ont été
récoltées.
mille merci
Inès
Dim NbChar As Integer
Dim Chemin As String
Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2"
Do
Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2)
If TypeName(Fichier) = "Boolean" Then
MsgBox "opération annulée."
Exit Sub
End If
Loop Until Len(CStr(Trim(Fichier))) = 4
Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then
MsgBox "Fichier inexistant."
Exit Sub
Else
Workbooks.OpenText Chemin & Fichier
End If
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
inès
Bonjour Daniel.C
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier text. quand j'utilise la syntax Activeworkbook.close, la feuille excel (feuille1) se ferme mais pas l'application que la macro a ouvert. j'aimerai seulement fermer l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
Bonjour Daniel.C
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier text.
quand j'utilise la syntax Activeworkbook.close, la feuille excel (feuille1)
se ferme
mais pas l'application que la macro a ouvert. j'aimerai seulement fermer
l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour.
Si j'ai bien compris :
Activeworkbook.close
Cordialement.
Daniel
"inès" <ins@discussions.microsoft.com> a écrit dans le message de news:
D0B98377-B024-461D-98C3-6F9183A8BBBC@microsoft.com...
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire
pour
fermer se fichier automatiquement une fois que les données ont été
récoltées.
mille merci
Inès
Dim NbChar As Integer
Dim Chemin As String
Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2"
Do
Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2)
If TypeName(Fichier) = "Boolean" Then
MsgBox "opération annulée."
Exit Sub
End If
Loop Until Len(CStr(Trim(Fichier))) = 4
Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then
MsgBox "Fichier inexistant."
Exit Sub
Else
Workbooks.OpenText Chemin & Fichier
End If
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier text. quand j'utilise la syntax Activeworkbook.close, la feuille excel (feuille1) se ferme mais pas l'application que la macro a ouvert. j'aimerai seulement fermer l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
Daniel.C
Thisworkbook.close Daniel "inès" a écrit dans le message de news:
Bonjour Daniel.C
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier text. quand j'utilise la syntax Activeworkbook.close, la feuille excel (feuille1) se ferme mais pas l'application que la macro a ouvert. j'aimerai seulement fermer l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
Thisworkbook.close
Daniel
"inès" <ins@discussions.microsoft.com> a écrit dans le message de news:
9BDDE715-B0DC-4751-99C0-5433B4AAC5CA@microsoft.com...
Bonjour Daniel.C
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier
text.
quand j'utilise la syntax Activeworkbook.close, la feuille excel
(feuille1)
se ferme
mais pas l'application que la macro a ouvert. j'aimerai seulement fermer
l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour.
Si j'ai bien compris :
Activeworkbook.close
Cordialement.
Daniel
"inès" <ins@discussions.microsoft.com> a écrit dans le message de news:
D0B98377-B024-461D-98C3-6F9183A8BBBC@microsoft.com...
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire
pour
fermer se fichier automatiquement une fois que les données ont été
récoltées.
mille merci
Inès
Dim NbChar As Integer
Dim Chemin As String
Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2"
Do
Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2)
If TypeName(Fichier) = "Boolean" Then
MsgBox "opération annulée."
Exit Sub
End If
Loop Until Len(CStr(Trim(Fichier))) = 4
Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then
MsgBox "Fichier inexistant."
Exit Sub
Else
Workbooks.OpenText Chemin & Fichier
End If
Thisworkbook.close Daniel "inès" a écrit dans le message de news:
Bonjour Daniel.C
J'ai une feuille excel (Feuille1) ouverte et la macro m'ouvre un fichier text. quand j'utilise la syntax Activeworkbook.close, la feuille excel (feuille1) se ferme mais pas l'application que la macro a ouvert. j'aimerai seulement fermer l'application.
j'espère que mes explications sont maintenant plus claire.
Louis
Bonjour. Si j'ai bien compris : Activeworkbook.close Cordialement. Daniel "inès" a écrit dans le message de news:
Bonjour
La macro ci-dessous me permet d'ouvrire un fichier texte. Comment faire pour fermer se fichier automatiquement une fois que les données ont été récoltées.
mille merci
Inès
Dim NbChar As Integer Dim Chemin As String Dim Fichier As Variant
Chemin = "C:Program FilesTMI SoftwareValiVacq 4.3.2" Do Fichier = Application.InputBox(Prompt:="dernier 4 chiffres", Type:=2) If TypeName(Fichier) = "Boolean" Then MsgBox "opération annulée." Exit Sub End If Loop Until Len(CStr(Trim(Fichier))) = 4 Fichier = "*" & Fichier & "*.txt"
If Dir(Chemin & Fichier) = "" Then MsgBox "Fichier inexistant." Exit Sub Else Workbooks.OpenText Chemin & Fichier End If
