Macro qui récupère des données depuis des classeurs fermés

Fermé
daouha_98 Messages postés 1 Date d'inscription mardi 12 juillet 2022 Statut Membre Dernière intervention 12 juillet 2022 - 12 juil. 2022 à 11:14
Whismeril Messages postés 19039 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 7 mai 2024 - 12 juil. 2022 à 11:41

Bonjour à tous, 

Je veux faire une macro qui récupère des données depuis des classeurs fermés, pour ceci j'ai utilisé ExecuteExcel4Macro, sauf que ça marche pour moi, mais quand un autre utilisateur qui a accès aux mêmes dossiers que moi, a chaque fois lui demande de choisir le fichier pour chaque donnée, comment remédier à ça svp ?

voici mon script : 

Sub verif_SCR()

Range("B4").Value = ExecuteExcel4Macro("'H:\Contrôle Interne\2021\FRCF\FRCF_Efficacité\Actuariat Financier\GI\FS T4\Preuves T4\FRCF- Actuarial OPs-T4-21\5. FRCF [EC_FS_Cohérence_résultats]\[21Q4 summary of results - sans liaisons 20220125.xlsx]SF- summary of results'!R39C3") * 10 ^ 6

Range("C4").Value = ExecuteExcel4Macro("'H:\Contrôle Interne\2021\FRCF\FRCF_Efficacité\Actuariat Financier\GI\FS T4\Preuves T4\FRCF- Actuarial OPs-T4-21\5. FRCF [EC_FS_Cohérence_résultats]\[QRT_FY21_ (Abeille IARD & Santé).xlsx]S260601$_1'!R30C4")

Range("D4").Value = Range("B4").Value - Range("C4").Value

Dim S As Range

Dim E As Range

Set E = Range("D4")

Set D = Range("E4")

If E >= -1 And E <= 1 Then

D.Interior.Color = vbGreen

[E4] = "True"

Else

D.Interior.Color = vbRed

[E4] = "False"

End If

End Sub

A voir également:

1 réponse

Whismeril Messages postés 19039 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 7 mai 2024 932
12 juil. 2022 à 11:41
0