[Resolu] Existe? - VB/VBA/VBS - Programmation
Marsh Posté le 27-07-2005 à 16:40:58
OyT a écrit : voila jvoudrai ouvrir plusieur fichiers excel a partir de mon premier mais jvoudrait pouvoir tester q'ils existe tous car g entre 1 et 4 fichiers mais le nombre est variant dc comment faire pour traduire cet algo? |
un booléen peut faire le travail
tu les ouvres si le booléen est a true...
sinon ca ca te sert à verifier si une feuille existe, et a l'ouvrir auquel cas, ou alors de la crééer, meme topo pour des fichiers
Sub SelectFeuille(Nom$)
On Error Resume Next
Worksheets(Nom).Select
If Err <> 0 Then Worksheets.Add.Name = Nom
End Sub
Marsh Posté le 27-07-2005 à 17:00:42
je n'ai pas bien compris... et je ne veux pas creer de nouveau fichier jveux juste saavoir si il existe: j'ai en fait
ActiveWorkbook.FollowHyperlink Address:= _
"fichier1.xls" _
, NewWindow:=False, AddHistory:=True
Application.Run "'fichier2.xls'!MonSub"
pareil pour les fichiers 3 et 4
mon problème et de savoir si c fichier 2,3,4 existe sinon ca me retourne un erreur ce qui est normal.
je ve dc arriver a un truc de genre:
If fichier2.xls existe
ActiveWorkbook.FollowHyperlink Address:= _
"fichier1.xls" _
, NewWindow:=False, AddHistory:=True
Application.Run "'fichier2.xls'!MonSub"
Marsh Posté le 27-07-2005 à 18:23:53
tu fais un test d'existence
http://forum.hardware.fr/hardwaref [...] 8318-1.htm
et youpla boum
Marsh Posté le 28-07-2005 à 09:13:59
merci c exactement ca que je cherhcé mais jla va pas trouvé sur le forum... ^^
Marsh Posté le 27-07-2005 à 16:32:13
voila jvoudrai ouvrir plusieur fichiers excel a partir de mon premier mais jvoudrait pouvoir tester q'ils existe tous car g entre 1 et 4 fichiers mais le nombre est variant dc comment faire pour traduire cet algo?
si le fichier 2 existe l'ouvrir
si le fichier 3 existe l'ouvrir
si le fichier 4 existe l'ouvrir
merci
ps: je c ouvrir les fichiers
Message édité par OyT le 28-07-2005 à 17:10:15