Bonjour à tous.
Ça fait un moment que je cherche sans succes sur une erreur que j'ai dans une macro.
Je veux demander à l'utilisateur s'il veut ouvrir un fichier.txt dans une table excel et voir s'il veut en ouvrir d'autres.
Voila mon code:
Sub conversionetouverture()
On Error Resume Next
'Déclaration des variables
Dim reponse
'Ouverture du fichier, et conversion en classeur excel,
Do
reponse = InputBox("VOulez vous ouvrir un autre fichier:", vbYesNo)
If vbNo Then Exit Do
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
Loop
End Sub
Je lance la macro mais rien ne se passe. Pourquoi?
Merci de votre aide