XL 2013 erreur d'execution '-2147018887 (80071779)'

[dido974]

Bonjour,

J'ai cette erreur quand je lance une macro/VBA
erreur d'execution '-2147018887 (80071779)'
Document non enregistré.

Des fois cela fonctionne et des fois non.
Ci-joint les erreurs que j'ai.

Pouvez-vous m'aider à résoudre ce problème?

Par avance merci de votre aide

 

[job75]

Bonjour dido974,

Chez moi le seul bug que j'observe c'est quand ThisWorkbook n'est pas le fichier actif.

Donc commencez par ajouter ThisWorkbook.Activate :

sFile = Application.DefaultFilePath & "\" & _
    ThisWorkbook.Name & ".pdf"
ThisWorkbook.Activate
ThisWorkbook.Sheets(Array("Order", "AGB DB")).Select

Ensuite essayez l'export avec OpenAfterPublish:=False

Il vaut mieux afficher le fichier PDF avec Shell, cherchez sur le web.

A+

 

[job75]

Il vaut mieux afficher le fichier PDF avec Shell, cherchez sur le web.

Ceci est plus simple :

CreateObject("wscript.shell").SendKeys "{TAB}~" 'évite le message d'alerte
ThisWorkbook.FollowHyperlink sfile

 

[job75]

C'est gentil de me mettre des Like mais quel code vous convient ?

 

[dido974]

J'ai essayé le 1er, mais je perds le résultat que j'avais avec la vba/macro. Je dois essayer le 2nd. Je l'essaye demain matin. Je vous redis

 

[dido974]

Malheureusement cela ne fonctionne pas

 

[dido974]

Alors la solution a été la suivante:
J'avais le message d'erreur car mon fichier avait déjà appliqué la première macro et je souhaitais changer de produits. Mon fichier était donc déjà ouvert. Et il essayait de créer un nouveau fichier du même nom. La solution: mettre en place un taskkiller. C'est réglé.

 

[job75]

Un taskkiller quesako ? Si le fichier est déjà ouvert ce n'est pas difficile de le fermer

 

[dido974]

même si on fermait tous, dès qu'on lancait la macro, le message d'erreur venait. Du coup, il a fallu rajouter ceci:

On Error GoTo Saut

Test = 1
Saut:

If Test = 0 Then
CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0
ExportPDF2
End If

 

[soan]

Bonsoir,

peut-être plutôt comme ceci :

  On Error GoTo Saut
 
  Test = 1
  Exit Sub
 
Saut:
  CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0
  ExportPDF2
End Sub

soan

 

[job75]

Effectivement je ne vois pas d'autre moyen pour fermer le fichier PDF.