Extraction de donné venant de classeur différent VBA

Bonjour,

Je commence tous juste à m'exercer à VBA, et je ne maitrise pas encore le sujet ^^

Bon but est le suivant, mais je vous met un fichier exemple également, ce sera plus simple.

J'ai un fichier avec une liste de bâtiment, avec des plage de date en face.

j'ai transformer cette version "tableau", en une version "calendrier" plus simple à lire.

les dates varié d'une semaine à l'autre. et pour chaque nouvelle date, je reçoit un nouveau tableau. Ce nouveau tableau à toujours le même format, avec les informations que je recherche au même endroit. Seul la valeur des dates change.

mon but est le suivant :

je sélectionne 1 bat, et j'extrait dans les différents fichier des semaines correspondant, la valeur des dates.

mon but étant de voir, si les dates varie beaucoup d'une fois à l'autre, et comment.

 https://www.cjoint.com/c/NKClTQ0ZDgm

j'ai regarder un peu, et sur ChatGPT, il mon proposer ce code :

Sub ExtraireDonnees()

' Déclarer les variables

Dim ClasseurSource As Workbook

Dim ClasseurCible As Workbook

Dim FeuilleSource As Worksheet

Dim FeuilleCible As Worksheet

Dim PlageSource As Range

Dim PlageCible As Range

' Définir le classeur cible (actuel)

Set ClasseurCible = ThisWorkbook

' Ouvrir le classeur source

' Remplacez "C:\chemin\vers\classeur.xlsx" par le chemin de votre classeur source

Set ClasseurSource = Workbooks.Open("C:\chemin\vers\classeur.xlsx")

' Définir la feuille source dans le classeur source

Set FeuilleSource = ClasseurSource.Sheets("Feuille1")

' Remplacez par le nom de la feuille source

' Définir la plage de données à copier dans la feuille source (par exemple, de A1 à D10)

Set PlageSource = FeuilleSource.Range("A1:D10")

' Remplacez par votre plage de données

' Définir la feuille cible dans le classeur actuel

Set FeuilleCible = ClasseurCible.Sheets("Feuille1")

' Remplacez par le nom de la feuille cible

' Définir la plage de destination dans la feuille cible (par exemple, commencer à A1)

Set PlageCible = FeuilleCible.Range("A1")

' Copier les données depuis la plage source PlageSource.Copy

' Coller les données dans la plage cible PlageCible.PasteSpecial Paste:=xlPasteValues

' Fermer le classeur source (sans enregistrer les modifications) ClasseurSource.Close SaveChanges:=False

' Afficher un message de confirmation

MsgBox "Les données ont été extraites avec succès!"

End Sub

Je pense que cela pourrait plus ou moins correspondre, mais je ne suis pas encore assez caler en VBA pour ajuster le code selon mon besoin.

Si quelqu'un a une idée, je suis prenneur svp ? (avec les explications qui vont avec histoire que j'apprenne un peu ^^)

Merci d'avance
Windows / Chrome 127.0.0.0