Code qui ne fonctionne qu'une fois sur 2!
Bonjour à tous,
Nouvelle sur le forum, j'espère que je ne ferais pas d'erreur de langage!
Je vous explique :
- j'ai une requête qui me donne des références avec besoins et ressources
- Extraction vers excel "Données globales"
- Copie vers classeur "Mise en page"
- Copie de ce classeur "Mise en page" dans un nouveau classeur avec rupture des liens
Voici 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
|
'//////////////////////////////////////////////
Private Sub Commande1_DblClick(Cancel As Integer)
DoCmd.RunMacro "Extraction vers excel" 'Lancement d'une Macro Access
Call gestion_excel
Call copienew
End Sub
'//////////////////////////////////////////////
Private Sub gestion_excel()
'Gestion des fichiers Excel
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Excel
Set appExcel = CreateObject("Excel.Application")
'Ouverture des fichiers Excel
Set wbExcel = appExcel.Workbooks.Open("d:\data\Gestion de contrat\données globales")
Set wbExcel = appExcel.Workbooks.Open("d:\data\Gestion de contrat\détail")
Set wbExcel = appExcel.Workbooks.Open("d:\data\Gestion de contrat\Mise en page")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
'Rendre Excel visible
appExcel.Visible = True
End Sub
'//////////////////////////////////////////////
Private Sub copienew()
'Copier Mise en page dans new classeur
Worksheets("Mise en page").Copy
'Supprimer les liens
ActiveWorkbook.BreakLink Name:="D:\data\Gestion de contrat\Détail.XLS", Type _
:=xlExcelLinks
ActiveWorkbook.BreakLink Name:= _
"D:\data\Gestion de contrat\Données globales.xls", Type:=xlExcelLinks
End Sub |
Mon soucis est que le code ne fonctionne qu'une fois sur 2!!
En somme je lance 1 fois, ça marche, la seconde => Erreur 1004 - La méthode Worksheets (ou sheets j'ai essayé) a échoué.
Si je fais Fin, le code fonctionne la fois suivante.
Si je fais débogage, fonctionne pas la fois suivante.
Par avance merci pour votre aide!
