Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1169 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme vbYesNo

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

probleme vbYesNo

n°1668403
alexou4281
Posté le 09-01-2008 à 16:05:35  profilanswer
 

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

mood
Publicité
Posté le 09-01-2008 à 16:05:35  profilanswer
 

n°1668404
Idoine
Posté le 09-01-2008 à 16:07:45  profilanswer
 

: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
n°1668405
Wolfman
Lobo'tomizado
Posté le 09-01-2008 à 16:32:34  profilanswer
 

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

n°1668415
alexou4281
Posté le 09-01-2008 à 16:39:48  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme vbYesNo

 

Sujets relatifs
[C] Problème de boucle Whileprobleme URL Rewriting
[VBA-Access]Problème format dans une zone de texteproblème avec time.h
problème avec les std iterator[résolu]probleme de chaine vide non détectée
Borland probleme instalation[C] probleme de fichiers
Probleme de type incompatibleDébutant, petit probléme
Plus de sujets relatifs à : probleme vbYesNo


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR