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 : Sélectionner tout - Visualiser dans une fenêtre à part
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