Microsoft 365 extraction données d'un autre fichier

tontonjoey

XLDnaute Nouveau
Bonjour,
J'ai pas mal regardé les forums mais je ne trouve pas la réponse à ma question:
Tous les jours les états de présence sont éditées par un programme propriétaire qui génère un fichier nommé 760_26_Etat_de_presence_01012022.xlsx
01012022 étant la date du jour qui évolue forcement tous les jours. Je souhaiterais récupérer un plage de cellules à l'intérieur afin d'alimenter le tableau sur mon classeur ouvert et de l'imprimer.
Voici le code :

Sub Impression()
Dim Doc As Workbook

Doc = Environ("USERPROFILE") & "\Documents\PHOEBUS2\Edition\760_26*.xlsx"

ThisWorkbook.Sheets("Feuille NOCTILIENS").Range("A7:G20") = Doc.Sheets("Etats de présence").Range("B5:H18").Value
Sheets("Feuille NOCTILIENS").Activate

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Quelqu'un aurait la solution? Merci
 

patricktoulon

XLDnaute Barbatruc
re
bonjour
en fait tu n'y est pas du tout
même si la dte est bonne ta formulation est un doux rêve

pour commencer intéresse toi a la fonction "DIR" et regarde comment on boucle sur les noms de fichiers tronqué avec un "*"
quand tu aura compris cette étape, tu pourra avancer
 

tontonjoey

XLDnaute Nouveau
Bonjour,
Merci pour ton aide. Effectivement la fonction Dir est utilisée pour sélectionner un fichier dont ou connais qu'une partie du nom. Si l'identifie un répertoire ça fonctionne, si j'utilise Environ("USERPROFILE") et un nom de fichier connu ça fonctionne... C'est le mix des deux qui est compliqué. Aurais-tu une idée?
Bien cordialement.
 

Pièces jointes

  • sub.jpg
    sub.jpg
    75.8 KB · Affichages: 17

patricktoulon

XLDnaute Barbatruc
heu ben c'est simple
tu fait
doc as workbook
et ensuite tu fait doc=dir(........)
dir renvoie du string et doc est un object ça peut pas aller

et ensuite tu fait un copy de l'un a l'autre sans même l'avoir ouvert le fichier ça peut pas le faire
ca marche pas comme ça
 

patricktoulon

XLDnaute Barbatruc
re
bon ben j'ai regardé ton fichier
woawh!!! je ne saurais même pas par quoi commencer
ça fait vraiment trop de boulot tout est à reprendre
avec ce fichier tu doit la mettre en souffrance ton app excel

le mieux serait que tu commence a apprendre les bases (variables et const) notamment les variables array

à moins que pour toi cela soit juste un besoins ponctuels mais pour moi il y a beaucoup trop de boulot a reprendre

de plus je ne vois pas le code de ta capture plus haut

désolé