Discussion :

[fazpedro]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[fazpedro]

Bonjour Daniel.C,

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

Merci,

[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 ?

[fazpedro]

Merci Daniel.C

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep = "\\mon_serveur2\fichiers_recus\"

et le serveur où je voulais l'enregistrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep = "\\mon_serveur\fichiers_recus\"

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

Merci !