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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupération de nom de fichiers et chemin en VBA

raphdasouth

Eplucheur de jujubes...

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

Publicité

glod 2

Votre trajet, notre projet.

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

glod 2

Votre trajet, notre projet.

ah non jdis une connerie

JihemAir

Je sais pas

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...

raphdasouth

Eplucheur de jujubes...

JiHemAir a écrit :

OK merci je vais essayer ca

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Cacher les fichiers images,gfx,sons utilisés dans une appli (un jeu)?	[VBA] Valeur dans une tableau dynamique
Conseils programmation VBA - Comment résoudre mon problème !	Besoin d aide pour une macro excel / VBA svp
Filtre elaboré vba excel	[Business Objects] Lancement de fonctions vba
[VBA] Donne la main au fichier créer	heure minute seconde en vba pas syncroniser avec le system
vba exel ( comment ferme une feuille d'un classeur ouvert exel)
Plus de sujets relatifs à : Récupération de nom de fichiers et chemin en VBA

Page générée en 0.045 secondes