VBA Excel : Deux fichier enregistrés au lieu d'un

Version imprimable

Bonjour,

Voici le souci que je rencontre sur une macro VBA Excel :

dans la macro ci-dessous, j'ai deux fichier d'enregistrés au lieu d'un :
un temporaire avec un nom bizarre de type temporaire "****.tmp" (contient les données 22 Ko)
un fichier .xlsm avec le bon nom "mon_fichier.xlsm" mais VIDE ( 0 Ko ) !

Merci de votre aide !

Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Dim rep As String, wbk As Workbook
Sub Bouton1_Cliquer()
    On Error Resume Next
                        Set wbk = ActiveWorkbook
                        rep = "\\mon_serveur\fichiers_recus\"
                        With wbk
                        .SaveAs rep & "mon_fichier", FileFormat:=52, CreateBackup:=False
                        Application.DisplayAlerts = True
                        End With
                        Application.ThisWorkbook.Saved = True
                        Application.Quit
End Sub

17/10/2014, 10h24
Daniel.C

Bonjour,

Enlève la ligne "On Error..." et remonte la ligne :

Code:

Application.DisplayAlerts = True

en début de macro.

Est-ce que tu reçois une erreur ? Sinon, dans quels dossiers s'enregistrent les fichiers ? Est-ce qu'il n'y a pas un problème de droits sur le dossier ? Est-ce que tu as le même problème si tu enregistres sur le disque local ?
17/10/2014, 10h54
fazpedro

Bonjour Daniel.C,

Voici le code d'rreur :
"Erreur d'exécution '1004' - la méthode Save de la classe Workbook a échoué." :calim2:

Merci,
17/10/2014, 11h00
Daniel.C

Sinon, dans quels dossiers s'enregistrent les fichiers ? Est-ce qu'il n'y a pas un problème de droits sur le dossier ? Est-ce que tu as le même problème si tu enregistres sur le disque local ?
17/10/2014, 15h17
fazpedro

Merci Daniel.C :D

Je viens de comprendre l'origine du problème :

Mon fichier de saisie se trouve sur un serveur différent :

Code:

rep = "\\mon_serveur2\fichiers_recus\"

et le serveur où je voulais l'enregistrer :

Code:

rep = "\\mon_serveur\fichiers_recus\"

C'est résolu, il faut mettre le même serveur !

Merci !