Plantage d'Excel pendant éxécution macro
cs_R55
Messages postés
5
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
26 avril 2005
-
21 avril 2005 à 13:34
cs_R55 Messages postés 5 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 26 avril 2005 - 21 avril 2005 à 15:29
cs_R55 Messages postés 5 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 26 avril 2005 - 21 avril 2005 à 15:29
A voir également:
- Plantage d'Excel pendant éxécution macro
- Erreur d'execution 424 ✓ - Forum Visual Basic 6
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Macro excel ✓ - Forum Visual Basic 6
- Supprimer bouton macro excel ✓ - Forum VB.NET
- Activer macro outlook - Forum Visual Basic
2 réponses
nostra78
Messages postés
137
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
6 décembre 2005
21 avril 2005 à 15:05
21 avril 2005 à 15:05
Va dans l'éditeur vba et réalise une exécution pas à pas. T'as du avoir une ptite modif qui fait bader le tout.
cs_R55
Messages postés
5
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
26 avril 2005
21 avril 2005 à 15:29
21 avril 2005 à 15:29
Salut nostra78.
Je l'avais déjà fait. il n'y a eu aucune modif dans le code (n'étant pas le seul utilisateur, je l'ai protégé par mot de passe).
J'ai oublié un détail important, c'est que ce code fonctionne parfaitement sur d'autres machines... mais plus sur la mienne !
Voici le morceau de code où ça plante :
<hr size= "2" width="100%">Set fs = CreateObject("Scripting.FileSystemObject")
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim dsheet As String
Dim chemin As String
chemin = ActiveWorkbook.Sheets("datas").Cells(1, 7).Value & ""
dsheet = chemin & Cells(ActiveCell.Row, 1).Value & ".doc"
If fs.FileExists(dsheet) Then
Set wordApp = CreateObject("Word.Application")
If wordApp.Documents.Open(dsheet).chk_approved.Value = True Then
wordApp.Visible = False
wordApp.Documents.Open(dsheet).Close
Cells(ActiveCell.Row, 10).Value = "YES"
Set wordDoc = wordApp.Documents.Open(dsheet, ReadOnly:=True)
etc...
<hr size="2" width="100%">Excel plante dès qu'il a éxécuté la ligne bleue soulignée...
Je ne comprends pas du tout ce qu'il se passe !...
Une idée ?...
Je l'avais déjà fait. il n'y a eu aucune modif dans le code (n'étant pas le seul utilisateur, je l'ai protégé par mot de passe).
J'ai oublié un détail important, c'est que ce code fonctionne parfaitement sur d'autres machines... mais plus sur la mienne !
Voici le morceau de code où ça plante :
<hr size= "2" width="100%">Set fs = CreateObject("Scripting.FileSystemObject")
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim dsheet As String
Dim chemin As String
chemin = ActiveWorkbook.Sheets("datas").Cells(1, 7).Value & ""
dsheet = chemin & Cells(ActiveCell.Row, 1).Value & ".doc"
If fs.FileExists(dsheet) Then
Set wordApp = CreateObject("Word.Application")
If wordApp.Documents.Open(dsheet).chk_approved.Value = True Then
wordApp.Visible = False
wordApp.Documents.Open(dsheet).Close
Cells(ActiveCell.Row, 10).Value = "YES"
Set wordDoc = wordApp.Documents.Open(dsheet, ReadOnly:=True)
etc...
<hr size="2" width="100%">Excel plante dès qu'il a éxécuté la ligne bleue soulignée...
Je ne comprends pas du tout ce qu'il se passe !...
Une idée ?...