Discussion :

[Spiye]

Bonjour
Merci d'avance pour votre aide.
J'ai un fichier source que je dois récupérer dans un répertoire dont le nom est toujours différent (exemple : Toto 1565121)
Ensuite je dois ouvrir un nouveau fichier Excel et copier uniquement les colonnes A et B du fichier Toto dans celui ci pour ensuite l'enregistrer.

J'ai réalisé ce code mais lorsque j'exécute celui-ci il m'affiche une erreur :

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
42
43
44
45
46
47
48
Sub copiecolonneclasseur()
 
 
Dim Fichier As String, Repertoire As String
 
Dim fichiersource As Workbook
Dim fichierfinal As Workbook
 
Dim Repsauvegarde As String
 
 
 
'ouvre du fichier toto
 
    Repertoire = "C:\XXXX\XXXX\"
    Fichier = Dir(Repertoire & "toto*.xlsx")
 
'fichier toto trouvé
 
If Len(Fichier) > 0 Then
   Workbooks.Open Filename:=Repertoire & Fichier
   Set fichiersource = ActiveWorkbook
 
 
'ouverture du nouveau excel 
 
Workbooks.Add
Set fichierfinal = ActiveWorkbook
 
'copie excel source vers excel final
 
Workbooks("fichierfinal" ).Sheets(1).Range("A:A") = Workbooks("fichiersource" ).Sheets("1" ).Range("A:A" ).Value
Workbooks("fichierfinal" ).Sheets(1).Range("B:B") = Workbooks("fichiersource" ).Sheets("1" ).Range("B:B" ).Value
 
'sauvegarde du fichier excel
 
Repsauvegarde = "C:\XXXXXXX"
fichierfinal.SaveAs Repsauvegarde
 
End If
 
'si le fichier source n'est pas trouvé
If Len(Fichier) = 0 Then
    MsgBox "Le fichier source n'a pas été trouvé !"
 
End If
 
End Sub

Code erreur : Erreur d'éxécution '9'
L'indice n'appartient pas à la sélection

Ce code me renvoie à cette partie du code :

Code :

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

Workbooks("fichierfinal" ).Sheets(1).Range("A:A") = Workbooks("fichiersource" ).Sheets("1" ).Range("A:A" ).Value

Merci encore pour votre aide =)

[EricDgn]

Bonjour,

Sans doute ceci, fichierfinal et fichiersource étant déjà des Worksbooks:

Code :

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

1
2
  fichierfinal.Sheets(1).Range("A:A") = fichiersource.Sheets(1).Range("A:A").Value
  fichierfinal.Sheets(1).Range("B:B") = fichiersource.Sheets(1).Range("B:B").Value

Attention: Sheets(1) <> Sheets("1")

Cordialement.