table excel97 sous format texte?!

Salut,

voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value =
FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub

=> une fois que tu as lancé la macro, il te suffira juste
d'enregistrer la nouvelle feuille sous le format Text

Est-ce que cette solution te va ?

-----Message d'origine-----
Bonjour,
Ayant seulement des bases en excel97.Mon entreprise me
demande de sortir une table excel97 sous format texte,
mais non pas avec un espace(.prn) ou une tabulation en
séparateur(entre chaque cellule), mais un retour a la
ligne.Pouvez vous me donner le moyen d'y parvenir?
Merci d'avance.

.

Salut,
Je vais l'essayer...
merci beaucoup..@+ tard.

-----Message d'origine-----
Salut,

voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value =
FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub

=> une fois que tu as lancé la macro, il te suffira
juste

d'enregistrer la nouvelle feuille sous le format Text

Est-ce que cette solution te va ?

-----Message d'origine-----
Bonjour,
Ayant seulement des bases en excel97.Mon entreprise me
demande de sortir une table excel97 sous format texte,
mais non pas avec un espace(.prn) ou une tabulation en
séparateur(entre chaque cellule), mais un retour a la
ligne.Pouvez vous me donner le moyen d'y parvenir?
Merci d'avance.

.

.

-----Message d'origine-----
Salut,

voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value =
FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub

=> une fois que tu as lancé la macro, il te suffira
juste

d'enregistrer la nouvelle feuille sous le format Text

Est-ce que cette solution te va ?

Salut,

Cette soluce me vas mais ou est-ce que j'integre la macro?
désolé je découvre)..et aussi ou est-ce que je la lance?
j't'en remercie d'avance...

Pour accéder à l'éditeur Vba, 2 solution :
- menu "outils" => "Macro" => "Visual Basic Editor"
- Alt + F11

Après tu dois insérer le bout de code dans un module.
Pour le créer faire :
- Dans la fenetre "Projet - VBA Project" faire un clic
droit puis selectionner "Insertion" => "Module"

Maintenant, il suffit de faire un copier/coller de la
macro que je t'ai filé dans le module que tu viens de
créer.

Ensuite, il faut lancer la macro :
- retourner sous Excel puis faire menu "outils"
=> "Macro" => "Macros..."

ça te va ?

-----Message d'origine-----

-----Message d'origine-----
Salut,

voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value =
FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub

=> une fois que tu as lancé la macro, il te suffira
juste

d'enregistrer la nouvelle feuille sous le format Text

Est-ce que cette solution te va ?

Salut,

Cette soluce me vas mais ou est-ce que j'integre la
macro?

désolé je découvre)..et aussi ou est-ce que je la lance?
j't'en remercie d'avance...
.

Bonjour,

Il y a une troisième solution, qui consiste à afficher la
barre d'outils "Visual Basic", par

"Affichage, Barre d'outils, Visual Basic"

Celle-ci permet aussi de lancer ou d'exécuter une macro

Plus de détails ici :

http://www.gaboly.com/VBA/IntroVBA.html

Pour accéder à l'éditeur Vba, 2 solution :
- menu "outils" => "Macro" => "Visual Basic Editor"
- Alt + F11

Après tu dois insérer le bout de code dans un module.
Pour le créer faire :
- Dans la fenetre "Projet - VBA Project" faire un clic
droit puis selectionner "Insertion" => "Module"

Maintenant, il suffit de faire un copier/coller de la
macro que je t'ai filé dans le module que tu viens de
créer.

Ensuite, il faut lancer la macro :
- retourner sous Excel puis faire menu "outils"
=> "Macro" => "Macros..."

ça te va ?

-----Message d'origine-----

-----Message d'origine-----
Salut,

voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value > >>FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub

=> une fois que tu as lancé la macro, il te suffira
juste

d'enregistrer la nouvelle feuille sous le format Text

Est-ce que cette solution te va ?

Salut,

Cette soluce me vas mais ou est-ce que j'integre la
macro?

désolé je découvre)..et aussi ou est-ce que je la lance?
j't'en remercie d'avance...
.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com