Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Problème d'accès aux datas d'une autre feuille fermée

p'tit vieux

XLDnaute Occasionnel
Bonjour à tous,
Comme le titre l'indique j'ai un petit souci dans un UDF que j'espère pouvoir vous soumettre bientôt..
Je sais que c'est un sujet assez récurant mais je n'ai rien lu qui résolve mon exemple.
Voici le problème ...
J'ai une fonction dans un fichier (Fonction.xlsm) qui lit des valeurs dans un autre fichier (Datas externes.xlsx).
  1. Lorsque celui-ci est ouvert pas de souci.
  2. Lorsqu'il est fermé j'ai 2 cas:
    1. Si c'est une plage de cellule => >Je reçois un tableau (ca me gène mais ca se gère)
    2. Si plusieurs Areas (zones) là j'ai une erreur 2015.
Je sais que la principale solution est d'ouvrir (masqué !) le fichier par code VBA j'ouvre des données externes mais, dans ma macro, je n'ai pas réussi à ouvrir le fichier(Datas externes.xlsx) avec ce qui est proposé dans les forums. Pour l'instant, je ne comprend pas pourquoi mais c'est ainsi.
Par contre je vois un défaut au fait d'ouvrir un fichier: Par exemple, imaginé le temps d'ouverture avec un gros fichier complexe avec des calculs dans tous les sens

Donc si quelqu'un à une ou plusieurs idées
Cordialement à tous
 

Pièces jointes

  • Fonction.xlsm
    21.4 KB · Affichages: 8
  • Datas externes.xlsx
    17.3 KB · Affichages: 10
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
bonsoir @job75
ok on supprime les valeurs zero alors
VB: 
'patricktoulon
'exemple; '='chemin & "\[" & nomfichier &"]" & nomdelafeuille & "'!" address de cellule"
Sub test_récup_plagemacro4()
    Dim Chemin$, fichier$, Feuille$, T, plage As Range
    Chemin$ = ThisWorkbook.Path    'à adapter
    fichier$ = "Datas externes.xlsx"   'à adapter
    Set plage = [C11:C15,C20:C21,C18]    'la plage en range
    Feuille$ = "Feuil1"    'le non de la feuille (Attention pas le codename mais bien le nom que vous lui avez donné)
    T = GetRowNOnColumnCloseFich(Chemin, fichier, "Feuil1", plage)

    [A1].Resize(UBound(T)).Value = T
    MsgBox "min : " & Application.Small(T, 1)
    MsgBox "max : " & Application.Small(T, UBound(T))
    MsgBox "moyenne : " & WorksheetFunction.Sum(T) / UBound(T)
End Sub
Function GetRowNOnColumnCloseFich(Chemin As String, fich As String, Feuille As String, rng As Range)
    Dim tbl, I&, valeur#
    ReDim tbl(1 To rng.Cells.Count)
    For Each cel In rng.Cells
        valeur = CDbl(ExecuteExcel4Macro("'" & Chemin & "\[" & fich & "]" & Feuille & "'!" & cel.Address(, , xlR1C1)))
        If valeur <> 0 Then I = I + 1: tbl(I) = valeur
    Next
    ReDim Preserve tbl(1 To I)
    GetRowNOnColumnCloseFich = Application.Transpose(tbl)
End Function
mais pour moi c'est enlever les zero qui fausse la moyenne
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
ok empty alors je vois pas trop ce que ca change mais bon
VB: 
'patricktoulon
'exemple; '='chemin & "\[" & nomfichier &"]" & nomdelafeuille & "'!" address de cellule"
Sub test_récup_plagemacro4()
    Dim Chemin$, fichier$, Feuille$, T, plage As Range
    Chemin$ = ThisWorkbook.Path    'à adapter
    fichier$ = "Datas externes.xlsx"   'à adapter
    Set plage = [C11:C15,C20:C21,C18]    'la plage en range
    Feuille$ = "Feuil1"    'le non de la feuille (Attention pas le codename mais bien le nom que vous lui avez donné)
    T = GetRowNOnColumnCloseFich(Chemin, fichier, "Feuil1", plage)

    [A1].Resize(UBound(T)).Value = T
    MsgBox "min : " & Application.Small(T, 1)
    MsgBox "max : " & Application.Small(T, UBound(T))
    MsgBox WorksheetFunction.Sum(T) / UBound(T)
End Sub
Function GetRowNOnColumnCloseFich(Chemin As String, fich As String, Feuille As String, rng As Range)
    Dim tbl, I&, valeur#
    ReDim tbl(1 To rng.Cells.Count)
    For Each cel In rng.Cells
        I = I + 1:
        valeur = CDbl(ExecuteExcel4Macro("'" & Chemin & "\[" & fich & "]" & Feuille & "'!" & cel.Address(, , xlR1C1)))
        If valeur = 0 Then tbl(I) = Empty Else tbl(I) = valeur
    Next
    ReDim Preserve tbl(1 To I)
    GetRowNOnColumnCloseFich = Application.Transpose(tbl)
End Function
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
le small(max) ne fonctionne pas avec un empty
on prend directement les fonction min et max
VB: 
'patricktoulon
'exemple; '='chemin & "\[" & nomfichier &"]" & nomdelafeuille & "'!" address de cellule"
Sub test_récup_plagemacro4()
    Dim Chemin$, fichier$, Feuille$, T, plage As Range
    Chemin$ = ThisWorkbook.Path    'à adapter
    fichier$ = "Datas externes.xlsx"   'à adapter
    Set plage = [C11:C15,C20:C21,C18]    'la plage en range
    Feuille$ = "Feuil1"    'le non de la feuille (Attention pas le codename mais bien le nom que vous lui avez donné)
    T = GetRowNOnColumnCloseFich(Chemin, fichier, "Feuil1", plage)

    [A1].Resize(UBound(T)).Value = T
    MsgBox "min : " & Application.Min(T, 1)
    MsgBox "max : " & Application.Max(T)
    MsgBox WorksheetFunction.Sum(T) / UBound(T)
End Sub
Function GetRowNOnColumnCloseFich(Chemin As String, fich As String, Feuille As String, rng As Range)
    Dim tbl, I&, valeur#
    ReDim tbl(1 To rng.Cells.Count)
    For Each cel In rng.Cells
        I = I + 1:
        valeur = CDbl(ExecuteExcel4Macro("'" & Chemin & "\[" & fich & "]" & Feuille & "'!" & cel.Address(, , xlR1C1)))
        If valeur = 0 Then tbl(I) = Empty Else tbl(I) = valeur
    Next
    ReDim Preserve tbl(1 To I)
    GetRowNOnColumnCloseFich = Application.Transpose(tbl)
End Function
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
ok donc du string
il faut donc convertir ce n'est plus cdbl mais Val
VB: 
'patricktoulon
'exemple; '='chemin & "\[" & nomfichier &"]" & nomdelafeuille & "'!" address de cellule"
Sub test_récup_plagemacro4()
    Dim Chemin$, fichier$, Feuille$, T, plage As Range
    Chemin$ = ThisWorkbook.Path    'à adapter
    fichier$ = "Datas externes.xlsx"   'à adapter
    Set plage = [C11:C15,C20:C21,C18]    'la plage en range
    Feuille$ = "Feuil1"    'le non de la feuille (Attention pas le codename mais bien le nom que vous lui avez donné)
    T = GetRowNOnColumnCloseFich(Chemin, fichier, "Feuil1", plage)

    [A1].Resize(UBound(T)).Value = T
    MsgBox "min : " & Application.Min(T, 1)
    MsgBox "max : " & Application.Max(T)
    MsgBox WorksheetFunction.Sum(T) / UBound(T)
End Sub
Function GetRowNOnColumnCloseFich(Chemin As String, fich As String, Feuille As String, rng As Range)
    Dim tbl(), I&, valeur
    ReDim tbl(1 To rng.Cells.Count)
  
   For Each cel In rng.Cells
        I = I + 1:
       valeur = ExecuteExcel4Macro("""""&'" & Chemin & "\[" & fich & "]" & Feuille & "'!" & cel.Address(, , xlR1C1))
         
         tbl(I) = IIf(valeur <> "", Val(valeur), valeur)
    Next
    ReDim Preserve tbl(1 To I)
    GetRowNOnColumnCloseFich = Application.Transpose(tbl)
End Function
 
Vote positif -1 Vote négatif

patricktoulon

XLDnaute Barbatruc
Bonjour
en terme simple @p'tit vieux
je recupérais les données tel quel , @job75 lui ajoute un vbnullstring pour récupérer en texte afin d'avoir vide si la cellule est vide dans le fichier fermer(sinon la macro4 renvoie "0"
la chose etonnante c'est que de ce fait vba converti la virgule de la decimale en point
on ne passe donc plus par cdbl mais Val
du reste bien sur il faut ajouter si ="" alors Empty sinon val(le resultat de la macro4)

tout simplement

donc
1°pour l'utilisation des macro4 utiliser le post#56
ou
2°pour les formules de liaison implantées directement dans les cellule par la collection dans une variable tableau utiliser alors la version du post #32

3° la version ADO de robert @dysortographie

le choix va dependre ce que tu veux faire avec les données (pré traitement , post traitement , traitement)

je pense que l'udf doit s'arréter là
c'est à dire quelque possibilités mais pas plus car
c'est un exercice qui peut avoir de diverses forme correspondant à un besoin

tu a donc 3 méthodes pour récupérer des données brutes dans fichiers fermés
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
323
Phil69970
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
262
mromain
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
260
gpion
G
V
  • Question
XL 2021 avoir des données dans plusieurs onglets en fonction de plusieurs conditions
Réponses
5
Affichages
524
mapomme
L
  • Question
XL 2016 Actualisation d'une query via VBA
Réponses
5
Affichages
435
job75
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
419
steph_29120
S
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
973
Alexandrax971
A
L
  • Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
278
Langrand
L
N
  • Résolu(e)
Microsoft 365 Copie de données d'une feuille à une autre
Réponses
4
Affichages
444
Cousinhub
P
  • Question
Microsoft 365 Problème d'affichage étiquettes Graphique
Réponses
8
Affichages
205
Piment
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…