Discussion :

[tonton fred]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SilkyRoad]

bonjour

Les chemins viennent de Application.GetOpenFilename.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Mais tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[tonton fred]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tonton fred]

Ca marche impeccable

Merci a vous