Discussion :

[totoche]

Bonjour,
J'ai :
1 classeur qui contient une feuille données
1 classeur qui contient une feuille avec croisé dyn dont la source est la feuille donnée. Ce classeur détient le code vba

afin d'actualiser la plage du croisé dynamique, dès l'ouverture de cette feuille, l'ouverture du classeur de données est activé afin de lire le nombre de lignes qu'il comporte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public DerniereLigne  As Long
Sub auto_open()
 
Workbooks.Open "C:\Inetpub\wwwroot\Monsite\TestXLS\data.xls"
DerniereLigne = ActiveWorkbook.Worksheets("Feuil1").Cells(32000, 8).End(xlUp).Row

Le probleme est que je n'arrive pas a transmettre cette variable a mon classeur qui contient le croisé dyn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public DerniereLigne  As Long
Sub auto_open()
'RECUP Nb de lignes
Workbooks.Open "C:\Inetpub\wwwroot\Monsite\TestXLS\data.xls"
DerniereLigne = ActiveWorkbook.Worksheets("Feuil1").Cells(32000, 8).End(xlUp).Row
ActiveWorkbook.Close
 
Workbooks.Open "C:\Inetpub\wwwroot\Monsite\TestXLS\tab.xls"
MsgBox ("test " & DerniereLigne) 'la MsgBox ne s'affiche pas
 
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "'\Inetpub\wwwroot\AMO\TestXLS\[data.xls]Feuil1'!R1C1:R" & DerniereLigne & "C8", TableDestination _
        :="R1C1:R5C1", TableName:="Tableau croisé dynamique2"
End Sub

Merci de votre aide

[totoche]

j'ai trouvé,
faut pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Workbooks.Open "C:\Inetpub\wwwroot\AMO\TestXLS\tab.xls"

Inutile de réouvrir
Si vous voyez des améliorations possibles sur mon code, merci de vos suggestions