Discussion :

[scoobydoos]

Salut,

J'ai une BDD excel qui est en lien avec d'autres fichiers comme "Devis". Je souhaites lorsque j'ouvre le fichier "Devis" que cela me demande si je veux actualiser et mettre à jour le fichier.
J'ai mis cela dans le VB :

Onglet ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub workbook_open()
 
MsgBox ("Voulez-vous mettre à jour le fichier ?"), vbYesNo
    If vbYes Then ActiveWorkbook.RefreshAll
    If vbNo Then Exit Sub
 
End Sub

Le problème, c'est que je fasses oui ou non, cela m'actualise tout automatiquement.

Avez-vous une solution ?

Merci par avance
@+

[Malick]

Salut,

Quelque chose comme ceci devrait fonctionner (proposition d'un débutant) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub workbook_open()
Dim MiseJour As Integer
Dim Cancel As Boolean
    MiseJour = MsgBox("Voulez-vous mettre à jour le fichier ?", vbQuestion + vbYesNo)
    If MiseJour = vbYes Then ActiveWorkbook.RefreshAll Else Cancel = True
End Sub

En attendant les experts vont passer pour d'autres propositions