Discussion :

[ARTETA13]

Bonjour,

Erreur 9 l'indice n'appartient pas à la selection.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton1_Click()
Dim Rep As String, Fichier As String, shortfichier As String, longfichier As String
 
Fichier = Application.GetOpenFilename
If VarType(Fichier) = vbBoolean Then Exit Sub
Workbooks.Open Fichier
 
    For i = Len(Fichier) To 1 Step -1
      If Mid(Fichier, i, 1) = "\" Then Exit For
        Next
    shortfichier = Mid(Fichier, i + 1, Len(Fichier) - i - 4)
    longfichier = shortfichier & ".csv"
 
Windows(longfichier).Activate
    Application.WindowState = xlNormal
    Application.WindowState = xlMaximized
    Sheets(shortfichier).Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=True, Space:=False, Other:=False, 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), Array(24, 1), Array(25, 1)), _
        TrailingMinusNumbers:=True
    Sheets(shortfichier).Select
    Sheets(shortfichier).Range("A3:H1000").Select
    Selection.Copy
 
Windows("ABA.xlsm").Activate
Sheets("feuil2").Select
Sheets("feuil2").Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 
Application.CutCopyMode = False
Workbooks(longfichier).Close Savechanges:=False
 
Sheets("factura").Select
 
End Sub

mon erreur intervient à ce moment la:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(shortfichier).Columns("A:A").Select

[Theze]

Bonjour,

Ceci veut dire que le classeur actif ne contient pas de feuille nommée de la chaîne "shortfichier" ! Vérifie la bonne orthographe avec un MsgBox après la construction du nom -> "shortfichier = Mid(Fichier, i + 1, Len(Fichier) - i - 4)"

Hervé.

[ARTETA13]

Oui tu as raison.
Le nom qu'il me renvoie n'est pas le même.
Comment faire pour qu'il soit le même.
Comment faire pour qu'il me sectionne dans mon fichier csv que j'essaye d'ouvrir le bon onglet.
merci.