problème macro copie mais change mes nombres??

[chemist]

J'utilise une macro pour copier 3 colonnes de nombre d'un classeur a un autre. Comme les nombres sont écrit avec des . à la place des , (1.0 à la place de 1,0) je change les . par des , avec Selection.Replace et ensuite je copie mes nombres. Cependant excel change mais nombre par un facteur 1E6 pour la première colonne et 1E4 pour les 2 autres colonne.

Quanf je fait la même chose sans la macro tous fonctionne correctement

excel 2000
windows 98

voici la partie de ma macro qui fait ça

Cells.Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Columns('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Columns('A:A').Select
ActiveSheet.Paste


Si je mais le . à la place de la virgule comme symbole décimale (paramêtre régionaux) ca fonctionne. mais j'aimerais mieux garder la virgule comme séparateur décimale c'Est pourquoi j'avait opté de remplacer les points par des virgules.

Message édité par: chemist, à: 23/07/2005 05:56

 

[Bebere]

bonjour

enlève les 3 lignes suivantes

Cells.Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

'A:C' 'A:A' sélectionne des colonnes entières

au revoir

 

[chemist]

si j'enlève les 3 ligne il copie avec des points et excel prend ca pour du texte donc ne fait plus mais calcul???

 

[chemist]

j'ai essayé comme ca mais toujour le même résultat

Columns('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Columns('A:c').Select
ActiveSheet.Paste
Columns('A:C').Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Comme j'ai dit plus tot
ca fonctionne si j'enlève

Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

mais dans ce cas je doit changé dans windows dans paramètre régionaux, nombre, symbole décimale et mettre point à la place de virgule. mais je veux rester avec la virgule comme symbole décimale.

 

[Bebere]

bonjour Chemist

essayer sous win98se excel 2000

Sub Essai()
'tu changes ce que j'ai mis dans les guillemets

Windows('classeur ou tu copies.xls').Activate
Sheets('feuille ou tu copies').Activate
Range('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Sheets('feuille ou tu colles').Activate
Range('A:C').Select
Selection.PasteSpecial Paste:=xlValues

End Sub

à bientôt

 

[Bebere]

bonjour Chemist

essayer sous win98se excel 2000

Sub Essai()
'tu changes ce que j'ai mis dans les guillemets

Windows('classeur ou tu copies.xls').Activate
Sheets('feuille ou tu copies').Activate
Range('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Sheets('feuille ou tu colles').Activate
Range('A:C').Select
Selection.PasteSpecial Paste:=xlValues

End Sub

à bientôt

 

[chemist]

Bebere écrit:

bonjour Chemist

essayer sous win98se excel 2000

Sub Essai()
'tu changes ce que j'ai mis dans les guillemets

Windows('classeur ou tu copies.xls').Activate
Sheets('feuille ou tu copies').Activate
Range('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Sheets('feuille ou tu colles').Activate
Range('A:C').Select
Selection.PasteSpecial Paste:=xlValues

End Sub

à bientôt

merci mais je ne connais pas le nom du classeur d'avance car je fais ouvrir en boucle tous les fichiers d'un répertoire.

 

[chemist]

Bebere écrit:

bonjour Chemist

essayer sous win98se excel 2000

Sub Essai()
'tu changes ce que j'ai mis dans les guillemets

Windows('classeur ou tu copies.xls').Activate
Sheets('feuille ou tu copies').Activate
Range('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Sheets('feuille ou tu colles').Activate
Range('A:C').Select
Selection.PasteSpecial Paste:=xlValues

End Sub

à bientôt

merci mais je ne connais pas le nom du classeur d'avance car je fais ouvrir en boucle tous les fichiers d'un répertoire.

 

[bebere]

bonjour Chemist
dis moi si cela va ou as tu encore besoin d'aide
au revoir

 

[chemist]

bebere écrit:

bonjour Chemist
dis moi si cela va ou as tu encore besoin d'aide
au revoir

toujours le même problème

 

[chemist]

voic le fichier de ma macro

mettre dans windows/temp/macro si garde les même liens [file name=macros_xls.zip size=16540]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macros_xls.zip[/file]

 

[chemist]

voici également un des fichiers que je fois ouvrir (extextion .z)

mettre dans c:\\windows\\temp\\macro

[file name=1_Un1Ch3_z.zip size=1849]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1_Un1Ch3_z.zip[/file]

 

[chemist]

personne n'a de réponse ?