NULenEXCEL77
XLDnaute Nouveau
Bonjour à tous,
C'est une première pour moi, je n'ai jamais eu à poser une question ds un Forum.
Seulement j'ai beau tourner, je ne fais qu'entrevoir la solution à mon problème.
Voici mon casse-tète:
Je voudrais lister tous mes fichiers .xls ( environ 300) avec leur lien hypertexte
et pour couronner le tout, une information en B2 de chaque classeur en dernière colonne.
J'ai tous bon pour ce qui est de lister avec lien , par contre les infos en B2, ouffffff.
J'ai une solution à savoir ce qui suit:
Sub test()
Dim Fich$, Feuil$, Cell As Range
Feuil = "TOP"
Set Cell = Range("B2")
Fich = Range("E3")
Range("F3").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E4")
Range("F4").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E5")
Range("F5").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E6")
Range("F6").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E7")
Range("F7").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E8")
Range("F8").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E9")
Range("F9").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E10")
Range("F10").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E11")
Range("F11").Value = GetValueWithADO(Fich, Feuil, Cell)
End sub
et cela sur 50 lignes
Ma question , on y vient:
Comment faire une macro plus compact faisant la mème chose en quelques lignes seulement avec en prime la possibilité de ne pas faire attention au cellule vide????
Merci pour votre aide future
N'hésitez pour toutes demandes d'info supplémentaire
C'est une première pour moi, je n'ai jamais eu à poser une question ds un Forum.
Seulement j'ai beau tourner, je ne fais qu'entrevoir la solution à mon problème.
Voici mon casse-tète:
Je voudrais lister tous mes fichiers .xls ( environ 300) avec leur lien hypertexte
et pour couronner le tout, une information en B2 de chaque classeur en dernière colonne.
J'ai tous bon pour ce qui est de lister avec lien , par contre les infos en B2, ouffffff.
J'ai une solution à savoir ce qui suit:
Sub test()
Dim Fich$, Feuil$, Cell As Range
Feuil = "TOP"
Set Cell = Range("B2")
Fich = Range("E3")
Range("F3").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E4")
Range("F4").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E5")
Range("F5").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E6")
Range("F6").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E7")
Range("F7").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E8")
Range("F8").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E9")
Range("F9").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E10")
Range("F10").Value = GetValueWithADO(Fich, Feuil, Cell)
Fich = Range("E11")
Range("F11").Value = GetValueWithADO(Fich, Feuil, Cell)
End sub
et cela sur 50 lignes
Ma question , on y vient:
Comment faire une macro plus compact faisant la mème chose en quelques lignes seulement avec en prime la possibilité de ne pas faire attention au cellule vide????
Merci pour votre aide future
N'hésitez pour toutes demandes d'info supplémentaire