Données externes - saisie Mot de passe via VBA
Bonjour à tous,
Je souhaiterais connaitre la syntaxe pour saisir via VBA le mot de passe demandé pour l'actualisation d'une table de données externe.
En effet le reporting sur lequel je travaille est destiné à être utilisé par diverses personnes et je ne souhaite pas les contraindre à saisir mon mot de passe pour que la connexion s'établisse avec la base de données.
Merci d'avance de votre aide
Philippe
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub Actualisation()
'
' Actualisation Macro
'
With Application
.DisplayAlerts = False
ModeCalcul = .Calculation
.Calculation = xlCalculationManual
Patience.Show vbModeless
'Range("Update") = Now()
.ScreenUpdating = False
Sheets("Base Jobs").Range("$A$1").ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("Update") = Now()
Patience.Hide
.Calculation = ModeCalcul
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub |
