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.