Salut à tous,
voilà mon pb.
Je récupère dans un UserForm1 25 chemins correspondant à 25 fichiers .xls que je vais analyser récursivement.
Code :
- Private Sub buttonW01_Click()
- ChDir ("C:\" )
- W1 = Application.GetOpenFilename(FileFilter:="XLS Files (*.xls), *.xls", Filterindex:=1, Title:="Select The File To Analyse", MultiSelect:=False)
- LienW01.Text = W1
-
- End Sub
- Private Sub buttonW02_Click()
- ChDir ("C:\" )
- W2 = Application.GetOpenFilename(FileFilter:="XLS Files (*.xls), *.xls", Filterindex:=1, Title:="Select The File To Analyse", MultiSelect:=False)
- LienW02.Text = W2
-
- End Sub
|
etc...
Dans un module, j'ai crée la procédure suivante :
Code :
- Sub Analysis()
- Dim i As Integer
-
-
- Application.StatusBar = "Chargements des données..."
- ' Tracé de la Spin Curve
- SpinCurve (FileThickness)
- ' Copie des datas de CD / Création du tableau Thickness vs CD et tracé de la Swing Curve
- ActiveWorkbook.Windows(2).Caption = "Swing Curve"
- 'Windows("SwingCurve" ).Activate
- Worksheets("SpinCurveDatas" ).Select
- Sheets.Add
- Sheets(2).Select
- Sheets(2).Move After:=Sheets(3)
- Sheets(3).Select
- Sheets(3).Name = "CDRawDatas"
- For i = 1 To 25
-
- Workbooks.Open Filename:="W" & i
-
- Worksheets(1).Select
- Range("B3:L19" ).Select
- Selection.Copy
- Windows("Swing Curve" ).Activate
- Worksheets(3).Select
- Cells(1 + 17 * Nbre, 2).Select
- ActiveSheet.Paste
- Cells(1 + 17 * Nbre, 1).Select
- Application.CutCopyMode = False
- ActiveCell.FormulaR1C1 = Nbre
-
- Next i
|
et j'ai déclaré tous mes liens comme
Code :
- Public W1 As Variant
|
et donc quand je lance ma Macro, j'ai une erreur d'execution 1004,
le fichier "W1.xls" est introuvable. Normal car ce fichier n'existe pas, W1 est le lien au fichier que je veux ouvrir...
Une idée ???
Merci d'avance
Raph