Probleme macro sous Excel 2007

alyas -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Voila j'ai une macro qui marche bien en 2000 et 2003 (excel).
or lorsque je lance cette macro avec excel 2007 ca plante sur une instruction (toujours au même endroit un paste special).

le plantage se situe sur cette instruction (en rouge) (quand je veux coller les cellules de d'un fichier.txt):

Workbooks.OpenText Filename:="S:\download as400\ls\fichier.TXT", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="]", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), _
Array(21, 1), Array(22, 1), Array(23, 1))
Range("A2:x2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("calcul.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


Si quelqu'un a une idée, j'en serai reconnaissant
A voir également:

1 réponse

gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Comme tu veux faire un paste sur une sélection que tu n'as pas faite, considères que cela tient du miracle que cela fonctionne sur les anciennes versions.

En remplaçant Selection.PasteSpecial par Cells(1,1).PasteSpecial ou une autre cellule cela devrait mieux aller.
0