Les Trucs & Astuces Informatiques de Michel

http://michel.vergriete.perso.sfr.fr/accueil.htm
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Aide macro Excel

Aller en bas 
AuteurMessage
lololasticot



Nombre de messages : 1
Date d'inscription : 09/11/2007

MessageSujet: Aide macro Excel   Ven 9 Nov - 5:33

Bonjour,
j'essaie de créer une macro sous excel mais elle me semble complexe et je ne sais pas si c'est réalisable.

Je m'explique, j'ai un fichier excel contenant un champ par colonne(colonne A = NOM,colone B = coordonnées X,Colonne C = coordonnées Y).

Le but de la macro est de générer une fichier texte pour chaque ligne lue dans le fichier excel.

Cela permettra donc d'obtenir des fichiers texte contenant le nom, la coordonnée X et la coordonnée Y de chaque ligne lue dans Excel.

De plus, je dois trouver un moyen pour que chaque fichier texte prenne le nom d'un des champs lus (au hasard, le champ "NOM" :p).

Je suis pas un crack en programmation, et je ne trouve pas vraiment de solution.
Quelqu'un pourrait-il me donner des conseils ? Quelqu'un aurait-il déjà fait des macro de ce style ?
Est-ce réalisable ?
D'avance, merci pour vos réponses.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Liza60



Nombre de messages : 17
Date d'inscription : 29/03/2007

MessageSujet: Une proposition de solution   Lun 12 Nov - 9:01

Bonjour,

Admettant que les enregistrements soient dans une feuille, à partir de la ligne 1 (ligne des noms de champs en 1 et enregistrements à partir de la ligne 2), voici peut-être une réponse :

Bon courage, et en cas de souci, n'hésitez pas, je ferai une autre tentative.

Sub FicTxt()
'
' Range("A2").Select 'pointer 1 cellule de la base de données
Selection.CurrentRegion.Select 'Sélectionne tout le tableau
haut = Selection.Rows.Count 'compte le nombre de lignes du tableau
Prem = 2 ' déclare la 1ère ligne d'enregistrements
Workbooks.Add 'création d'un nouveau classeur, futurs Txt
For i = Prem To haut 'déclare une boucle de la ligne 1 à la dernière
Windows(2).Activate 'Affiche le classeur Base de données
NomBD = Cells(i, 1).Value 'Récupère le nom dans la colonne A ; i = la ligne ; 1 = colonne A
CpBD = Cells(i, 2).Value ' " " CP " " " B
VilBD = Cells(i, 3).Value ' " Ville " " C
Windows(2).Activate 'Affiche le nouveau classeur
Cells(1, 1) = NomBD 'Récupère les valeurs en A1, B1, C1
Cells(1, 2) = CpBD
Cells(1, 3) = VilBD
NomFichier = "C:\" & NomBD & ".txt" 'Mémorise le Nom pour le fichier
'Enregistre en Type Txt
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlText, CreateBackup:=False

Next
End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Aide macro Excel
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Transfert de wpts entre GPS et excel
» Feuille Excel convertisseur de coordonnées?
» probleme avec les cellules d'excel sur la mise en forme
» besion d'aide language html lecteur de musique !! (Résolu)
» Macro sons/autorail en mode horaire

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Les Trucs & Astuces Informatiques de Michel :: Bureautique-
Sauter vers: