Problème macro export données xls vers csv Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Aurel3276
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 8 juillet 2015
Version d'Excel : 2010 FR

Message par Aurel3276 » 8 juillet 2015, 14:02

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.
Exportheuresupp.xlsm
(56.3 Kio) Téléchargé 30 fois
Avatar du membre
Aurel3276
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 8 juillet 2015
Version d'Excel : 2010 FR

Message par Aurel3276 » 15 juillet 2015, 08:46

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message