Macro Enregistrer sous

[Cobbalt]

Bonjour,

Voila j'aimerai pouvoir sauvergarder un fichier Excel par macro, dans un répertoire défini (C:/Conditions client 2011/) et dont le nom du fichier serait :
CC & cellule C4 (code client) & cellule E4 (nom du client). Ce qui donnerait un fichier nommé comme ceci par exemple : CC 91160000 M.Dupond.xls

Voila je vous remercie d'avance pour votre aide, j'écume internet depuis + d'une heure et je ne trouve rien qui marche...

 

[Pierrot93]

Re : Macro Enregistrer sous

Bonjour,

essaye ceci :

ActiveWorkbook.SaveAs "C:\Conditions client 2011\CC" & Range("C4").Value & " " & Range("E4").Value, xlNormal

bon après midi
@+

 

[Cobbalt]

Re : Macro Enregistrer sous

Heu ca a l'air de marcher, mais je me suis trompé en fait, il faut le sauvegarder en xlsm :$

 

[Pierrot93]

Re : Macro Enregistrer sous

Re,
pas 2007 sous le coude, mais f1 dans l'éditeur vba sur le mot "saveas" te donnera les formats possibles....

 

[Cobbalt]

Re : Macro Enregistrer sous

Oui j'ai trouvé, merci beaucoup pour le coup de main.

J'ai une autre question concernant cette fois ci l'envoi d'une feuille du fichier Excel en format PDF.
J'ai enregistré la macro qui me donne ca

Sub Pdf_files()
'
' Pdf_files Macro
'

'
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\com-dno\AppData\Local\Temp\calculette generique PHM v5.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False
End Sub

Mais voila il me met la totalité du fichier, alors que je voudrai que la feuille n°2. j'ai essayé différents truc mais ca ne marche pas..

 

[Pierrot93]

Re : Macro Enregistrer sous

Bonjour,

il faut faire une copie de la feuille en question, de ce fait un nouveau classeur est créé (qui est actif) et enregistrer / exporter ce classeur...

ActiveSheet.Copy
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\com-dno\AppData\Local\Temp\calculette generique PHM v5.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False

 

[Cobbalt]

Re : Macro Enregistrer sous

Erf je n'arrive pas à l'adapter à mon fichier.. j'ai du louper un truc.. désolé je suis nul en VBA🙁

 

[Cobbalt]

Re : Macro Enregistrer sous

help please :$

 

[MJ13]

Re : Macro Enregistrer sous

Bonjour Cobalt, Pierrot

help please

Le mieux, c'est d"envoyer ton fichier annonymisé.