Discussion :

[cadouxmi]

Bonjour,

J'utilisais jusqu'à maintenant des outils excel 2003 avec des macros me permattant d'ouvrir des fichiers . J'ai converti ces fichiers en Excel 2007 , j'essaie d'utiliser les macros et j'ai régulièrement des pbs - Excel se ferme automatiquement .
Je spécifie que j'ai transformer toutes mes commandes dans les macros de XXX.XLS en XXX.XLSM .

Si j'utilise ces macros en "pas à pas " cela fonctionne toujours correctement .
Si je clique sur le bouton lançant la macro cela se plante 2 fois sur 3 .

Peut on remédier à ce problème ?

Par avance merci pour votre aide .

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Il faudrait que tu nous mettes le code pour que l'on puisse connaître la partie de code où cela coince, car sans cela

Philippe

[cadouxmi]

Bonjour,

Ci joint une des macros concernées.
Je précise que cette macro est enregistrée dans le fichier "Technique" et est lancée depuis le fichier "CCM_developpement".

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
Sub aa_ouvre_dev_comm()
'
' aa_ouvre_dev_comm Macro
' Macro enregistrée le 08/02/2008 par Cadoux Michel
' Passage vista le 13/02/09
 
'
 Application.ScreenUpdating = False
    Workbooks.Open ThisWorkbook.Path & "\IMAGE_SYNTHESE.xlsm" _
    , UpdateLinks:=0
 
    Windows("IMAGE_SYNTHESE_CCM_DEVELOPPEMENT.xlsm").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Workbooks.Open ThisWorkbook.Path & "\IMAGE_SYNTHESE_CCM_DEV_COMM.xlsm" _
    , UpdateLinks:=0
    Windows("IMAGE_SYNTHESE_TECHNIQUE.xlsm").Activate
    Range("B2").Select
    Selection.Copy
    Windows("IMAGE_SYNTHESE_CCM_DEV_COMM.xlsm").Activate
    Range("e2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("IMAGE_SYNTHESE_TECHNIQUE.xlsm").Activate
    Range("a7").Select
    Selection.Copy
    Windows("IMAGE_SYNTHESE_CCM_DEV_COMM.xlsm").Activate
    Range("l2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
 
    Windows("IMAGE_SYNTHESE.xlsm").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Windows("IMAGE_SYNTHESE_CCM_DEV_COMM.xlsm").Activate
 
End Sub

Par avance merci et bonne semaine