"Sauvegarder sous" un fichier Excel à l'aide d'une macro

**toitoine-II** · 24/01/2019, 15h28

J’ai un problème avec une macro, la macro en question lance une sauvegarde et imprime en automatique le fichier puis le ferme.
Lorsque je veux enregistrer sur mon pc dans « C:\Users\XXX » je me sers de la macro ci-dessous et le fichier s’enregistre à l’endroit souhaité.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ChDir "C:\Users\XXX"
    ActiveWorkbook.SaveAs Filename:=FicherNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 
        Range("B1:E44").Select 
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 

Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb

Application.Quit
End If
End Sub

Lorsque je veux enregistrer sur le réseau « Z:\Transfert\XXX » je me sert de la macro ci-dessous et le fichier s’enregistre dans « Bibliothèques\Documents »...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ChDir "Z:\Transfert\XXX" 
    ActiveWorkbook.SaveAs Filename:=FicherNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 
        Range("B1:E44").Select
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 

Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb

Application.Quit
End If
End Sub

**Menhir** · 24/01/2019, 15h55

A ma connaissance, ChFir change le répertoire par défaut du FileSystem. Ca joue sur des commandes et des fonctions comme Dir() ou GetObject mais ça n'a pas d'effet sur les méthodes des objets Excel comme Open ou Save.

Il est bien plus fiable d'indiquer le chemin avec le nom de fichier.

Code :

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

ActiveWorkbook.SaveAs Filename:="Z:\Transfert\XXX\" & FicherNom.Value

**toitoine-II** · 25/01/2019, 10h38

J'ai mis ca comme code et ca ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ActiveWorkbook.SaveAs Filename:="Z:\Transfert\XXX" & FicherNom.Value 'destination sauvegarde

                ActiveWorkbook.SaveAs Filename:=FichierNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier
        Range("B1:E44").Select 'Zone d'impression
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 'Appel le sous-programe remise à zéro pour permettre de remettre la fiche dans son état vierge

Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb

Application.Quit
End If
End Sub

**halaster08** · 25/01/2019, 10h56

Bonjour,

ca ne fonctionne pas

Peux tu être encore moins précis ?

Un message d'erreur ? si oui lequel ?
Si non que se passe-t-il ?

Attention par rapport à la proposition de Menhir il te manque un slash après le XXX

**Menhir** · 25/01/2019, 11h08

Envoyé par toitoine-II

J'ai mis ca comme code et ca ne fonctionne pas.

Regarde ta ligne de code.
Regarde ma ligne de code.
Tu ne vois pas une différence ?

**toitoine-II** · 25/01/2019, 11h10

Pardon du manque de précision, je pensé avoir fait une faute ennorme dans le code.
il y a l'erreur "424 : objet requis" qui s'affiche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ActiveWorkbook.SaveAs Filename:="Z:\Transfert\Transformation\IML2\fiche de prod a traiter\" & FicherNom.Value 'destination sauvegarde
 
                ActiveWorkbook.SaveAs Filename:=FichierNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier
        Range("B1:E44").Select 'Zone d'impression
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 'Appel le sous-programe remise à zéro pour permettre de remettre la fiche dans son état vierge
 
Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb
 
Application.Quit
End If
End Sub

le fichier s'enregistre au bon endroit mais il y a un bug dans la macro et il ne s'imprime pas.
(il ne peut pas y avoir de bug dans l'utilisation du fichier, l'Excel est utilisé par des personnes encore plus novice que moi en informatique)

**Menhir** · 25/01/2019, 11h22

Envoyé par toitoine-II

il y a un bug dans la macro et il ne s'imprime pas.

Voir le dernier post de halaster08 (

) concernant le manque d'information de tes messages.

il ne peut pas y avoir de bug dans l'utilisation du fichier, l'Excel est utilisé par des personnes encore plus novice que moi en informatique

La logique liant les deux propositions de cette phrase m'échappe...

Penser le manque de connaissance est inversement proportionnel au risques d'erreur me semble illogique.

**toitoine-II** · 25/01/2019, 11h41

Pour te résumé le contexte, des opérateurs vont se servir de l'Excel en question, le fichier s'enregistre la ou je veux donc en théorie ca passe.
Mais un message de bug s'affiche lors de la macro. Si je devais m'en servir moi meme, ca passerait en "mode dégradé" de l'utilisation standard. Mais la si je le laisse comme ca ils vont faire n'importe quoi.
je n'aurai pas a faire cette macro si tout nos opérateurs étaient capable de faire "enregistrer sous" un fichier au bon endroit en le renomant sans écraser les autres fichiers.
Bref mon probleme...

En ce qui concerne ton code et mon code, je viens de recopié ton code dans mon code:
-message d'erreur "424 : objet requis" s'affiche.
-ca me lance l'aide au debug
-je fais annulé
-le fichier s'enregistre au bon endroit
-il ne s'imprime pas

Savez vous ce qu'il faut faire pour résoudre ce problème. (ci-dessous le code en question)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ActiveWorkbook.SaveAs Filename:="Z:\Transfert\Transformation\IML2\fiche de prod a traiter\" & FicherNom.Value 'destination sauvegarde
 
                ActiveWorkbook.SaveAs Filename:=FichierNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier
        Range("B1:E44").Select 'Zone d'impression
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 'Appel le sous-programe remise à zéro pour permettre de remettre la fiche dans son état vierge
 
Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb
 
Application.Quit
End If
End Sub

**zenpbb** · 25/01/2019, 11h48

Bonjour,
Tu sauvegardes 2 fois ton fichier (SaveAs), une fois avec FicherNom.Value et une autre fois avec FichierNom.Value.
Une seule fois suffit, avec le bon chemin et le bon nom de fichier.

**toitoine-II** · 25/01/2019, 11h55

Comme ceci?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ValiderEditer_Click()
If FicherNom.Value <> "" Then
ActiveWorkbook.SaveAs Filename:="Z:\Transfert\Transformation\IML2\fiche de prod a traiter\" & FichierNom.Value 'destination sauvegarde
 
 
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier
        Range("B1:E44").Select 'Zone d'impression
    ActiveWindow.SmallScroll Down:=-40
    Selection.PrintOut Copies:=1, Collate:=True
        Call raz 'Appel le sous-programe remise à zéro pour permettre de remettre la fiche dans son état vierge
 
Unload Me
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Wb.Saved = True
Next Wb
 
Application.Quit
End If
End Sub

cette partie ce met en rouge

Code :

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

1
2
3
 , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier

(je tien a préciser que je débute les macro depuis 1 semaine et que j'ai récup/modif une macro qui n'était pas fonctionelle)

**zenpbb** · 25/01/2019, 14h10

Supprime "'destination sauvegarde" et mets un caractère _ à la fin de la ligne ActiveWorkbook.SaveAs ..., et supprime les 2 lignes vides.

Code :

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

1
2
3
4
ActiveWorkbook.SaveAs Filename:="Z:\Transfert\Transformation\IML2\fiche de prod a traiter\" & FichierNom.Value _
        , FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False 'Nom et propriétés de protection du fichier

Le _ permet d'afficher une seule expression sur plusieurs lignes.

Par ailleurs, dans ton code, je vois toujours FicherNom.Value et FichierNom.Value...

"Sauvegarder sous" un fichier Excel à l'aide d'une macro

Macros et VBA Excel

Discussions similaires

Partager

Partager