Probleme macro sous Excel 2007

Fermé
alyas - 11 févr. 2009 à 15:05
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 11 févr. 2009 à 15:41
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 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 717
11 févr. 2009 à 15:41
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