Bonjour,

comme tout un chacun qui viens sur ce forum, à propos d'excel je résume mon problème:

J'ai dans mon projet trois classeurs et dans un des classeurs je dois récupérer des informations des deux autres.

En VBA voici les codes que j'utilise

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
21
22
23
24
25
Sub Totaux_Indicateur()
 
 
Dim MaDate As Date
 
n = Month(Date)
 
'Somme des Audits traités
     Range("E22").Offset(0, n).Select
     ActiveCell.FormulaR1C1 = "='I:\17_maint_cle\3073_3080_ATC\_Environnement\UET_3073\5S\5S Equipe A\Audit Etat de Référence\[Audit de poste 5S 3073 EB.xlsm]Synthèse'!R8C5+'I:\17_maint_cle\3073_3080_ATC\_Environnement\UET_3073\5S\5S Equipe A\Audit Etat de Référence\[Audit de poste 5S 3073.xls]Synthèse'!R8C5"
     MsgBox.Close
     Range("F22").Select
 
'Somme des remarques
    Range("E24").Offset(0, n).Select
    ActiveCell.FormulaR1C1 = "='[Audit de poste 5S 3073 EB.xls]Synthèse'!R8C6 + '[Audit de poste 5S 3073.xls]Synthèse'!R8C6"
    Range("F22").Select
 
'Somme des remarques restantes
 
    Range("E25").Offset(0, n).Select
    ActiveCell.FormulaR1C1 = "='[Audit de poste 5S 3073 EB.xls]Synthèse'!R53C + '[Audit de poste 5S 3073.xls]Synthèse'!R53C"
    Range("F22").Select
 
End Sub
Lorsque je lance cette macro via un bouton dans le fichier de réception, une fenêtre s'ouvre pour aller chercher les fichiers sources. Je voudrais annuler l'ouverture e ces fenêtres car lorsque je clique sur annuler dans la fenêtre les calculs sont tout de même exécutés

Merci de votre aide