Se connecter / S'enregistrer
Votre question

comment utiliser moulinette

Tags :
  • VBA
  • Microsoft Excel
  • Programmation
Dernière réponse : dans Programmation
16 Mai 2012 23:22:35

Bonsoir,
j'ai un code
  1. Private Function Chemin(ByVal sFichier As String) As String
  2. Dim i As Integer
  3. Dim sChemin As String
  4. sChemin = ""
  5. If Dir$(sFichier) = "" Then Exit Function
  6. For i = 0 To UBound(Split(sFichier, "\")) - 1
  7. sChemin = sChemin & Split(sFichier, "\")(i) & "\"
  8. Next i
  9. Chemin = sChemin
  10. End Function
  11.  
  12.  
  13. Private Sub Correction(ByVal sNomFichier As String)
  14. Dim sIn As String
  15. Dim sOut As String
  16. Dim iNumFichier1 As Integer, iNumFichier2 As Integer
  17. Dim sNomFichier2 As String, sCheminFichier As String
  18.  
  19. Close
  20.  
  21. sCheminFichier = Chemin(sNomFichier)
  22. sNomFichier2 = sCheminFichier & "Corr_" & NomDuFichier(sNomFichier)
  23.  
  24. iNumFichier1 = FreeFile
  25. Open sNomFichier For Input As #iNumFichier1
  26. iNumFichier2 = FreeFile
  27. Open sNomFichier2 For Output As #iNumFichier2
  28. Do While Not EOF(iNumFichier1)
  29. Line Input #iNumFichier1, sIn
  30. Select Case Mid$(sIn, 8, 4)
  31. Case "0400"
  32. sOut = Left$(sIn, 32) & "07" & Mid$(sIn, 35)
  33. Print #iNumFichier2, sOut
  34. Case "6800"
  35. sOut = Left$(sIn, 32) & "62" & Mid$(sIn, 35)
  36. Print #iNumFichier2, sOut
  37. Case "3800"
  38. sOut = Left$(sIn, 32) & "40" & Mid$(sIn, 35)
  39. Print #iNumFichier2, sOut
  40. Case Else
  41. Print #iNumFichier2, sIn
  42. End Select
  43. Loop
  44. Close #iNumFichier2
  45. Close #iNumFichier1
  46. End Sub
  47.  
  48. Private Function NomDuFichier(ByVal sFichier As String) As String
  49. With CreateObject("Scripting.FileSystemObject")
  50. On Error Resume Next
  51. NomDuFichier = .GetFileName(sFichier)
  52. On Error GoTo 0
  53. End With
  54. End Function
  55.  
  56. Sub SelectionTXT()
  57. Dim Fichier As Variant
  58. Dim i As Long
  59.  
  60. Fichier = Application.GetOpenFilename("Fichier TXT (*.txt), *.txt", , "Sélectionner un ou plusieurs fichier(s)", , True)
  61. If TypeName(Fichier) = "Boolean" Then Exit Sub
  62.  
  63. For i = 1 To UBound(Fichier)
  64. Correction Fichier(i)
  65. Next i
  66. End Sub

qui exécute sur macro Excel mais je veux faire une interface contient un bouton qui lance automatiquement ce code la
Merci d'avance ;) 

Autres pages sur : utiliser moulinette

a c 232 L Programmation
17 Mai 2012 09:53:32

Salut,

Bah tu ajoutes un bouton sur ta feuille Excel, et tu lui dis d'exécuter ta macro quand tu cliques dessus.
m
0
l
a b L Programmation
17 Mai 2012 12:58:56

On voit bien la différence entre la qualité du code et le niveau de la question. :D 
(un code qui, d'ailleurs, n'est pas fait pour Excel).

C'est bien d'avoir posté ce code, ça montre la simplicité du python :p 
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS