Charger un tableau d'une feuille x
Bonjour ,
j'ai trouvé ce code qui permet de copier le contenu d'un feuille d'un classeur *.xlsm à une feuille d'un autre classeur au format *.xlsx
Mais il me faudrait l'inverse, càd copier les données d'un tableau (qui a des données de tableau variable ) d'une feuille d'un classeur en format *xlsx vers une feuille d'un autre classeur en format *.xlsm
Voici ce que j'ai comme code:/ (Et donc il faudrait que les données existantes du tableau de Feuil1 de Atelier.xlsx se copient dans Feuil 1 de EXPORTER.xlsm)
Sub EXPORTER()
Dim CL As String
CL = Dir("C:\Atelier\H_Atelier.xlsx")
ChDir "C:\Atelier"
Workbooks.Open CL
Workbooks("EXPORTER").Activate
Sheets(1).Select
Range("a1").CurrentRegion.Select
Selection.Copy
Workbooks(CL).Activate
Sheets(1).Select
Range("a1").Select
ActiveSheet.Paste
Workbooks(CL).Save
Workbooks(CL).Close
End Sub
/ Merci d'avance au premier qui pourra me venir en aide ;-)
Bonjour
Un fichier est TOUJOURS le bienvenu
Sub EXPORTER()
Dim CL As String
CL = Dir("C:\Atelier\H_Atelier.xlsx")
ChDir "C:\Atelier"
Workbooks.Open CL
workbooks(CL).activate
Sheets(1).Select
Range("a1").CurrentRegion.Select
Selection.Copy
Workbooks("EXPORTER").Activate
Sheets(1).Select
Range("a1").Select
ActiveSheet.Paste
Workbooks("EXPORTER").Save
Workbooks("EXPORTER").Close
End SubA+ François
Merci fanfan,
Cela fonctionne à merveille! ;-)