Connexion Power Pivot Excel VBA
Bonjour,
Je vous sollicite car sur Excel 2013, je souhaiterai mettre à jour les données de connexions de mes tables PowerPivot grace au VBA. En consultant l'aide en ligne de Microsoft, j'arrive à récupérer le chemin d'accès de ma table mais pas à le mettre à jour. Auriez vous une idée.
Voici un exemple de code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
'Déclaration des variables
Dim Model As Model
Dim ModelTables As ModelTables
Dim ModelTable As ModelTable
Dim Str_Con As String
'Mise à jour des variables
Set Model = ThisWorkbook.Model
Set ModelTables = Model.ModelTables
Set ModelTable = ModelTables.item("T_SYNTHESE")
Str_Con = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Cadaver\Desktop\Darty\KPI SYNTHE BASE.xlsb;Persist Security Info=false;Extended Properties=""Excel 12.0;HDR=Yes"" "
ModelTable.SourceWorkbookConnection.OLEDBConnection.Connection = Str_Con |
Je reçois une erreur "Application 1004" alors que l'aide d'office précise bien que la propriété OLEDBConnection.Connection est en Lecture/Ecriture.
Malgré mes nombreuses recherches je ne trouve rien à ce sujet.
D'avance merci pour votre aide.
Cadaver
