Macro enregistrer sous...petite modif

Modeste

XLDnaute Barbatruc

• 9 Novembre 2010

• #2

Re : Macro enregistrer sous...petite modif

Bonjour Christian0258, le forum,

En complétant ta procédure existante:

VB:

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 9 Novembre 2010

• #3

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

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 9 Novembre 2010

• #4

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!

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 9 Novembre 2010

• #5

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

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 9 Novembre 2010

• #6

Re : Macro enregistrer sous...petite modif

re²,

Christian0258 à dit:

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

Cliquez pour agrandir...

... Ben, je verrais assez bien un

Code:

ActiveWorkbook.Close

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

 

Vote positif 0 Vote négatif