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

Remplace InputBox par MsgBox, ça va mieux marcher !  
Edit : et écris :
If reponse=vbNo then Exit Do

Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Wolfman

Merci Idoine...
Mais dis moi, je voudrai que les fichiers s'ouvrent sur une seul classeur dans les differents onglets situé en ba de chaque page.
Je fais comment pour faire ça?
et derniere chose, je voudrai que l'utilisateur donne un titre à chaque colonne en fonction des données presente mais attention car il ya des colonnes vides entre chaque colonne pleines .
 
colonne = MsgBox("Donnez un titre à chaque relevé  separée par une virgule. Exemple: acceleration,vitesse angulaire,... " )
 
Comment on fait ça?