Re : L' OUVERTURE DU FICHIER ne fonctionne pas probleme dans le code vba merci
Bonjour pierre jean
merci bcp pour ton aide j'ai testé mais j'ai une erreur ligne = Dir est en jaune
Private Sub CommandButton1_Click()
'x = GetDirectory
'x = (ThisWorkbook.path & "\") '"J:\MarcylEtoile\DGIndust\Batiment T5\Documentation T5 applicable\T5-ORG\5_Modèles\"
ligne = Dir("J:\MarcylEtoile\DGIndust\Batiment T5\Documentation T5 applicable\T5-ORG\5_Modèles\*.*")
x = Left(ligne, Len(ligne) - 3)
'Ou bien en indiquant directement le path et le type de fichier
'Dir("C:\ajeter\*.xls") ou Dir("C:\ajeter\*.doc")
'ou tous les types :
'ligne = Dir("C:\ajeter\*.*")
Dir (ligne)
Do While ligne <> ""
DoEvents
ligne = Dir CETTE LIGNE EST EN JAUNE
ListBox1.AddItem ligne
Loop
End Sub
RICOU