JB

Salut,

Comme le sujet l'indique je souhaite créer un fichier a partir d autres fichiers.

voici mon code qui bug bien evidemment:


Private Sub Workbook_open()
Dim chemin$, NomFich$, NomFeuil$, fin$, Plage$
Dim classeur As Workbook
Dim Sh As Worksheet
Dim sel As Range
Dim li As Integer


Dim Arr, i&
Application.ScreenUpdating = False
chemin = ActiveWorkbook.Path


'recupération du glossaire
Sheets("glossaire").Rows.Delete
NomFich = chemin & "/" & "glossaire.xls"
Set classeur = GetObject(NomFich)
fin = LastCell(classeur.Sheets(1)).Address
Plage = "A1:" & fin
classeur.Close False
Sheets("glossaire").Activate
Sheets("glossaire").Select
GetValuesFromAClosedWorkbook chemin, glossaire.xls, glossaire, Plage
Columns("A:A").Select
Selection.NumberFormat = "yyyy"

'recupération des données observées
Sheets("obs").Rows.Delete
NomFich = chemin & "/" & "obs.xls"
Set classeur = GetObject(NomFich)
fin = LastCell(classeur.Sheets(1)).Address
Plage = "A1:" & fin
classeur.Close False
Sheets("obs").Activate
Sheets("obs").Select
GetValuesFromAClosedWorkbook chemin, obs.xls, obs, Plage
Columns("A:A").Select
Selection.NumberFormat = "yyyy"

'recupération des données simulées de reference
Sheets("ref").Rows.Delete

NomFich = chemin & "/" & "ref.xls"
Set classeur = GetObject(NomFich)
fin = LastCell(classeur.Sheets(1)).Address
Plage = "A1:" & fin
classeur.Close False
Sheets("ref").Select
GetValuesFromAClosedWorkbook chemin, ref.xls, ref, Plage
Columns("A:A").Select
Selection.NumberFormat = "yyyy"

'recupération des données simulées
Sheets("simul").Rows.Delete

NomFich = chemin & "/" & "simul.xls"
Set classeur = GetObject(NomFich)
fin = LastCell(classeur.Sheets(1)).Address
Plage = "A1:" & fin
classeur.Close False
Sheets("simul").Select
GetValuesFromAClosedWorkbook chemin, simul.xls, simul, Plage
Columns("A:A").Select
Selection.NumberFormat = "yyyy"


voila j espere que cela ne vous décourage pas.

Merci quand même

JB