séverine
|
slt, je peux peut etre t'aider pour ta partie 1 et les fichiers txt.
voici le programme suivant du module:
Option Explicit
Public nomfic As String
Public Sub Choixfichier()
Dim fs As Variant
Dim I As Integer 'Compteur
'Objet de la recherche
Set fs = application.FileSearch
With fs
'Chemin où se trouve les fichiers
.LookIn = "C:\xxx"
'Type des fichiers à ouvrir essai de mettre .doc
.FileName = "*.txt"
'Recherche des fichiers qui seront classés par ordre alphabétique
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For I = 1 To .FoundFiles.Count
Choix.Listtxt.AddItem .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier trouvé."
End If
End With
'Affichage du formulaire où apparaîtront le nom des fichiers trouvés
Choix.Show
'l'élément servant de délimiteur
Workbooks.OpenText FileName:=nomfic, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|" ', FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), _
Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1))
mets aussi en place un userform nommé choix contenant un listbox nommée listtxt ci-dessus.met un bouton OK dont le prog est le suivant:
Private Sub cmdOK_Click()
'Affiche le fichier sélectionné en extension .xls ou affiche un message
'd'erreur
If Listtxt.ListIndex >= 0 Then
nomfic = Listtxt.List(Listtxt.ListIndex)
Unload Choix
Else
MsgBox ("Il n'y a aucun fichier à importer.Sélectionner un fichier ou cliquer sur Annuler")
nomfic = ""
End If
End Sub
j'espere que j'aurais pu t'aider.
ciao
-------------------------------
Réponse au message :
-------------------------------
salut tout le monde
mon pronleme et le suivant
part1:
comment je peux lire le contenu d'un fichier qlq
(par exemple un .doc) avec le vb.
part2:
comment je peux gnerer un fichier xml à partir du contenu de se fichier
|