Discussion :

[toitoine-II]

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]

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]

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]

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

[toitoine-II]

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]

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.

[Menhir]

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 ?