aide sur macro

[angoul]

Bonjour
j'ai récupérer un petit morceaux de code pour enregistrer sous, cela fonctionne, mais j'aimerai que cela m'enregistre en fichier XLS et en fichier au pdf; de plus j'aimerai qu'il me renseigne le nom de la cellule F9, sa sa marche, mais j'aimerai aussi avoir le B22
quelqu'un peut m'aider?

Sub pdf()
'Enregistrer un pdf de la feuil1 sous le nom : Entreprise-LaDate
' Emplacement : bureau

Dim Fichier As String
Dim Entreprise As String
Dim LaDate As String
LaDate = Format(Date, "ddmmyyyy")
Sheets("Feuil1").Select
client = Range("f9").Value

'Nom du fichier (exemple) : ABC-01012015
Fichier = "-" & client & "-" & LaDate
ActiveSheet.ExportAsFixedFormat Type:=xls, Filename:= _
"D:\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

2eme j'ai creer un bouton pour imprimer
pas de probleme la dessus, mais j'aimerai avoir l'apercu avant imprimer
merci de votre aide

 

[MJ13]

Re : aide sur macro

Bonjour Angoul

Pour le premier point, il suffit de concaténer dans le nom avec la cellule que tu veux.

Pour le .PDF essaye avec l'enregistreur de macros, qui est ton associé avec Excel 🙂.

Pour le second, essaye avec ce code:

ActiveSheet.PrintPreview

 

[angoul]

Re : aide sur macro

Merci de ton aide, mais avec la solution concatener cela me beug le vba

 

[MJ13]

Re : aide sur macro

Re

Pour concaténer, je voulais parler du & commercial.

Mais, il faut que dans ta cellule le texte à prendre en compte n'ai pas de caractères interdit par Windows.

 

[angoul]

Re : aide sur macro

j'ai essayer les 2 solutions
cela s'affiche correctement dans la cellule
mais que j'applique le code sa beug

 

[MJ13]

Re : aide sur macro

Re

Sinon avec un bout de fichier, juste avec le code qui pose problème, sans données confidentielles, ce serait plus facile pour aider 😕.

 

[angoul]

Re : aide sur macro

c'est bon j'ai trouve j'avait des cellules fusionner et cela fonctionne pas

voila le code pour juste mettre en pdf, mais pas trouver comment faire un double enregistrement en pdf et xls

Sub pdf()
'Enregistrer un pdf de la feuil1 sous le nom : Entreprise-LaDate
' Emplacement : D

Dim Fichier As String
Dim Entreprise As String
Dim LaDate As String
LaDate = Format(Date, "ddmmyyyy")
Sheets("Feuil1").Select
nom = Range("g9")
intituler = Range("g22")

'Nom du fichier (exemple) : ABC-01012015
Fichier = "-" & nom & "-" & LaDate & "-" & intituler
ActiveSheet.ExportAsFixedFormat Type:=xls, Filename:= _
"D:\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

 

[MJ13]

Re : aide sur macro

Re

C'est super 🙂, cela commence à porter ses fruits .

Sinon, quand je ne sais pas comment faire, je fais appel à Henry.

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ChDir "C:\DATA"
    ActiveWorkbook.SaveAs Filename:="C:\DATA\Test.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub=BA

 

[angoul]

Re : aide sur macro

c'est super sa, j'ai modifier le chemin d'enregistrement et sa fonctionne reste juste un truc qui reprenne le nom comme celui du pdf

 

[angoul]

Re : aide sur macro

Personne a une petite idee??

 

[Staple1600]

Re : aide sur macro

Bonjour à tous

angoul

Personne a une petite idee??

Les idées étaient déjà dans le fil, non ?
Il suffisant de mixer ton code avec celui de MJ13 et de suivre son conseil (utiliser l'enregisteur de macros)
Test OK sur mon PC

Sub SaveAsPdfAndXlsx()
'Enregistrer un pdf de la feuil1 sous le nom : Entreprise-LaDate
Dim Entreprise$, chemin$
Entreprise = "ABC"
chemin = ThisWorkbook.Path & "\"
With ThisWorkbook.Sheets("Feuil1")
Fichier = Entreprise & .[G9].Text & Format(Date, "-ddmmyyyy-") & .[G22].Text
End With
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Fichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 .Copy
ActiveWorkbook.SaveAs Filename:=chemin & Fichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
End With
End Sub

 

[angoul]

Re : aide sur macro

je suis d'accord avec toi, tous était dans le fil, mais pour mixer tous cela il faut comprendre
et la moi cela me dépasse

merci de ton aide c'est super sympa