[Resolu] Existe?

[Resolu] Existe? - VB/VBA/VBS - Programmation

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
Reply

Marsh Posté le 27-07-2005 à 16:32:13   

Reply

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


 
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

Reply

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"


Message édité par OyT le 27-07-2005 à 17:01:28
Reply

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 :bounce:

Reply

Marsh Posté le 28-07-2005 à 09:13:59    

merci c exactement ca que je cherhcé mais jla va pas trouvé sur le forum... ^^

Reply

Sujets relatifs:

Leave a Replay

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