'Bonsoir à tous
'besoin un ptit coup de main
'recherche macro pour imprimer plusieur feuille d'un classeur excel au format pdf'
'Attention le nom du classeur est "Détermination.xls" et je veux le Renommer 'avec Référence ce trouvant dans un cellule.
'est ce possible de renommer ce fichier temporairement sans fermer ou 'enregistrer le classeur(Détermination.xls) afin de le renommer avec les 'fonctions Enregistrer Sous car la macro sera activer d'un "Userform".
'SVP aider moi je suis partit de cette formule pour mes essais:'
Function NomDest$()
Dim F, N$
N = Worksheets("Feuil1").Range("A1")
N = "Devis " & Replace(N, "/", "")
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
If F <> False Then NomDest = F
End Function
Sub ImprimePDF()
Dim F, N$
N = NomDest
If N <> "" Then
Sheets(Array("Feuil1")).Select 'Selectionne le Feuille à Imprimer'
Application.ActivePrinter = "CutePDF Writer sur CPW2:" 'Selectionne Imprimante'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:"
End If
End Sub
'Mon Probleme c'est lors de l'enregistrement du fichier au format PDF le Nom du fichier est celui du Classeur "Détermination3 au lieu de la "Référence" 'ce trouvant Feuil1(A1)'
'besoin un ptit coup de main
'recherche macro pour imprimer plusieur feuille d'un classeur excel au format pdf'
'Attention le nom du classeur est "Détermination.xls" et je veux le Renommer 'avec Référence ce trouvant dans un cellule.
'est ce possible de renommer ce fichier temporairement sans fermer ou 'enregistrer le classeur(Détermination.xls) afin de le renommer avec les 'fonctions Enregistrer Sous car la macro sera activer d'un "Userform".
'SVP aider moi je suis partit de cette formule pour mes essais:'
Function NomDest$()
Dim F, N$
N = Worksheets("Feuil1").Range("A1")
N = "Devis " & Replace(N, "/", "")
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
If F <> False Then NomDest = F
End Function
Sub ImprimePDF()
Dim F, N$
N = NomDest
If N <> "" Then
Sheets(Array("Feuil1")).Select 'Selectionne le Feuille à Imprimer'
Application.ActivePrinter = "CutePDF Writer sur CPW2:" 'Selectionne Imprimante'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:"
End If
End Sub
'Mon Probleme c'est lors de l'enregistrement du fichier au format PDF le Nom du fichier est celui du Classeur "Détermination3 au lieu de la "Référence" 'ce trouvant Feuil1(A1)'