VBA Fermer une fenêtre de message à l'ouverture d'un classeur excel

[Johan]

Bonjour à tous,


Je travaille sur la base de 2 classeurs. Un classeur2 venant alimenter mon Classeur1, sur lequel se trouve le bouton de commande qui lance la macro. J'ai déclaré ma variable classeur2 (Workbook as wb) avec la macro se terminant par wb.close, une fois les infos voulues récupérées sur le classeur1.

Le souci est que le classeur2 s'ouvre tout le temps sur une fenêtre avec le message suivant :

"Ce classeur contient une fois ou plusieurs liaisons qui ne peuvent pas être mises à jour". Impossible de modifier les liaisons (problème de password apparement...). Du coup je voudrais que la macro que je lance puisse directement fermer la fenêtre comme si elle cliquait sur la X à ma place pour fermer.

Pour info, mon code est le suivant :

Sub MAJData()

Dim wb As Workbook
Dim ws As Worksheet

Dim Ligne, Ligne2 As Integer


Set wb = Workbooks.Open("C:\users\nomdufichier.xlsm")
Set ws = wb.Sheets("data")

Ligne = 14
Ligne2 = 3

For Ligne2= 3 To ws.Cells(ws.Rows.Count, 32).End(xlUp).Row

If ws.Range("AF" & Ligne2) <> "" Then
Feuil1.Range("A" & Ligne) = ws.Range("AF" & Ligne2)
Ligne = Ligne + 1
End If
Next Ligne2

wb.Close

End Sub


Je ne sais pas comment m'y prendre, peut-être un truc du genre IF Msgbox... Then... ?

Merci à toutes les âmes volontaires.

 

[youky(BJ)]

Re : VBA Fermer une fenêtre de message à l'ouverture d'un classeur excel

Salut Johan,
Mets peut être

Application.DisplayAlerts=false
Set wb = Workbooks.Open("C:\users\nomdufichier.xlsm")
Application.DisplayAlerts=true

Bruno

 

[Johan]

Re : VBA Fermer une fenêtre de message à l'ouverture d'un classeur excel

Salut youky,

Génial ça fonctionne, j'étais en train de me lancer dans des codes invraisemblables pour rien...

Merci à toi!

au plaisir