probleme vbYesNo

probleme vbYesNo - VB/VBA/VBS - Programmation

Marsh Posté le 09-01-2008 à 16:05:35    

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

Reply

Marsh Posté le 09-01-2008 à 16:05:35   

Reply

Marsh Posté le 09-01-2008 à 16:07:45    

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


Message édité par Idoine le 09-01-2008 à 16:09:21
Reply

Marsh Posté le 09-01-2008 à 16:32:34    

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

Reply

Marsh Posté le 09-01-2008 à 16:39:48    

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?


Message édité par alexou4281 le 09-01-2008 à 17:01:58
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed