[VBA-E]Simplifier avec des instances

Bonjour,

Pour des raisons de souplesse et de lecture de mon programme j'ai instancie toutes les worksheets que j'utilise dans mon code dans une procedure a part (comme ca si les noms changent, et ils vont changer, une seule procedure a modifier). Les chemins viennent de Application.GetOpenFilename.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub subSetFilesAndSheets()   ''''open file and set workbooks Set wbModel = Workbooks.Open(ModelPath, 0, True) ChDir WorkingFolder ProgressForm.lblOpenModel.Caption = "Done" ProgressForm.Repaint Set wbLogistic = Workbooks.Open(LogisticPath, 0, True) ProgressForm.lblOpenLogistic.Caption = "Done" ProgressForm.Repaint Set wbQuality = Workbooks.Open(QualityPath, 0, True) ProgressForm.lblOpenQuality.Caption = "Done" ProgressForm.Repaint Set wbPurchasing = Workbooks.Open(PurchasingPath, 0, True) ProgressForm.lblOpenPurchasing.Caption = "Done" ProgressForm.Repaint   ''''set model sheets Set wsModelSynthesis = wbModel.Sheets("Synthesis") Set wsModelLogistic = wbModel.Sheets("Logistics") Set wsModelQuality = wbModel.Sheets("Quality") Set wsModelPurchasing = wbModel.Sheets("Purchasing")   ''''set program sheets Set wsNoQuality = ThisWorkbook.Sheets("No quality data") Set wsNoPurchasing = ThisWorkbook.Sheets("No purchasing data") Set wsTempPurchasing = ThisWorkbook.Sheets("Temp purchasing data")   ''''set sources sheets Set wsSourceLogistic = wbLogistic.Sheets("Analiza")   Set wsSourceENCR = wbQuality.Sheets("ENCR per supplier per month") Set wsSourceDPM = wbQuality.Sheets("DPM (e) per supplier") Set wsSourceQA = wbQuality.Sheets("Quality Alert per supplier")   Set wsSourcePurchasing = wbPurchasing.Sheets("Sheet1")   End Sub

---

Comme vous voyez il y en a plein, ce que je voudrais faire c'est me passer des wb et plus generalement simplifier le programme. Or, une fois les fichiers ouverts (avec ou sans affectation des wb) si je fais

Code:

---

set ws = workbooks(Chemin).Sheets("Ma sheet")

---

ca ne marche pas parce qu'Excel attend le nom du fichier et pas le chemin.

Des conseils pour simplifier tout ca ?

bonjour

Citation:

---

Les chemins viennent de Application.GetOpenFilename.

---

Citation:

---

ca ne marche pas parce qu'Excel attend le nom du fichier et pas le chemin.

---

Si j'ai bien compris tu peux essayer:

Code:

---

1 2 3 4 5 6 7

Dim Chemin As Variant Dim Classeur As String   Chemin = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If Chemin = False Then Exit Sub   MsgBox Dir(Chemin)

---

michel

Mais tu peux faire

Code:

---

1 2 3 4 5

Sub ouvrir() Chemin = "d:\xls\liste pour fusion.xls" Set Ws = Workbooks.Open(Chemin).Sheets("Feuil1") Ws.Range("A1") = "Coucou" End Sub

---

Tu peux aussi trouver le nom du seul fichier à partir de chemin.

Code:

---

1 2 3 4

Chemin = "d:\xls\liste pour fusion.xls" NomFich = Split(Chemin, "\")(UBound(Split(Chemin, "\"))) Set Ws = Workbooks(NomFich).Worksheets("Feuil1") Ws.Range("A1") = "Coucou"

---

Si j'ai bien compris ton pb :(

Tu peux même faire

Code:

---

1 2 3

Chemin = "d:\xls\liste pour fusion.xls" Set Ws = Workbooks(Split(Chemin, "\")(UBound(Split(Chemin, "\")))).Worksheets("Feuil1") Ws.Range("A1") = "Coucou"

---

A+

Alors en fait j'ai les chemins avec une fonction qui fait

Code:

---

1 2 3 4 5 6 7 8

Function fctSelectFile(BoxName As String) As String Dim FilePath As String FilePath = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , BoxName) If FilePath <> "False" Then fctSelectFile = FilePath Else: fctSelectFile = "" End If End Function

---

Qui me retourne par exemple FilePath = "D:\mondossier\monfichier.xls" ce qui permet plus tard de l'ouvrir.

Code:

---

Set Ws = Workbooks.Open(Chemin).Sheets("Feuil1")

---

Ca marche bien pour une feuille mais si je dois affecter plusieurs feuilles du meme classeur ca ne marche plus (ouverture, fermeture, reouverture...).

Ce qu'il me faudrait donc c'est pouvoir utiliser

Code:

---

Set Ws = Workbooks.(NomFichier).Sheets("Feuil1")

---

qui ne fonctionne que si le fichier est ouvert et si l'argument "NomFichier" contient uniquement le nom du fichier sans le chemin complet.
Split a l'air tres bien pour ca, je vais regarder et je vous dis dans quelques minutes.

Ca marche impeccable :king: :yaisse2:

Merci a vous :mrgreen: