alexou4281
XLDnaute Nouveau
bonjour
Je voudrai apres avoir demander à l'utilisateur d'ouvrir des fichiers.txt que ces fichiers ouvrent à la suite dans un meme classeur sur 3 onglets (si 3 fichiers sont ouverts)..Avec ce prog, il y a 3 classeurs qui s'ouvrent.
Je demarre dans la prog vba alors j'ai commencé un code mais pas joli joli.
si vous avez des suggestions? je pense faire une boucle DO pour enlver les 2 repetitions mais je sais pas comment la formuler..
Merci de votre aide
Sub conversionetouverture()
On Error Resume Next
'Déclaration des variables
Dim reponse As Integer
'Ouverture du fichier, et conversion en classeur excel,
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
reponse = InputBox("VOulez vous ouvrir un autre fichier:", vbYesNo)
If reponse = vbNo Then Exit Sub
Sheets(Worksheets.Count).Copy After:=Sheets(Worksheets.Count)
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
reponse = InputBox("VOulez vous ouvrir un autre fichier:", vbYesNo)
If reponse = vbNo Then Exit Sub
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Je voudrai apres avoir demander à l'utilisateur d'ouvrir des fichiers.txt que ces fichiers ouvrent à la suite dans un meme classeur sur 3 onglets (si 3 fichiers sont ouverts)..Avec ce prog, il y a 3 classeurs qui s'ouvrent.
Je demarre dans la prog vba alors j'ai commencé un code mais pas joli joli.
si vous avez des suggestions? je pense faire une boucle DO pour enlver les 2 repetitions mais je sais pas comment la formuler..
Merci de votre aide
Sub conversionetouverture()
On Error Resume Next
'Déclaration des variables
Dim reponse As Integer
'Ouverture du fichier, et conversion en classeur excel,
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
reponse = InputBox("VOulez vous ouvrir un autre fichier:", vbYesNo)
If reponse = vbNo Then Exit Sub
Sheets(Worksheets.Count).Copy After:=Sheets(Worksheets.Count)
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
reponse = InputBox("VOulez vous ouvrir un autre fichier:", vbYesNo)
If reponse = vbNo Then Exit Sub
fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt", , "Choisir un fichier *.txt")
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, _
StartRow:=95, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub