[Résolu]Sauvegarde automatique

[Fave]

Hello all,

Pour commencer, je vous souhaites à toutes et tous de très bonnes fêtes de fin d'année !

Ensuite, je viens vers vous car j'ai une erreur 400 avec un très simple code VBA (même pour moi me semble-t-il... ) pour sauvegarder automatiquement un fichier.

En clair, je suis en train de créer un modèle de facture et je voudrais, qu'en cliquant sur un bouton que j'ai créé, que le doc se sauvegarde par rapport à la valeur d'une cellule et en xlsx (pas en xlsm).

De plus, si j'avais la possibilité de faire aussi (en plus de la version xlsx) une sauvegarde en pdf...

Voici le code :

Sub enregistre()
'Enregistre les modifications du fichier automatiquement
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "d:\factures clients" & Range("g2").Value & ".xlsx"
End Sub

Merci d'avance pour votre aide.

Bonne soirée.

Cordialement.

 

[Tentative]

Re : Sauvegarde automatique

Bonjour,

Peut-être le backslash :
ThisWorkbook.SaveAs "d:\factures clients\" & Range("g2").Value & ".xlsx"


Tentative

 

[Fave]

Re : Sauvegarde automatique

Hello Tentative,

Je viens de faire le test avec le backslash et j'ai toujours l'erreur 400...

Une autre idée, svp ?

Bonne journée,

 

[Tentative]

Re : Sauvegarde automatique

Bonjour,

ThisWorkbook.SaveAs "d:\factures clients\" & Range("g2").Value & ".xlsx"

Bon, tu tentes "d'enregistrer sous" un document qui contient des macros (.xlsm) sous un format qui ne supporte pas les macros (.xlsx).
Je crois que ce n'ai pas la bonne méthode de faire.

Je parviens à modifier du code, mais je suis pourri pour en créer.

J'espère qu'une autre personne saura te dépanner. Désolé...


Tentative

 

[Fave]

Re : Sauvegarde automatique

Re,

Je viens de faire le test en passant en PDF et je n'ai plus l'erreur 400 mais adobe refuse de m'ouvrir le fichier.

Sinon, je souhaite bien enregistrer dans un autre format qui ne tient pas compte des macros car je ne veux pas qu'elle(s) puisse(nt) être utilisée(s) après l'enregistrement.

Tout comme toi, Tentative, j'arrive à modifier certains codes mais pas à les créer...

Si une âme charitable voulait bien s'arrêter par ici...
Car, bien-sur, j'ai d'autres modifications que je voudrais faire comme lancer une impression automatique de 2 exemplaires de la feuille quand j'appuierai sur ce même bouton macro ainsi que la fermeture automatique du fichier...

Je sais, je suis chiant mais c'était encore Noël il y a peu alors j'ai bon espoir...

Encore merci Tentative pour ton aide et merci d'avance à celles ou ceux qui voudront bien m'aider.

+++..........................

 

[DoubleZero]

Re : Sauvegarde automatique

Bonjour, Fave, Tentative, le Forum,

Un essai en pièce jointe.

Nota : modifier ce qui doit l'être dans le code.

A bientôt

 

[Fave]

Re : Sauvegarde automatique

Bonsoir DoubleZero, le Forum,

Je viens de tester ton code mais il ne fonctionne pas chez moi. Il m'ouvre la fenêtre enregistrer mais n'automatise rien.

Pour que ce soit plus parlant pour tout le monde, je transmets une copie du fichier. Peut-être qu'en le voyant, ce sera plus parlant.

Attention, je rappelle que l’extension finale de mon fichier sera "xltm" car ce sera un fichier "modèle".

En attendant, encore merci à celles et ceux qui prennent le temps de me répondre...

Bonne soirée,

 

[JCGL]

Re : Sauvegarde automatique

Bonjour à tous,

Le code fonctionne parfaitement.
Ma très chère DoubleZéro avait bien précisé qu'il était nécessaire de l'adapter.

Option Explicit


Sub Enregitrer_xlsx_PDF()
    Dim Chemin As String, Fichier As String
    Chemin = "D:\Factures Clients\"
    Fichier = Range("A12").Value

    ActiveSheet.Copy
    ActiveSheet.Shapes("Rectangle à coins arrondis 3").Delete
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier & ".pdf"
    ActiveWorkbook.SaveAs Filename:=Chemin & Fichier & ".xltm", FileFormat:=xlOpenXMLTemplateMacroEnabled
    ActiveSheet.PrintOut , , 2
    ActiveWorkbook.Close
End Sub

Bises ++ à 00
A+ à tous

 

[DoubleZero]

Re : Sauvegarde automatique

Re-bonjour, bonjour + grs zibus, JCGL,

@ JCGL,

Merci de me rassurer !

@ Fave,



#1

le doc se sauvegarde par rapport à la valeur d'une cellule et en xlsx (pas en xlsm)

#1

ThisWorkbook.SaveAs "d:\factures clients" & Range("g2").Value & ".xlsx"

#7

Attention, je rappelle que l’extension finale de mon fichier sera "xltm"

A bientôt

 

[Fave]

Re : Sauvegarde automatique

Bonsoir à tous,

Manifestement, même pour modifier un code je suis mauvais !!!
Cà fonctionne nickel !

Une dernière question : je voudrais figer l'impression sur la zone A1:H53 mais je "merde" pour le faire.

Encore merci pour tout et bonne soirée.

 

[Fave]

Re : Sauvegarde automatique

J'en apprends tous les jours et c'est çà qui est génial !!!

 

[JCGL]

Re : Sauvegarde automatique

Bonjour à tous,

Peux-tu ajouter en début de code :

ActiveSheet.PageSetup.PrintArea = "$A$1:$H$53"

A+ à tous

 

[Fave]

Re : Sauvegarde automatique

Hello tout le monde,

Meilleurs voeux pour cette nouvelle année !

Mon code est fini.
Merci à toutes les personnes qui m'ont aidé. Comme d'habitude, la communauté excel-downloads est toujours au top !

Encore merci !

Cordialement.