Ouverture d'un classeur par macro

Bonjour à vous.

Je rencontre actuellement un petit soucis pour lequel je n'ai pas les compétences requises. Je me retourne donc, une fois de plus vers vous.

Je souhaiterais faire un import de données inscrite dans un classeur Excel. Je l'ai déjà fait sur plusieurs macros, mais cette fois je tombe sur un message Excel à l'ouverture.

Le message est celui-ci:

01

Est-il possible d'ouvrir ce classeur sans arriver sur ce message?

Mon code de départ est le suivant:

Sub Importation_Airbus()

Dim d As Date
Dim FichierAIB As String, AIB As String, CHG As String, SHT As String, Année As String
Dim AIRBUS As Workbook

d = Date
Année = Year(d)

CHG = "projet FrontLine.xlsm" 'le nom va changer
SHT = Range("A2")
AIB = Année & "-AIB-Semaine " & Right(SHT, 2) & ".xlsm"

'********************Accélération VBA************************
'Permet d’arrêter le rafraichissement de l’écran, désactive tous les événements et annule le calcul automatique d’Excel.

 With Application
        .StatusBar = "Imporation et calculs"
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
End With

'******************************Ouverture du fichier Airbus******************************'
FichierAIB = "file:///R:/Mtca-Aib-Prod/Planification/" & AIB
Set AIRBUS = Workbooks.Open(FichierAIB, , True) 'ouverture d'un fichier en lecture seule

Range("B18").Select

'*********************Accélération VBA************************
'Remet en place l’ensemble des fonctionnalités désactivées

With Application
        .StatusBar = ""
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
End With

End Sub

Merci par avance pour votre aide.

Hello,

Set AIRBUS = Workbooks.Open(FichierAIB, false, True)

Merci Rag, je test ça dès demain.

Bonjour,

Ça fonctionne bien. Je ne comprenais pas les arguments. Je comprends mieux maintenant.

Encore merci Rag

Rechercher des sujets similaires à "ouverture classeur macro"