Supra3000
Messages postés159Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention 8 janvier 20102 10 sept. 2008 à 17:47
T'as mal compris la question, je veux pas récup le name d'un workbook au autre fichier, je veux récuperer la fin d'une string qui contient un path exemple :
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 10 sept. 2008 à 20:49
Bonjour à tous les 2 ,
bigfish_le vrai ,on peux aussi de cette façon:
---------------------------------------------------------------
'Dans Menu outils\Références , active
'Microsoft Scripting Runtime"
Dim monfichier
Dim monchemin
Dim fso As New Scripting.FileSystemObject
monchemin = "C:\blabla\autredossierinutile\nomdufichier.doc"
monfichier = fso.GetFileName(monchemin)
----------------------------------------------------------------
A+
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 11 sept. 2008 à 07:27
Bonjour ,
je n'ai jamais de probleme avec cette programmation.
Pour vérifier qu'un fichier existe:
Dim fso As New Scripting.FileSystemObject
If fso.FileExists("C:\blabla\autredossierinutile\nomdufichier.doc") = True Then
'Ecrire code'
End If
Si PCPT peut nous expliquer le problème ?
Salut
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 11 sept. 2008 à 09:35
Salut,
>[../auteur/DEDENET2/1117226.aspx dedenet2] : ce n'est pas une question de problème mais de ressources. FSO est très gourmand en ressources, et certes il parait peu etre plus simple d'utilisation mais il sera plus "lent"
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 11 sept. 2008 à 19:47
Salut ,
Jrivet , OK
Utilisation de fso surtout en boucle pour notamment faire des recherches
de fichiers dans les dossiers et sous-dossiers est donc à deconseiller.
Merci pour cette info.
A++