Macro enregistrer sous...petite modif

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro qui enregistre le classeur automatiquement en fonction du chemin déclaré en A1...

voir fichier joint...

Merci pour votre aide, et le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[Modeste]

Re : Macro enregistrer sous...petite modif

Bonjour Christian0258, le forum,

En complétant ta procédure existante:

Sub sauve()
fichier = Range("A1") & "\" & Range("H1") & ".xls"
ActiveSheet.Range("D30:AJ1130").Copy
Application.Workbooks.Add
ActiveSheet.Range("D30:AJ1130").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs (fichier)
End Sub

... Si j'ai bien compris !?

 

[Christian0258]

Re : Macro enregistrer sous...petite modif

Re, le forum, Modeste,

Tu as parfaitement compris, Modeste, ça fonctionne presque...

La procédure s'effectue, un classeur s'ouvre, effectue la copie mais j'ai
un message d'erreur 400 et le classeur n'est pas nommé et pas enregistré.

Peux-tu me dire...

Bien à toi

Christian

 

[Modeste]

Re : Macro enregistrer sous...petite modif

re-bonjour,

Me connaissant, j'avais tout de même testé, avant (mais en Xl2003)
Si tu dis que la copie s'effectue, c'est que l'avant-dernière instruction est exécutée... C'est donc au niveau de la dernière qu'il y aurait un souci ... et celle-là était dans ton code au départ !???
Es-tu certain que les données en A1 et H1 sont correctes??
J'obtiens une erreur 400 si le chemin d'accès en A1 n'existe pas sur la machine!

 

[Christian0258]

Re : Macro enregistrer sous...petite modif

Re, le forum, Modeste,

Effectivement, mes excuses, ça fonctionne mais le classeur ainsi créé reste affiché, il faut que je le ferme....

peux-tu me dire

Merci, Modeste, pour le boulot

à te lire,

Christian

 

[Modeste]

Re : Macro enregistrer sous...petite modif

re²,

Effectivement, mes excuses, ça fonctionne mais le classeur ainsi créé reste affiché, il faut que je le ferme....
peux-tu me dire

... Ben, je verrais assez bien un

ActiveWorkbook.Close

en fin de procédure, juste après le Save