Modifier macro excel --> Periods

[Sandycove]

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

 

[zeb]

Vous devez être connecté pour voir les images.

 

[Sandycove]

Bonjour,

Je ne comprends pas trop votre message...

Ou est mon erreur, je ne pense pas avoir enfreint une de vos règles.

Cordialement

 

[beru]

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

 

[Sandycove]

Merci pour l'info.

J'ai vien vu un panneau m'indiquant un problème de règlement mais je croyais que c'était une pub.

Cordialement

 

[Sandycove]

Bonjour,

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

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:

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

D'avance merci pour votre aide