Se connecter avec
S'enregistrer | Connectez-vous

Modifier macro excel --> Periods

Dernière réponse : dans Programmation

Bonjour,

J'utilise au travail une balance agée pour voir les échéances des factures dues, nous utilisons Microsoft GP pour la compta et la macro d'extraction ne donne que des données mensuelles ce qui n'ets pas très pratique alors je venais vers vous afin d'avoir une petite aide car les macros ne sont pas mon fort...

J'aurai voulu passé à 15 jours ou une periode hebdomadaire. Voir ameliorier cette macro un peu vieillissante...

Voici la macro:

Public Sub ResetConnect(qt As QueryTable)
qt.Connection = "ODBC;DSN=Dynamics GP Excel;Description=Data from GP sql system;UID=sa;PWD=Gr33nfl4g"

End Sub

Sub Refresh()
'
' Refresh Macro
' Macro recorded 19/02/2010 by uk-tech-mp
'
'Clears redundant items from dropdowns in PivotTable
Dim pt As PivotTable
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
'
Sheets("Data").Select
Range("A1").Select
ResetConnect Selection.QueryTable
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Summary (Aged Credit)").Select
Range("A8").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("B7").Select
Selection.Group Start:=Range("C1"), End:=Range("C2"), Periods:=Array(False, False, _
False, False, True, False, True)
End Sub


Merci d'avance pour votre aide

Autres pages sur : modifier macro excel periods

Lassé par la pub ? Créez un compte

Regarde la signature de Zeb (et plus précisément "Règlement de Programmation"), clic dessus, lit le bien, et modifie ta demande en respectant la règle. Ensuite il se fera un plaisir de te donner un coup de main :-)

Bonjour,

J'ai modifier ma demande après avoir lu le règlement, j'espère avoir fait la bonne chose... :hello: 

J'utilise au travail une balance agée pour voir les échéances des factures dues, nous utilisons Microsoft GP pour la compta et la macro d'extraction ne donne que des données mensuelles ce qui n'est pas très pratique alors je venais vers vous afin d'avoir une petite aide car les macros ne sont pas mon fort...

J'aurai voulu passé à 15 jours ou une periode hebdomadaire. Voir ameliorier cette macro un peu vieillissante...

Voici la macro: 

  1. Public Sub ResetConnect(qt As QueryTable) 
    

  2. qt.Connection = "ODBC;DSN=Dynamics GP Excel;Description=Data from GP sql system;UID=sa;PWD=Gr33nfl4g" 
    

  3.  
  4. End Sub 
    

  5.  
  6. Sub Refresh() 
    

  7. ' 
    

  8. ' Refresh Macro 
    

  9. ' Macro recorded 19/02/2010 by uk-tech-mp 
    

  10. ' 
    

  11. 'Clears redundant items from dropdowns in PivotTable 
    

  12. Dim pt As PivotTable 
    

  13. Dim ws As Worksheet 
    

  14.  
  15. For Each ws In ActiveWorkbook.Worksheets 
    

  16. For Each pt In ws.PivotTables 
    

  17. pt.PivotCache.MissingItemsLimit = xlMissingItemsNone 
    

  18. Next pt 
    

  19. Next ws 
    

  20. ' 
    

  21. Sheets("Data" ).Select 
    

  22. Range("A1" ).Select 
    

  23. ResetConnect Selection.QueryTable 
    

  24. Selection.QueryTable.Refresh BackgroundQuery:=False 
    

  25. Sheets("Summary (Aged Credit)" ).Select 
    

  26. Range("A8" ).Select 
    

  27. ActiveSheet.PivotTables("PivotTable1" ).PivotCache.Refresh 
    

  28. Range("B7" ).Select 
    

  29. Selection.Group Start:=Range("C1" ), End:=Range("C2" ), Periods:=Array(False, False, _ 
    

  30. False, False, True, False, True) 
    

  31. End Sub



D'avance merci pour votre aide
Lassé par la pub ? Créez un compte

Créer un nouveau sujet