Selectionner fichier excel en vba

Version imprimable

Bonjour,

Dans un de mes programmes excel, je dois prendre des informations sélectionnées dans un ficher excel 1 : "DQ 8510 002 Plan d'action 1" pour le mettre dans un fichier excel 2 : "DQ 8510 002 Plan d'action 1" (c'est sur le fichier 2 que j'ai ma macro"

Pour ce faire je dois passer d'un fichier à l'autre et c'est là que j'ai pas mal de difficulté

voila le début de mon code

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
49
50
51
52
53
Private Sub CommandButton1_Click()
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim i As Integer
Dim j As Integer
Dim A As Integer
Dim b As Integer
 
 
' nom utilisateur
Name = "XXXX"
 
 
'destruction du plan d'action actuel
 
i = 6
 
While Cells(i, 1) <> ""
    Rows("i:i").Select
    Selection.Delete
    i = i + 1
Wend
 
 
 
'vérification de l'existance du plan d'action 2
 
If FichierExiste("M:\QSE\qualite\Processus amélioration\Plan d'action et fiche projet\DQ 8510 002 Plan d'action 1.xls") = True Then
 
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    appExcel.Visible = True
    Set wbExcel = appExcel.Workbooks.Open("M:\QSE\qualite\Processus amélioration\Plan d'action et fiche projet\DQ 8510 002 Plan d'action 1.xls")
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
 
    i = 6
    j = 6
    A = 6
    b = 1
 
 
    Windows("DQ 8510 002 Plan d'action 1.xls").activate' C'est à ce moment là que VBA bug et qu'il me met "erreur 9 , l'indice n'appartient pas à la sélection)
    Worksheets(1).Select
 
 
 
End If
 
End Sub

J'ai essayé le nom avec : "Microsoft Excel - DQ 8510 002 Plan d'action 1.xls", "DQ 8510 002 Plan d'action 1" et "Microsoft Excel - DQ 8510 002 Plan d'action 1" et rien ne marche, il fait toujours la même erreur

Merci d'avance

11/01/2010, 12h20
fgiambelluco

Bonjour

Cette erreur peut être due au fait que dans les paramêtres Windows, l'extension des fichiers est masquées.

Vérifie dans le menu fenêtre d'Excel si l'extension apparait ou pas .

;)

Bonjour,

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
Private Sub CommandButton1_Click()
 
Dim wbk As Workbook, awbk As Workbook 'Classeur Excel
Dim wsh As Worksheet 'Feuille Excel
Dim i As Integer, j As Integer, a As Integer, b As Integer
Dim NameUser As String, Classeur As String
 
' nom utilisateur
NameUser = "XXXX"
Classeur = "M:\QSE\qualite\Processus amélioration\Plan d'action et fiche projet\DQ 8510 002 Plan d'action 1.xls"
Set awbk = ThisWorkbook
 
'destruction du plan d'action actuel
Rows(6 & ":" & Cells(Rows.Count, 1).End(xlUp).Row).Clear
 
'vérification de l'existance du plan d'action 2
If FichierExiste(Classeur) Then
    Set wbk = Workbooks.Open(Classeur)
    'wsh correspond à la première feuille du fichier
    Set wsh = wbk.Worksheets(1)
    i = 6: j = 6: a = 6: b = 1
 
    'awbk  Classeur contenant la macro
    'wbk  Classeur DQ 8510 002
    'Par exemple awbk.worksheet(1).select!!
    'suite du code
 
 
    wbk.Close
    Set wsh = Nothing
    Set wbk = Nothing
End If
 
Set awbk = Nothing
End Sub