Copier à partir d'un format CVS

JCGL

XLDnaute Barbatruc

• 16 Avril 2009

• #2

Re : Copier à partir d'un format CVS

Bonjour à tous,

Peux-tu essayer en enlevant :

Code:

Columns("A:A").Select

de ton code

A+ à tous

 

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 16 Avril 2009

• #3

Re : Copier à partir d'un format CVS

Bonsoir JCGL,

Je pense que tu voulais dire columns("A:E")...

J'ai fait le test et le résultat obtenu ne concerve pas la mise en forme de départ...

@+ à tous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Avril 2009

• #4

Re : Copier à partir d'un format CVS

Bonjour à tous,

Par en enlevant :

Code:

Columns("A:A").Select

Je voulais dire en enlevant :

Code:

Columns("A:A").Select

......

Essaye avec :

Code:

Sub Macro3()

    Workbooks.Open Filename:="C:\PMGI\Charge.csv"
    Columns("A:E").Copy
    Windows("Classeur1.xls").Activate
    ActiveSheet.Paste

End Sub

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 16 Avril 2009

• #5

Re : Copier à partir d'un format CVS

Bonsoir,

Tu peux essayer ceci (peut dependre de la version d'Excel) :

Sub Test() 'On considere que Classeur1.xls est deja ouvert
Chemin = ThisWorkbook.Path 'A modifier
Workbooks.OpenText Filename:=Chemin & "\Charge.csv", DataType:=xlDelimited, other:=True, otherchar:=";", local:=True
ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy Workbooks("Classeur1.xls").Sheets(1).Range("A1")
End Sub

 

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 17 Avril 2009

• #6

Re : Copier à partir d'un format CVS

Bonjour à tous les deux,

Concernant ton code JCLG, j'ai fait la modif mais j'obtient le même résultat...

Pour Catrice,j'ai adapté ton code par:

Sub Macro2()
'
'
'
Workbooks.OpenText Filename:="C:\PMGI\Charge.csv",DataType:=xlDelimited, other:=True,otherchar:=";", local:=True
Columns("A:E").Select
Selection.Copy
Windows("Classeur1.xls").Activate
Sheets("Feuil1").Range("A1").Select
ActiveSheet.Paste
Windows("Charge.csv").Activate
ActiveWindow.Close
End Sub

Et ça fonctionne plutot pas mal...

Merci à tous les deux...c'est chouette

@+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 17 Avril 2009

• #7

Re : Copier à partir d'un format CVS

Bonjour,

Ceci fontionne aussi et evite les Activate :

Sub Macro2()
Workbooks.OpenText Filename:="C:\PMGI\Charge.csv", DataType:=xlDelimited, other:=True, otherchar:=";", local:=True
Columns("A:E").Copy Workbooks("Classeur1.xls").Sheets("Feuil1").Range("A1")
Workbooks("Charge.csv").Close False
End Sub

 

Vote positif 0 Vote négatif