Creer un fichier a partir d'autres fichiers.

[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

 

[@+Thierry]

Bonsoir JB, le Forum


Si si, tu l'as dis toi même... C'est très décourageant !! En fait le problème dans un cas comme celui ci, c'est que l'on est pas dans ton appli... Et qu'il est très compliqué de si mettre car, comme le disait Ti encore récemment, nous n'avaons pas le temps de créer un fichier "glossaire.xls" avec des feuilles "glossaire" , "obs", "simul" etc etc...

En plus tu ne dis pas exactement ce que tu n'arrives pas à faire et ce n'est pas en te lisant en VBA que j'y parviens !

Et tu précise que ce code Bug mais tu n'indiques pas à quelle ligne d'instruction... En plus je ne vois pas l'initialisation de pas mal de truc dans ce fouilli !!

Pour créer un fichier à partir d autres fichiers je ne m'y prendrais pas comme çà mais je n'ai peut-être rien compris...

Bon Courage
@+Thierry