Discussion :

[ritrit]

Bonjour à tous,

J'ai une fonction qui ouvre un classeur extérieur afin de copier ses valeurs, et de les coller dans mon classeur de base.

Au départ la macro fonctionnait très bien, mais maintenant, elle bloque au moment de l'ouverture du classeur extérieur (pop up : Téléchargement du fichier...)

La barre de chargement ne bouge pas, je dois alors appuyer sur annuler et la macro continue et fonctionne très bien.

Au final, ma macro fonctionne, mais je suis obligé "d'annuler" l'ouverture de mon classeur extérieur, est-ce compréhensible ?

Voici mon code :

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
 
 
    Sheets("Rapport AUM").Activate
    chemin = "G:\BPN.xlsx"
    Sheets.Add.Move After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "BPN"
 
    'OUVERTURE DE LA BPN2 ET COPIE DES ISIN ET AUM
    Dim BDDnn As Workbook
    Set BDDnn = Application.Workbooks.Open(chemin, , True)
    'ActiveSheet.AutoFilterMode = False
    Ligne = BDDnn.Sheets("Page1").Range("A65536").End(xlUp).Row
    BDDnn.Sheets("Page1").Range("M1:M" & Ligne).Copy Destination:=Workbooks("Rassemblement BDD.xlsm").Sheets("BPN").Range("A1:A" & Ligne)
    BDDnn.Sheets("Page1").Range("CG1:CG" & Ligne).Copy Destination:=Workbooks("Rassemblement BDD.xlsm").Sheets("BPN").Range("B1:B" & Ligne)
    Application.CutCopyMode = False
    Application.EnableEvents = False
    BDDnn.Close savechanges:=False

Merci d'avance !

[ritrit]

J'ai trouvé la réponse, pour ceux que ça intéresse :


En déplaçant le fichier chemin = "G:\BPN.xlsx", le classeur s'ouvre bien. Il devait y avoir un problème de droits d'accès au répertoire, voilà !

Bonne journée