Au Secour Formule Macro

[ajdc]

🙂 😎 Bonjour a tous
Comment faire pour enregistrer un classeur en fonction d'une valeur d'une cellule

Merci de votre aide

 

[yojema]

Re : Au Secour Formule Macro

bonsoir

avec ca a adapter bien sur

Sub Macro1()

a = Cells(1, 1).Value

ActiveWorkbook.SaveAs FileName:= _
"C:\Mes documents\" & a
End Sub


Petit conseille en + quand j ai lu ton post je ne savais pas le faire

et j ai trouver ceci en 10 seconde crono en main comment

tout simplement en utilisant l enregistreur automatique de excel

j ai ensuite juste eu a creer la ligne a=... et voila

non pas que tu embete avec ta question 😀 loin de moi l idée!!!

mais ce truc ma permis de trouver plein de solution par ce biai tout seul

voila a + et a bientot sur le forum

 

[ajdc]

Re : Au Secour Formule Macro

Merci pour ton aide peux tu m'éclairer la dessus

besoin d'un coup de pouce
comment enregistre un fichier xls en pdf sous le nom d'une valeur de cellule.
je m'explique

un fichier source "Dertermination"
ce fichier fonctione avec "Userform" avec une Référence renvoyée dans la cellule Feuil1A1

Ex Cellule A1= DEV01

Comment faire pour enregistrer au format PDF la Feuil2 du Classeur "Determination.xls" --> DEV01.pdf et tout cela à partir de UserForm

je suis ouvert a toute proposition
merci par avance

 

[yojema]

Re : Au Secour Formule Macro

re bonsoir

Tel l Iceberg ta question en apparence simple mais cetait
sans compter la partie immerger la sur ce coup la j vais po pouvoir suivre desole j suis knock out😱

a + et bonne continuation 😀

 

[XanorK]

Re : Au Secour Formule Macro

Bonsoir yojema, ajdc.

Sauf erreur de ma part, pour sauvegarder en PDF depuis excel, il faut utiliser un logiciel spécifique qui ne fait pas partie de la suite office. Donc ca me semble compromis.

Mais bon, je peux me tromper à c't'heure

 

[ajdc]

Re : Au Secour Formule Macro

voici le debut de ma macro mais ptit probleme celle ci effectue un faux enregistrement avec le nom de la cellule A1 mais lors de l'impression pu rien sauf le nom du vrai classeur

Function NomDest$()
Dim F, N$
N = Worksheets("Feuil1").Range("A1")
N = "ABCDE au " & Replace(N, "/", "")
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
If F <> False Then NomDest = F
End Function

Sub ImprimePDF()
Dim N$
N = NomDest
If N <> "" Then
Sheets(Array("Feuil2", "Feuil3")).Select
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
SendKeys N & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:"
End If
End Sub