Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

changement feuille sur macro auto

1 réponse
Avatar
bourgouinkristof
Bonjour,
la macro suivante plante Erreur d'ex=E9cution 9 L'indice n'appartient
pas =E0 la s=E9lection.
Dans le classeur macro-auto-toto.xls, j'ai la macro suivante qui
s'ex=E9cute directement =E0 l'ouverture du fichier excel :
Private Sub Workbook_Open()
Workbooks.OpenText Filename:=3D _
"C:\TEST\toto.txt", Origin:=3DxlMSDOS _
, StartRow:=3D1, DataType:=3DxlDelimited, TextQualifier:=3DxlNone, _=

ConsecutiveDelimiter:=3DFalse, Tab:=3DFalse, Semicolon:=3DTrue,
Comma:=3DFalse _
, Space:=3DFalse, Other:=3DFalse, FieldInfo:=3DArray(Array(1, 2),
Array(2, 2), _
Array(3, 2), Array(4, 1), Array(5, 1)),
TrailingMinusNumbers:=3DTrue
Rows("1:1").Select
Selection.Insert Shift:=3DxlDown
Range("A1").Value =3D "Y/Z"
Range("B1").Value =3D "Region"
Range("C1").Value =3D "Lib Region"
Range("D1").Value =3D "En panne"
Range("E1").Value =3D "Total"
Rows("1:1").Select
Selection.Copy
Application.CutCopyMode =3D False
Sheets("toto").Copy After:=3DSheets(1)
End Sub

Je suppose qu'il ne trouve pas la feuille toto qu'il a cr=E9=E9 lui m=EAme
lors de l'import des donn=E9es dans le classeur toto.txt
Si c'est =E0 cause de cel=E0 ... comment lui dire que la feuille se trouve
dans ce classeur ?

Si je suppose mal ... quelqu'un a t'il une solution ?

Merci =E0 tous.

1 réponse

Avatar
francois.forcet
Salut à toi

A la place de :

Sheets("toto").Copy After:=Sheets(1)

Mets cette ligne :

Workbooks("toto.txt").Sheets("toto").Copy After:=Sheets(1)

Celà devrait mieux fonctionner

Dis moi !!!!