none
SaveCopyAS erreur 1004

    Question

  • bonjour, 

    suite à une restauration totale, Win8 : win10 : Excel 2010, mon programme BANQUE fonctionne sauf la SaveCopyAS qui renvoie l'erreur 1004 bien que le programme soit correct, il fonctionnais avant la restauration.

    Il me semble qu'il lui manque une librairie dans les références de VBA

    Ou Windows 10 la oublié en route

    Merci

    dimanche 20 mai 2018 12:03

Toutes les réponses

  • Bonjour,

    Est-ce que tu peux poster la ligne en erreur, ainsi que le libellé du message d'erreur ?

    Cordialement.

    Daniel

    dimanche 20 mai 2018 13:13
  •  

    Voici la ligne, j'ai vérifié aussi que le fichier est déjà existant sur le disque en G, et l’accès direct à ce disque fonctionne normalement

          ActiveWorkbook.SaveCopyAs "G:\auto 2013\sharan bleu.xlsm"
        If Err.Number <> 0 Then
            MsgBox (erreur)

    la réponse à au message est : 1004

    c'est laconique

    à plus

    dimanche 20 mai 2018 14:12
  • Vérifie que le chemin est correct et que le fichier n'existe pas. Sinonn, enlève la gestion d'erreur pour obtenir le message VBA.

    Daniel

    dimanche 20 mai 2018 14:29
  • Voici le fichier entier :

    Private Sub btsauvegarde_Click()
    debut:
    Err.Clear
    On Error Resume Next
        ActiveWorkbook.SaveCopyAs "F:\auto 2013\sharan bleu.xlsm"
        If Err.Number = 0 Then GoTo fin
        ActiveWorkbook.SaveCopyAs "G:\auto 2013\sharan bleu.xlsm"
        If Err.Number <> 0 Then
            rep = MsgBox("pas de disque, ou pas le bon", 5)
            If rep = 4 Then GoTo debut
        End If
    fin:
        Err.Clear
        btwrite.BackColor = &HFF00&
        btwrite.SetFocus
    End Sub

    l'erreur dit 

    1 pas de fichier     J'y accède par l'explorateur, il est bien en G:

    2 fichier utilisé par un autre programme    NON

    3 le classeur que vous voulez enregistrer porte le même non qu'un classeur déjà ouvert.

    La 3 eme solution me parait évidente puisque c'est un transfert de fichier en sauvegarde sur le disque externe, 


    dimanche 20 mai 2018 17:04
  • j'ai désactivé les 2 lignes concernant le lecteur F: et la copie se fait correctement sur le G:

    ça ne m'explique rien, ces 2 lignes devrait sautée automatiquement par VBA puisque je n'ai rien en F:

    Excuses du dérangement, j'ai fini par mettre "Err.Clear" avant la gestion du G:, c'est mieux

    Merci

    Pierre

    dimanche 20 mai 2018 17:17