Ouverture de deux classeurs VBA et copie de colonnes
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:
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 |
Citation:
Code erreur : Erreur d'éxécution '9'
L'indice n'appartient pas à la sélection
Ce code me renvoie à cette partie du code :
Code:
Workbooks("fichierfinal" ).Sheets(1).Range("A:A") = Workbooks("fichiersource" ).Sheets("1" ).Range("A:A" ).Value
Merci encore pour votre aide =)
