Erreur d'exécution 1004 sur le complément Excel: Chemin de fichier inconnu

Question

Plusieurs ordinateurs utilisent un complément créé par le mien. Toutefois, il y a un ordinateur qui provoque un message d'erreur à apparaître chaque fois que j'exécute le code de ce complément qui enregistre le classeur de complément.

Traduction:

erreur temps d'exécution '1004':
1. Le nom de fichier ou le chemin n'existe pas
2.Le fichier est utilisé par un autre programme
3 Le classeur que vous essayez d'enregistrer a le même nom d'autre classeur

Je crois que ce qui cause c'est la raison numéro 1. Comme il n'y a pas de fichier nommé '60E80500'. Notez que si je réexécute le même code, le message d'erreur s'affiche avec un nom de fichier différent.

Voici le code qui provoque l'erreur:

Private Sub LoginButton_Click() 

    'Functions to change the add-in's worksheet 
    setLoginCom (loginComTextBox) 
    setPassCom (passComTextBox) 


    'Close login form 
    Unload Me 

    'Save WorkBook add-in 
    Application.DisplayAlerts = False 
    ThisWorkbook.Save 
    Application.DisplayAlerts = True 

End Sub 

Le complément chemin complet est:
C: Program Files \ Comdinheiro \ Comdinheiro.xlam

Je voudrais savoir pourquoi Excel utilise le chemin suivant:

C: Program Files \ Comdinheiro \ 60E80500

Outre ce message d'erreur l'un dd-in fonctionne parfaitement.

Answer 1

Je suggère d'utiliser la syntaxe suivante:

myFileName = Application.ActiveWorkbook.FullName 
ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal 

Je trouve avec vba plus explicite vous êtes moins vous êtes susceptible d'avoir des erreurs