Discussion :

[Optimiss]

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 :

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
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!

[neupont]

Bonjour,
le plus rapide serait sans doute de mettre un "End" à la fin de ta fonction principale :

Code :

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

1
2
3
4
5
6
7
Private Sub Commande1_DblClick(Cancel As Integer)
 
DoCmd.RunMacro "Extraction vers excel"      'Lancement d'une Macro Access
Call gestion_excel
Call copienew
End
End Sub

[Optimiss]

Tout simple tout bête, mais super efficace!
Moi qui chercher un code hyper compliqué!!
Merci beaucoup Neupont !!