[VBA Excel] Importer ldif dans excel

Importer ldif dans excel [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 24-07-2009 à 16:45:58    

Bonjour,
 
Comme je trouvais pas sur le net, j'ai fait un petit script d'importation d'un ldif vers excel.
Je suis pas un pro du format ldif donc il se peut que j'ai pris quelques libertés dans la retranscription.
 
Commentaires constructifs bienvenus, mais pour l'instant ça à l'air de tourner correctement.
 

Code :
  1. Option Explicit
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. ' ImportTextFile
  4. ' This imports a text file into Excel.
  5. ' From http://www.cpearson.com/excel/ImpText.aspx
  6. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  7. Public Sub ImportTextFile(FName As String)
  9. Dim RowNdx As Long
  10. Dim WholeLine As String
  11. Dim Pos As Integer
  13. Dim entete(255) As String
  14. Dim taille As Integer
  15. taille = 0
  17. Dim i As Integer
  18. Dim trouve As Integer
  19. Dim a, b As String
  21. RowNdx = 2
  23. Application.ScreenUpdating = False
  24. On Error GoTo EndMacro:
  26. Open FName For Input Access Read As #1
  28. While Not EOF(1)
  29.     Line Input #1, WholeLine
  30.     While Not WholeLine = ""
  31.         Line Input #1, WholeLine
  32.         If Left(WholeLine, 1) = " " Then
  33.             Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & Right(WholeLine, Len(WholeLine) - 1)
  34.         Else
  35.             Pos = InStr(WholeLine, ":: " )
  36.             If Pos = 0 Then Pos = InStr(WholeLine, ": " )
  37.             If Not Pos = 0 Then
  38.                 a = Left(WholeLine, Pos - 1)
  39.                 b = Right(WholeLine, Len(WholeLine) - (Pos + 1))
  40.                 trouve = 0
  41.                 For i = 1 To taille
  42.                     If entete(i) = a Then trouve = i
  43.                 Next
  44.                 If trouve = 0 Then
  45.                     entete(taille + 1) = a
  46.                     trouve = taille + 1
  47.                     taille = taille + 1
  48.                     Cells(RowNdx, trouve).Value = b
  49.                     Cells(1, trouve).Value = a
  50.                 Else
  51.                     If Cells(RowNdx, trouve).Value = "" Then
  52.                         Cells(RowNdx, trouve).Value = b
  53.                     Else
  54.                         Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & "|" & b
  55.                     End If
  56.                 End If
  57.             End If
  58.         End If
  59.     Wend
  60.     RowNdx = RowNdx + 1
  61. Wend
  63. EndMacro:
  64. On Error GoTo 0
  65. Application.ScreenUpdating = True
  66. Close #1
  67. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  68. ' END ImportTextFile
  69. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  70. End Sub
  72. Sub DoTheImport()
  73. ImportTextFile FName:="c:\ldif.txt"
  74. End Sub

Message cité 1 fois
Message édité par The_chosen_one le 24-07-2009 à 16:46:50
Reply

Marsh Posté le 24-07-2009 à 16:45:58   

Reply

Marsh Posté le 06-01-2011 à 11:45:54    

Ce script semble répondre exactement a mon besoin;
Coomment faire pour le mettre en oeuvre? (jer n'y connais rien en "script" )
Je suppose que je commence par copier ton text dans un document word?
dois-je changer l'extention en .exe?
dois je remplacer la ligne http://www.cpearson.....
par l'adresse de mon fichier .ldif que je souhaite importe dans Excell?
 
Merci d'avance pour ton aide!
 
Laederich@laposte.net
 

The_chosen_one a écrit :

Bonjour,
 
Comme je trouvais pas sur le net, j'ai fait un petit script d'importation d'un ldif vers excel.
Je suis pas un pro du format ldif donc il se peut que j'ai pris quelques libertés dans la retranscription.
 
Commentaires constructifs bienvenus, mais pour l'instant ça à l'air de tourner correctement.
 

Code :
  1. Option Explicit
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. ' ImportTextFile
  4. ' This imports a text file into Excel.
  5. ' From    1. Option Explicit
  6.    2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  7.    3. ' ImportTextFile
  8.    4. ' This imports a text file into Excel.
  9.    5. ' From http://www.cpearson.com/excel/ImpText.aspx
  10.    6. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  11.    7. Public Sub ImportTextFile(FName As String)
  12.    8.
  13.    9. Dim RowNdx As Long
  14.   10. Dim WholeLine As String
  15.   11. Dim Pos As Integer
  16.   12.
  17.   13. Dim entete(255) As String
  18.   14. Dim taille As Integer
  19.   15. taille = 0
  20.   16.
  21.   17. Dim i As Integer
  22.   18. Dim trouve As Integer
  23.   19. Dim a, b As String
  24.   20.
  25.   21. RowNdx = 2
  26.   22.
  27.   23. Application.ScreenUpdating = False
  28.   24. On Error GoTo EndMacro:
  29.   25.
  30.   26. Open FName For Input Access Read As #1
  31.   27.
  32.   28. While Not EOF(1)
  33.   29.     Line Input #1, WholeLine
  34.   30.     While Not WholeLine = ""
  35.   31.         Line Input #1, WholeLine
  36.   32.         If Left(WholeLine, 1) = " " Then
  37.   33.             Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & Right(WholeLine, Len(WholeLine) - 1)
  38.   34.         Else
  39.   35.             Pos = InStr(WholeLine, ":: " )
  40.   36.             If Pos = 0 Then Pos = InStr(WholeLine, ": " )
  41.   37.             If Not Pos = 0 Then
  42.   38.                 a = Left(WholeLine, Pos - 1)
  43.   39.                 b = Right(WholeLine, Len(WholeLine) - (Pos + 1))
  44.   40.                 trouve = 0
  45.   41.                 For i = 1 To taille
  46.   42.                     If entete(i) = a Then trouve = i
  47.   43.                 Next
  48.   44.                 If trouve = 0 Then
  49.   45.                     entete(taille + 1) = a
  50.   46.                     trouve = taille + 1
  51.   47.                     taille = taille + 1
  52.   48.                     Cells(RowNdx, trouve).Value = b
  53.   49.                     Cells(1, trouve).Value = a
  54.   50.                 Else
  55.   51.                     If Cells(RowNdx, trouve).Value = "" Then
  56.   52.                         Cells(RowNdx, trouve).Value = b
  57.   53.                     Else
  58.   54.                         Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & "|" & b
  59.   55.                     End If
  60.   56.                 End If
  61.   57.             End If
  62.   58.         End If
  63.   59.     Wend
  64.   60.     RowNdx = RowNdx + 1
  65.   61. Wend
  66.   62.
  67.   63. EndMacro:
  68.   64. On Error GoTo 0
  69.   65. Application.ScreenUpdating = True
  70.   66. Close #1
  71.   67. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  72.   68. ' END ImportTextFile
  73.   69. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  74.   70. End Sub
  75.   71.
  76.   72. Sub DoTheImport()
  77.   73. ImportTextFile FName:="c:\ldif.txt"
  78.   74. End Sub
  79. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  80. Public Sub ImportTextFile(FName As String)
  82. Dim RowNdx As Long
  83. Dim WholeLine As String
  84. Dim Pos As Integer
  86. Dim entete(255) As String
  87. Dim taille As Integer
  88. taille = 0
  90. Dim i As Integer
  91. Dim trouve As Integer
  92. Dim a, b As String
  94. RowNdx = 2
  96. Application.ScreenUpdating = False
  97. On Error GoTo EndMacro:
  99. Open FName For Input Access Read As #1
  101. While Not EOF(1)
  102.     Line Input #1, WholeLine
  103.     While Not WholeLine = ""
  104.         Line Input #1, WholeLine
  105.         If Left(WholeLine, 1) = " " Then
  106.             Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & Right(WholeLine, Len(WholeLine) - 1)
  107.         Else
  108.             Pos = InStr(WholeLine, ":: " )
  109.             If Pos = 0 Then Pos = InStr(WholeLine, ": " )
  110.             If Not Pos = 0 Then
  111.                 a = Left(WholeLine, Pos - 1)
  112.                 b = Right(WholeLine, Len(WholeLine) - (Pos + 1))
  113.                 trouve = 0
  114.                 For i = 1 To taille
  115.                     If entete(i) = a Then trouve = i
  116.                 Next
  117.                 If trouve = 0 Then
  118.                     entete(taille + 1) = a
  119.                     trouve = taille + 1
  120.                     taille = taille + 1
  121.                     Cells(RowNdx, trouve).Value = b
  122.                     Cells(1, trouve).Value = a
  123.                 Else
  124.                     If Cells(RowNdx, trouve).Value = "" Then
  125.                         Cells(RowNdx, trouve).Value = b
  126.                     Else
  127.                         Cells(RowNdx, trouve).Value = Cells(RowNdx, trouve).Value & "|" & b
  128.                     End If
  129.                 End If
  130.             End If
  131.         End If
  132.     Wend
  133.     RowNdx = RowNdx + 1
  134. Wend
  136. EndMacro:
  137. On Error GoTo 0
  138. Application.ScreenUpdating = True
  139. Close #1
  140. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  141. ' END ImportTextFile
  142. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  143. End Sub
  145. Sub DoTheImport()
  146. ImportTextFile FName:="c:\ldif.txt"
  147. End Sub




---------------
laederich@laposte.net
Reply

Marsh Posté le 06-01-2011 à 12:37:20    

Non, il ne faut pas copier ce programme dans Word. Il faut copier ce programme dans un module VBA de Excel.
 
L'accès à un module VBA se fait de plusieurs manières.
Personnellement, je vais du côté du VBA par Alt F11, et je clique dans la fenêtre du projet sur "Modules", pour voir s'afficher l'éditeur de texte des macros pour un module. Ensuite faire un copier/coller.
 
Bref, c'est facile quand on a l'habitude, mais pas évident quand on débute.
Je vous conseillerais donc de vous initier au VBA d'Excel en premier lieu.
 
Bon courage !
 
N.B. Ce n'était pas la peine de citer le message précédent, et de réécrire les 147 lignes du programme dans votre question, puisque le programme est visible juste avant.

Message cité 2 fois
Message édité par olivthill le 06-01-2011 à 12:40:49
Reply

Marsh Posté le 06-01-2011 à 13:17:57    

olivthill a écrit :

Non, il ne faut pas copier ce programme dans Word. Il faut copier ce programme dans un module VBA de Excel.
 
L'accès à un module VBA se fait de plusieurs manières.
Personnellement, je vais du côté du VBA par Alt F11, et je clique dans la fenêtre du projet sur "Modules", pour voir s'afficher l'éditeur de texte des macros pour un module. Ensuite faire un copier/coller.
 
Bref, c'est facile quand on a l'habitude, mais pas évident quand on débute.
Je vous conseillerais donc de vous initier au VBA d'Excel en premier lieu.
 
Bon courage !
 
N.B. Ce n'était pas la peine de citer le message précédent, et de réécrire les 147 lignes du programme dans votre question, puisque le programme est visible juste avant.


Reply

Marsh Posté le 06-01-2011 à 13:21:43    

J'ai bien copie les 74 lignes de codes dans VBAProject/Modules/modul1
J'ai sauvegarde sous le nom book1.xlsm
Mais je n'arrive pas a faire tourner la macro?
J'ai essaye alt F5, mais il n'y a pas de macro presente..
 
 
 

olivthill a écrit :

Non, il ne faut pas copier ce programme dans Word. Il faut copier ce programme dans un module VBA de Excel.
 
L'accès à un module VBA se fait de plusieurs manières.
Personnellement, je vais du côté du VBA par Alt F11, et je clique dans la fenêtre du projet sur "Modules", pour voir s'afficher l'éditeur de texte des macros pour un module. Ensuite faire un copier/coller.
 
Bref, c'est facile quand on a l'habitude, mais pas évident quand on débute.
Je vous conseillerais donc de vous initier au VBA d'Excel en premier lieu.
 
Bon courage !
 
N.B. Ce n'était pas la peine de citer le message précédent, et de réécrire les 147 lignes du programme dans votre question, puisque le programme est visible juste avant.


Reply

Sujets relatifs:

Leave a Replay

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