Récupération de nom de fichiers et chemin en VBA

Récupération de nom de fichiers et chemin en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 06-07-2004 à 22:20:56    

 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 :
  1. Private Sub buttonW01_Click()
  3.      ChDir ("C:\" )
  5.     W1 = Application.GetOpenFilename(FileFilter:="XLS Files (*.xls), *.xls", Filterindex:=1, Title:="Select The File To Analyse", MultiSelect:=False)
  6.     LienW01.Text = W1
  7.    
  8. End Sub
  9. Private Sub buttonW02_Click()
  11.      ChDir ("C:\" )
  13.     W2 = Application.GetOpenFilename(FileFilter:="XLS Files (*.xls), *.xls", Filterindex:=1, Title:="Select The File To Analyse", MultiSelect:=False)
  14.     LienW02.Text = W2
  15.    
  16. End Sub


  etc...
 
   Dans un module, j'ai crée la procédure suivante :
   

Code :
  1. Sub Analysis()
  3.    Dim i As Integer
  4.  
  5.  
  6. Application.StatusBar = "Chargements des données..."
  8. ' Tracé de la Spin Curve
  9. SpinCurve (FileThickness)
  11. ' Copie des datas de CD / Création du tableau Thickness vs CD et tracé de la Swing Curve
  12. ActiveWorkbook.Windows(2).Caption = "Swing Curve"
  14.     'Windows("SwingCurve" ).Activate
  15.     Worksheets("SpinCurveDatas" ).Select
  16.     Sheets.Add
  17.     Sheets(2).Select
  18.     Sheets(2).Move After:=Sheets(3)
  19.     Sheets(3).Select
  20.     Sheets(3).Name = "CDRawDatas"
  22. For i = 1 To 25
  23.    
  24.     Workbooks.Open Filename:="W" & i
  25.            
  26.     Worksheets(1).Select
  27.     Range("B3:L19" ).Select
  28.     Selection.Copy
  29.     Windows("Swing Curve" ).Activate
  30.     Worksheets(3).Select
  31.     Cells(1 + 17 * Nbre, 2).Select
  32.     ActiveSheet.Paste
  33.     Cells(1 + 17 * Nbre, 1).Select
  34.     Application.CutCopyMode = False
  35.     ActiveCell.FormulaR1C1 = Nbre
  36.      
  38. Next i


 
  et j'ai déclaré tous mes liens comme  
 

Code :
  1. 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
 
 

Reply

Marsh Posté le 06-07-2004 à 22:20:56   

Reply

Marsh Posté le 07-07-2004 à 00:30:33    

rapidement comme çan c'est pas à causes des guillements autour du W de
Workbooks.Open Filename:="W" & i  
?

Reply

Marsh Posté le 07-07-2004 à 00:33:25    

ah non jdis une connerie :o

Reply

Marsh Posté le 07-07-2004 à 09:52:54    

On ne peut pas mettre un nom de variable en variable ! "W" est interprete comme une chaine, pas comme le debut du nom de variable.
 
Le mieux, c'est de declarer un tableau de strings à 25 entrées.
Dim W(0 to 24) as String
avec W(0) = fichier 1
etc...

Reply

Marsh Posté le 07-07-2004 à 13:10:49    

JiHemAir a écrit :

On ne peut pas mettre un nom de variable en variable ! "W" est interprete comme une chaine, pas comme le debut du nom de variable.
 
Le mieux, c'est de declarer un tableau de strings à 25 entrées.
Dim W(0 to 24) as String
avec W(0) = fichier 1
etc...


 
  OK merci je vais essayer ca  ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed