Discussion :

[Denis_67]

Bonjour,

J'utilise cette fonction pour lire une donnée dans un classeur fermé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ExecuteExcel4Macro("'" & rep & "[" & Fich & "]Validation PDE'!r5c7")

Or il semble que cela ne fonctionne pas sous Win7 avec les classeurs xlsm, mais que cela refonctionne sous Win10 ?
Vu sur un post
https://www.mrexcel.com/forum/excel-...ndows-7-a.html

Est ce que vous confirmez ?
avez vous un autre alternative que les OLE etc défini dans le tuto de ce site sur la lecture des classeurs fermés.

Merci

[clementmarcotte]

Bonjour,

avez vous un autre alternative que les OLE etc défini dans le tuto de ce site sur la lecture des classeurs fermés.

Merci

L'accès aux données dans Office est basé sur OLEDB. Peu importe la méthode utilisée, il faut utiliser OLEDB, d'une façon ou d'une autre. Et puis travailler sur un classeur sans ouvrir un classeur d'une façon ou d'une autre, c'est un mythe.

Quant à chercher à ta place si cela fonctionne sur Windows 10, j'ai d'autres chats à fouetter. Et puis cela n'a aucune importance. Dans un univers hétéroclite de machines Win7 et Win10, cela ne mène à rien de toutes façons.

[Marc-L]

Bonjour !

avez vous un autre alternative que les OLE etc défini dans le tuto de ce site sur la lecture des classeurs fermés.

Oui, via le B-A-BA d'Excel :  une simple formule de calculs …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Pierre Fauconnier]

Salut.

Travailler avec des formules qui vont chercher des données dans un autre classeur relève pour moi d'un sérieux problème de conception de données. Si le fichier source (celui dans lequel tu vas chercher tes données par formules) est retravaillé (tris, insertions, suppressions) alors que ton fichier cible (celui qui contient la formule) est fermé, c'est la pagaille assurée sans qu'aucun message ne t'informe du problème.

Il serait pour moi judicieux de revoir la conception et d'importer ou de lier des tables de données du classeur source dans le classeur cible. Plusieurs outils sont à ta disposition pour réaliser cela: données externes avec MSQuery ou importation de données, PowerQuery (à installer sur une 2013, mais très puissant).

[Denis_67]

Pourquoi ces réponses un peu rudes !

J'ai juste créé une procédure qui vérifie en temps réel le status d'une cellule dans un classeur.
Il n'y a pas de mise à jour ni quoi que ce soit.

Avant de faire l'action A, je vérifie que j'ai bien l'action B qui a été faite dans un classeur que je cherche parmis x classeurs.

Quand à la conception, on est souvent pas le géniteur des solutions, mais les docteurs qui apportent parfois des emplatres sur des jambes de bois.

Mais pourquoi je me justifie au fait !

Je clos le sujet.
Merci pour vos réponses.
Denis

[Denis_67]

Toi qui passes ici, j'ajoute la conclusion.

La lecture du classeur fermé fonctionne comme je le souhaite.
J'avais cumulé un problème avec le nom des classeurs qui contenait une apostrophe '

Un curiosité d'excel (pas en VBA, mais dans Excel) si on met une formule dans une cellule appelant la valeur d'un autre classeur et que le nom de ce classeur comporte une apostrophe, alors Excel met deux apostrophes dans la formule.

J'ai donc solutionne ma requête commes suit:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub check_file()
 
Dim Fich, Maformule, Mon_Rep As String, Ctr As Long
 
Ctr = 0
' Quelque valeurs pour tester
'art = "85683474" '
'art = "85679054"  'oui
'art = "85679232"    'non
'art = "85702746"   ' demande
'art = "85703415"
'art = "toto"
art = "85623579"
 
Mon_Rep = "G:\DEPARTEMENT TECHNIQUE\Création Essais CCA1\Articles Essais Créés\"
        Fich = Dir("G:\DEPARTEMENT TECHNIQUE\Création Essais CCA1\Articles Essais Créés\" & art & "*")
    If Fich <> "" Then Ctr = 1
 
If Ctr = 1 Then
 
      Fich = Replace(Fich, "'", "''") '<----- celle qui m'a fait suer !
    If Fich Like "*Création*" Then Maformule = "='" & Mon_Rep & "[" & Fich & "]VALIDATION PDE'!G5"
    If Fich Like "*Demande*" Then Maformule = "='" & Mon_Rep & "[" & Fich & "]VALIDATION PDE'!G18"
On Error GoTo Alternatif
        With ThisWorkbook.Sheets("Feuil1").Range("H2")
        .ClearContents
        .Formula = Maformule
        .Value = .Value
        End With
On Error GoTo 0
 
End If
Exit Sub
Alternatif:
    If Fich Like "*Création*" Then Maformule = "='" & Mon_Rep & "[" & Fich & "]VALIDATION DTE'!G4"
Resume Next
End Sub