Boucles , tableaux , et fichiers .wri avec VB

Fermé
Stogam Messages postés 1 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 22 novembre 2007 - 22 nov. 2007 à 08:27
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 22 nov. 2007 à 12:06
Bonjour à tous et à toutes,

Voilà je débute dans Visual Basic et j'ai un petit problème :

J'ai plusieurs fichiers .wri dans un dossier ( numerotés à la suite : 1.wri , 2.wri , etc ... le nombre pouvant varier entre 1 et 9 ) et je souhaiterai les transformer en un seul grand tableau dans Excel .

J'vais donc pensé faire une boucle qui :

1) prends le 1er fichier , le transforme en tableau ( ça excel sait faire ) .
2) prends le 2eme fichier , le transforme en tableau et le colle au premier
3) prends le 3eme fichier , le transforme en tableau , le colle aux 2 autres , etc ...

Pourriez-vous m'aider à faire celà ou au moins à réaliser des boucles avec VB parce que là franchement je galère !

Par avance merci pour votre aide .

Stogam
A voir également:

1 réponse

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
22 nov. 2007 à 12:06
Bonjour,

NumLigneExcel = 1

Pour Chaque Fichier .wri

  Ouvrir Fichier .wri en mode Insert
  
  Faire lecture ligne Fichier .wri
       Inserer Ligne Lu dans Feuille Excel à la ligne NumLigneExcel
       NumLigneExcel = NumLigneExcel +1
  Jusqu'a fin du Fichier .wri

 Fermer Fichier .wri
Fin Four
0