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