Microsoft 365 extraction données d'un autre fichier

[tontonjoey]

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]

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]

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.

 

[patricktoulon]

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

 

[tontonjoey]

Ok d'accord. Je comprends mieux . Merci beaucoup pour ton aide. Je débute et c'est pas toujours très explicite.... Merci à toi .

 

[patricktoulon]

avec le code complet de la macro même si j'ai pas tes dossier je peux voir si je peux faire quelques corrections

 

[tontonjoey]

Je te l'envoie pour que tu puisses regarder.

 

[patricktoulon]

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é