Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel COPIEZ COLLEZ POUR PLUSIEURS COLONNES

COPIEZ COLLEZ POUR PLUSIEURS COLONNES

7 réponses
Avatar
batieres
Bonjour à tous et à toutes,

Voici une macro permettant de copiez d'un fichier texte a une feuille excel.
Cette macro fonctionne tres bien.
Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un coté
pour les copiez de l'autre et la question sstructure je seche.
Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3

Merci d'avance


Sub copiercoller()


Workbooks.OpenText FileName:="c:\documents and
settings\bureau\Magali\inter.txt"
, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True _
, Comma:=False, _
Space:=False, Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1))

[e2:e950].Copy

Workbooks.Open ("documents and settings\bureau\Magali\inter.xls")
Sheets("DILICOM").Activate
[a3].PasteSpecial Paste:=xlPasteValues

End Sub


--
Avoir raison c''''est avoir le tort des autres
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour ,

Marcel ou Gilbert
...je sais plus ;-)
juste un détail pour les sujets du forum il est coutume de NE PAS
CRIER
bon revenons au souci de Gilles

A ta places je ferais l'extrait de txt à xls sans me poser de question
pour ensuite travailler
directement sur le fichier quand il est bien dans excel en tant que
xls
et à ce moment seulement je manipulerais mes colonnes.

Qu'en dis-tu?

--
lSteph


On 31 juil, 14:30, batieres
wrote:
Bonjour à tous et à toutes,

Voici une macro permettant de copiez d'un fichier texte a une feuille exc el.
Cette macro fonctionne tres bien.
Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un cot é
pour les copiez de l'autre et la question sstructure je seche.
Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3

Merci d'avance

Sub copiercoller()

Workbooks.OpenText FileName:="c:documents and
settingsbureauMagaliinter.txt"
, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
, Comma:úlse, _
Space:úlse, Other:úlse, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1))

[e2:e950].Copy

Workbooks.Open ("documents and settingsbureauMagaliinter.xls")
Sheets("DILICOM").Activate
[a3].PasteSpecial Paste:=xlPasteValues

End Sub

--
Avoir raison c''''est avoir le tort des autres


Avatar
batieres
Desolé pour le cri,

Le fichier est sorti d'un logiciel commercial en txt et deposez sur un
serveur en automatique voila pourquoi je reclame de l'aide pour finir ma
macro.

Merci d'avance!!
--
Avoir raison c''''est avoir le tort des autres


"lSteph" a écrit :

Bonjour ,

Marcel ou Gilbert
...je sais plus ;-)
juste un détail pour les sujets du forum il est coutume de NE PAS
CRIER
bon revenons au souci de Gilles

A ta places je ferais l'extrait de txt à xls sans me poser de question
pour ensuite travailler
directement sur le fichier quand il est bien dans excel en tant que
xls
et à ce moment seulement je manipulerais mes colonnes.

Qu'en dis-tu?

--
lSteph


On 31 juil, 14:30, batieres
wrote:
> Bonjour à tous et à toutes,
>
> Voici une macro permettant de copiez d'un fichier texte a une feuille excel.
> Cette macro fonctionne tres bien.
> Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un coté
> pour les copiez de l'autre et la question sstructure je seche.
> Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3
>
> Merci d'avance
>
> Sub copiercoller()
>
> Workbooks.OpenText FileName:="c:documents and
> settingsbureauMagaliinter.txt"
> , Origin:=xlWindows, _
> StartRow:=1, DataType:=xlDelimited, _
> TextQualifier:=xlDoubleQuote, _
> ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
> , Comma:úlse, _
> Space:úlse, Other:úlse, _
> FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
> 3, 1))
>
> [e2:e950].Copy
>
> Workbooks.Open ("documents and settingsbureauMagaliinter.xls")
> Sheets("DILICOM").Activate
> [a3].PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
> --
> Avoir raison c''''est avoir le tort des autres




Avatar
Christophe Mathon
Bonjour Gilbert,



Peut tu donner un fichier Txt exemple (même si tu change les valeurs, c pas
grave, je veux juste la structure).



Je ne comprends pas très bien "[L2:L950] sur b3 et [N2:N950] sur c3":

B3 et C3 sont les cellules à partir desquels il faut commencer à Coller?

Et [L2:L950], [N2:N950] c'est quoi?




--
Regards
Christophe Mathon
while(!(succeed=try()));


"batieres" wrote in message
news:
Desolé pour le cri,

Le fichier est sorti d'un logiciel commercial en txt et deposez sur un
serveur en automatique voila pourquoi je reclame de l'aide pour finir ma
macro.

Merci d'avance!!
--
Avoir raison c''''est avoir le tort des autres


"lSteph" a écrit :

Bonjour ,

Marcel ou Gilbert
...je sais plus ;-)
juste un détail pour les sujets du forum il est coutume de NE PAS
CRIER
bon revenons au souci de Gilles

A ta places je ferais l'extrait de txt à xls sans me poser de question
pour ensuite travailler
directement sur le fichier quand il est bien dans excel en tant que
xls
et à ce moment seulement je manipulerais mes colonnes.

Qu'en dis-tu?

--
lSteph


On 31 juil, 14:30, batieres
wrote:
> Bonjour à tous et à toutes,
>
> Voici une macro permettant de copiez d'un fichier texte a une feuille
> excel.
> Cette macro fonctionne tres bien.
> Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un
> coté
> pour les copiez de l'autre et la question sstructure je seche.
> Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3
>
> Merci d'avance
>
> Sub copiercoller()
>
> Workbooks.OpenText FileName:="c:documents and
> settingsbureauMagaliinter.txt"
> , Origin:=xlWindows, _
> StartRow:=1, DataType:=xlDelimited, _
> TextQualifier:=xlDoubleQuote, _
> ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
> , Comma:úlse, _
> Space:úlse, Other:úlse, _
> FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
> 3, 1))
>
> [e2:e950].Copy
>
> Workbooks.Open ("documents and settingsbureauMagaliinter.xls")
> Sheets("DILICOM").Activate
> [a3].PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
> --
> Avoir raison c''''est avoir le tort des autres






Avatar
lSteph
Bonjour Christophe,

c'est un peu comme Evaluate

[A1:A100] revient à envisager l'objet
Range("A1:A100")

Exemple:

[L2:L950].copy [B3]

ou encore

[N2:N950].copy [c3]


Cordialement.

--
lSteph

On 31 juil, 16:24, "Christophe Mathon" wrote:
Bonjour Gilbert,

Peut tu donner un fichier Txt exemple (même si tu change les valeurs, c pas
grave, je veux juste la structure).

Je ne comprends pas très bien "[L2:L950] sur b3 et [N2:N950] sur c3":

B3 et C3 sont les cellules à partir desquels il faut commencer à Coller?

Et [L2:L950], [N2:N950] c'est quoi?

--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" wrote in message

news:

> Desolé pour le cri,

> Le fichier est sorti d'un logiciel commercial en txt et deposez sur un
> serveur en automatique voila pourquoi je reclame de l'aide pour finir m a
> macro.

> Merci d'avance!!
> --
> Avoir raison c''''est avoir le tort des autres

> "lSteph" a écrit :

>> Bonjour ,

>> Marcel ou Gilbert
>> ...je sais plus ;-)
>> juste un détail pour les sujets du forum il est coutume de NE PAS
>> CRIER
>> bon revenons au souci de Gilles

>> A ta places je ferais l'extrait de txt à xls sans me poser de questi on
>> pour ensuite travailler
>> directement sur le fichier quand il est bien dans excel en tant que
>> xls
>> et à ce moment seulement je manipulerais mes colonnes.

>> Qu'en dis-tu?

>> --
>> lSteph

>> On 31 juil, 14:30, batieres
>> wrote:
>> > Bonjour à tous et à toutes,

>> > Voici une macro permettant de copiez d'un fichier texte a une feuill e
>> > excel.
>> > Cette macro fonctionne tres bien.
>> > Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un
>> > coté
>> > pour les copiez de l'autre et la question sstructure je seche.
>> > Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3

>> > Merci d'avance

>> > Sub copiercoller()

>> > Workbooks.OpenText FileName:="c:documents and
>> > settingsbureauMagaliinter.txt"
>> > , Origin:=xlWindows, _
>> > StartRow:=1, DataType:=xlDelimited, _
>> > TextQualifier:=xlDoubleQuote, _
>> > ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
>> > , Comma:úlse, _
>> > Space:úlse, Other:úlse, _
>> > FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
>> > 3, 1))

>> > [e2:e950].Copy

>> > Workbooks.Open ("documents and settingsbureauMagaliinter.xls ")
>> > Sheets("DILICOM").Activate
>> > [a3].PasteSpecial Paste:=xlPasteValues

>> > End Sub

>> > --
>> > Avoir raison c''''est avoir le tort des autres


Avatar
lSteph
Bonjour,

Oui c'est évident!
mais l'important c'était que tu répondes à ma petite question
subsidiaire
sinon en poursuivant cette logique puisque tu ne dis mot c'est que tu
es d'accord
avec le principe tu récupère ton fichier avec ta macro qui
marche ..maintenant!
puis
vois ce que j'ai indiqué à Christophe
puis tu delete la zone source selon le même principe
En évitant bienentendu les select inutiles.


@+

--
lSteph


On 31 juil, 16:05, batieres
wrote:
Desolé pour le cri,

Le fichier est sorti d'un logiciel commercial en txt et deposez sur un
serveur en automatique voila pourquoi je reclame de l'aide pour finir ma
macro.

Merci d'avance!!
--
Avoir raison c''''est avoir le tort des autres

"lSteph" a écrit :

> Bonjour ,

> Marcel ou Gilbert
> ...je sais plus ;-)
> juste un détail pour les sujets du forum il est coutume de NE PAS
> CRIER
> bon revenons au souci de Gilles

> A ta places je ferais l'extrait de txt à xls sans me poser de questio n
> pour ensuite travailler
> directement sur le fichier quand il est bien dans excel en tant que
> xls
> et à ce moment seulement je manipulerais mes colonnes.

> Qu'en dis-tu?

> --
> lSteph

> On 31 juil, 14:30, batieres
> wrote:
> > Bonjour à tous et à toutes,

> > Voici une macro permettant de copiez d'un fichier texte a une feuille excel.
> > Cette macro fonctionne tres bien.
> > Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un coté
> > pour les copiez de l'autre et la question sstructure je seche.
> > Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3

> > Merci d'avance

> > Sub copiercoller()

> > Workbooks.OpenText FileName:="c:documents and
> > settingsbureauMagaliinter.txt"
> > , Origin:=xlWindows, _
> > StartRow:=1, DataType:=xlDelimited, _
> > TextQualifier:=xlDoubleQuote, _
> > ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
> > , Comma:úlse, _
> > Space:úlse, Other:úlse, _
> > FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
> > 3, 1))

> > [e2:e950].Copy

> > Workbooks.Open ("documents and settingsbureauMagaliinter.xls" )
> > Sheets("DILICOM").Activate
> > [a3].PasteSpecial Paste:=xlPasteValues

> > End Sub

> > --
> > Avoir raison c''''est avoir le tort des autres


Avatar
lSteph
...attention aux coupures de lignes!

'''''dans un module standard
'''''du fichier qui appelle les deux autres:

''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Sub aaazz()
Dim fic1 As String
Dim fic2 As String
Workbooks.OpenText FileName:="c:documents and settingsbureauMagali
inter.txt", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
, Comma:úlse, _
Space:úlse, Other:úlse, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1))
fic1 = ActiveWorkbook.Name


Workbooks.Open (""documents and settingsbureauMagali
inter.xls"")

fic2 = ActiveWorkbook.Name

With Workbooks(fic1).Sheets(1)
.[e2:e950].Copy Workbooks(fic2).Worksheets("DILICOM").[a3]
.[L2:L950].Copy Workbooks(fic2).Worksheets("DILICOM").[b3]
.[N2:N950].Copy Workbooks(fic2).Worksheets("DILICOM").[c3]
End With

End Sub

'lSteph

On 31 juil, 14:30, batieres
wrote:
Bonjour à tous et à toutes,

Voici une macro permettant de copiez d'un fichier texte a une feuille exc el.
Cette macro fonctionne tres bien.
Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un cot é
pour les copiez de l'autre et la question sstructure je seche.
Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3

Merci d'avance

Sub copiercoller()

Workbooks.OpenText FileName:="c:documents and
settingsbureauMagaliinter.txt"
, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
, Comma:úlse, _
Space:úlse, Other:úlse, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1))

[e2:e950].Copy

Workbooks.Open ("documents and settingsbureauMagaliinter.xls")
Sheets("DILICOM").Activate
[a3].PasteSpecial Paste:=xlPasteValues

End Sub

--
Avoir raison c''''est avoir le tort des autres


Avatar
batieres
Desolé pour le retard de réponse mais sache que comme d'habitude cela
fonctionne à la perfection

Merci encore et bonne journée
--
Avoir raison c''''est avoir le tort des autres


"lSteph" a écrit :

...attention aux coupures de lignes!

'''''dans un module standard
'''''du fichier qui appelle les deux autres:

''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Sub aaazz()
Dim fic1 As String
Dim fic2 As String
Workbooks.OpenText FileName:="c:documents and settingsbureauMagali
inter.txt", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
, Comma:úlse, _
Space:úlse, Other:úlse, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1))
fic1 = ActiveWorkbook.Name


Workbooks.Open (""documents and settingsbureauMagali
inter.xls"")

fic2 = ActiveWorkbook.Name

With Workbooks(fic1).Sheets(1)
.[e2:e950].Copy Workbooks(fic2).Worksheets("DILICOM").[a3]
.[L2:L950].Copy Workbooks(fic2).Worksheets("DILICOM").[b3]
.[N2:N950].Copy Workbooks(fic2).Worksheets("DILICOM").[c3]
End With

End Sub

'lSteph

On 31 juil, 14:30, batieres
wrote:
> Bonjour à tous et à toutes,
>
> Voici une macro permettant de copiez d'un fichier texte a une feuille excel.
> Cette macro fonctionne tres bien.
> Le probleme c'est que je souhaiterais copiez plusieurs colonnes d'un coté
> pour les copiez de l'autre et la question sstructure je seche.
> Je souhaiterais avoir de [L2:L950] sur b3 et [N2:N950] sur c3
>
> Merci d'avance
>
> Sub copiercoller()
>
> Workbooks.OpenText FileName:="c:documents and
> settingsbureauMagaliinter.txt"
> , Origin:=xlWindows, _
> StartRow:=1, DataType:=xlDelimited, _
> TextQualifier:=xlDoubleQuote, _
> ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True _
> , Comma:úlse, _
> Space:úlse, Other:úlse, _
> FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
> 3, 1))
>
> [e2:e950].Copy
>
> Workbooks.Open ("documents and settingsbureauMagaliinter.xls")
> Sheets("DILICOM").Activate
> [a3].PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
> --
> Avoir raison c''''est avoir le tort des autres