Problème macro export données xls vers csv

Bonjour à tous,

Lecteur du forum d'Excel-pratique depuis plusieurs années, je "saute le pas" afin de vous solliciter sur un problème de code VBA.

Je suis novice en la matière et m'inspire beaucoup de vos contributions sur le forum.

Dans le cadre professionnel, j'utilise un tableau recensant les heures supplémentaires réalisées par des salariés (par code agent). Aussi, ces heures supplémentaires sont catégorisées par rubriques de paie.

Je souhaiterais pouvoir exporter en CSV, par rubrique de paie et par code agent, le nombre d'heures réalisées, afin de pouvoir l'importer dans un logiciel spécifique.

Ex :

Rub Mois TypSit CodAgt Heures

400 201507 P 3459 42.5

403 201507 P 1409 85

404 201507 P 918 102

406 201507 P 1236 153

J'ai utilisé plusieurs codes trouvés sur le forum, mais je n'arrive pas à réaliser l'exportation comme souhaité. J en'arrive pas à extraire les données et à les filtrer.

Sub Export()
Dim Tablo, iR%, i%, Tmp$, Sep$
With Sheets("JUIN 2015")

    Sep = ";"
    iR = .Range("D65500").End(xlUp).Row
   Tablo = .Range("A1:Z" & iR)
   Open "C:\CiviTemp\Exportheuresupp.csv" For Output As #1
    For i = 1 To iR
      If Tablo(i, 25) <> "" Then
    Tmp = ""
      For k = 1 To 25
      Tmp = Tmp & CStr(Tablo(i, k)) & Sep
      Next
      End If
    Print #1, Tmp
    Next
    DoEvents
    MsgBox "Exportation terminée !"
    Close #1

End With

    ' Sauvegarde en Excel
   Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\CiviTemp\Exportheuresupp.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Savez-vous si cela est possible ?

Je vous remercie pour vos conseils et votre aide éventuelle.

Cordialement.

Bonjour,

Après une semaine de recherche et d'échanges, il me semble que ce filtre et cette extraction sont difficiles et réaliser sur Excel. Je vais essayé de me tourner vers Access.

Merci à tous ceux qui ont lu le message et tenté de résoudre le problème.

Cordialement.