Discussion :

[MAD61141]

Bonjour à tous,
Je suis débutante en programmation VBA et je suis bloquée sur une macro qui fonctionne mais qui de temps en temps plante excel avec des messages du genre "Excel a cessé de fonctionner..." !
L'objectif de ma macro est le suivant :
- je saisis des infos sur un tableau de suivi,
- je clique ensuite sur un bouton "Préparation Facture" qui m'ouvre un user Form
- je remplis les champs nécessaires et en cliquant sur OK, les infos du userform et quelques infos de mon tableau de suivi sont copiés sur un onglet "Facture" (tjs dans le même fichier)
- cet onglet "Facture" est ensuite déplacé dans un fichier créé par la macro et qui portera le nom d'une variable (N.B. : le fichier est dans un autre répertoire)

Comme indiqué plus haut, cette macro marche bien , mais parfois bug ! soit Excel est planté, soit quand je clique sur le bouton de préparation facture, il me dit "Erreur d'exécution 75 ; l'objet est introuvable", alors que 2 minutes avant (lors de la préparation d'une autre facture) il n'y avait aucun problème.
Ne maitrisant pas la gestion d'erreur, je suis perdue, et je ne comprends pas ces erreurs aléatoires.

Pourriez-vous m'aider ?
Voici le bout de code lorsque je clique sur OK de mon userform.
Je vous remercie par avance pour votre aide précieuse, et vous prie de me pardonner si le code n'est pas écrit dans les règles de l'art... j'apprends doucement !

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
 
Sub CMBOK_Click()
 
Dim RepertoireFacture As String
 
RepertoireFacture = "C:\Users\POSTE-01\Documents\CONTROLE&MAITRISE\FACTURES\pre_facturation\CM"
 
Range("A1").Select
ActiveCell.Value = CMBChoixClient
ActiveCell.Font.ColorIndex = 2
 
Range("A17").Select
        ActiveCell.Value = "BON DE COMMANDE N° " & TXTNumCde
 
Range("A19").Select
    ActiveCell.Value = UCase(TXTObjetInter)
 
Range("A23").Select
    ActiveCell.Value = "Détails de l'intervention du " & TXTDateInter
 
 
Range("B36").Select
    ActiveCell.Value = CDec(CMBTVA)
 
'copier l'en-tête pour supprimer la formule RECHERCHEV
Range("J1:J4").Select
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Range("J1:J4").ClearContents
 
Range("A1").Select
'Sheets("FACTURE").Select
Sheets("FACTURE").Move
 
 
ActiveWorkbook.SaveAs Filename:=RepertoireFacture & TXTRefCM
 
ActiveWorkbook.Activate
 
 
UFPrepaFacture.Hide
Unload UFPrepaFacture

[mercatog]

Bonjour
Évite les Select et les Activecell.

Pour ton code, il peut être ré écrit comme ceci (sans aucune Select)
Je ne suis pas certain que le plantage viendrait de cela mais, au moins écrire correctement son 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
Sub CMBOK_Click()
Dim RepertoireFacture As String
 
RepertoireFacture = "C:\Users\POSTE-01\Documents\CONTROLE&MAITRISE\FACTURES\pre_facturation\CM"
With Worksheets("FACTURE")
    With .Range("A1")
        .Value = CMBChoixClient
        .Font.ColorIndex = 2
    End With
    .Range("A17").Value = "BON DE COMMANDE N° " & TXTNumCde
    .Range("A19").Value = UCase(TXTObjetInter)
    .Range("A23").Value = "Détails de l'intervention du " & TXTDateInter
    .Range("B36").Value = CDec(CMBTVA)
    'copier l'en-tête pour supprimer la formule RECHERCHEV
    .Range("B6:B9").Value = .Range("J1:J4").Value
    .Range("J1:J4").ClearContents
    .Copy
End With
 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=RepertoireFacture & "\" & TXTRefCM & ".xls", FileFormat:=xlNormal
Application.DisplayAlerts = True
 
Unload UFPrepaFacture
End Sub

[MAD61141]

Bonjour,

Merci mercatog pour ces modifications de code. C'est chose faite !

Par contre, effectivement, ça ne résoud pas mon problème de plantage. Je me retrouve avec les mêmes bugs aléotoires d'enregistrement ; parfois c'est quand je clique sur enregistrer et parfois c'est l'enregistrement automatique qui ne fonctionne pas.
Ce qui fait que je perds les dernières infos saisies.

Comment trouver l'origine du problème ?
Merci à tous pour vos idées !

[Irhok]

Salut,

J'ai eu le même plantage et depuis que j'ai enregistrer sous le format "excel prenant en charge les macros" plus de plantages !!

[parmi]

Bonjour,

Est-ce que tu valides les données avant de les utiliser ?
Comme ici

Code :

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

1
2
3
4
    With .Range("A1")
        .Value = CMBChoixClient
        .Font.ColorIndex = 2
    End With

Es-tu certaine que CMBChoixClient a bel et bien une valeur sélectionnée ?

NB: je présume que c'est un combobox...

[Edit] Attention aussi à faire la différence entre ActiveWorkbook (fichier actif) et ThisWorkbook (fichier contenant les macros)