[VBA excel] une variable pour 2 classeurs
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:
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:
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
