nommé l'onglet et le classeur ( MEME NOM)

[Ilino]

Bonjour Forum
J’ai une application (en USF) constituée par plusieurs feuilles parmi ces feuilles j’ai crée une feuillé nommée Model ; dans mon USF j’ai un bouton « enregistrer » je lui affecté ce code :
--------<
Private Sub CommandButton4_Click()

Dim ch As String
Dim client As String
Dim Num As String
client = TextBox2.Value '----< le nom de la feuille enregistrée >----
Num = TextBox1.Value

chemin = ActiveWorkbook.Path
Sheets(Array("Model")).Copy '----< la feuille enregistrée >----
ActiveWorkbook.CheckCompatibility = False

ActiveWorkbook.SaveAs Filename:=ch & "\Offre_" & client & "_" & Num & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Offre enregistrée sous nom : " & _
"Offre_" & client & "_" & Num & ".xlsx"

End Sub
>--------
Mon souci comment dois je faire pour avoir le même nom de l’onglet et la feuille enregistrée?
(Exemple : j’ai nommé ma feuille model « 001-03-HK-2008 » je dois avoir lors de l’exécution du code ci-dessus l’onglet et le classeur même nom
Merci

 

[camarchepas]

Re : nommé l'onglet et le classeur ( MEME NOM)

Private Sub CommandButton4_Click()

Dim ch As String
Dim client As String
Dim Num As String
'Modif Ici
Dim NomFichier as string 
'Fin Modif 1

client = TextBox2.Value '----< le nom de la feuille enregistrée >----
Num = TextBox1.Value

chemin = ActiveWorkbook.Path
Sheets(Array("Model")).Copy '----< la feuille enregistrée >----
ActiveWorkbook.CheckCompatibility = False

'Modif2
NomFichier = Offre_" & client & "_" & Num
activesheet.name = NomFichier
ActiveWorkbook.SaveAs Filename:=ch & "\" & NomFichier  & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Fin Modif2

Modif3
MsgBox "Offre enregistrée sous nom : " & NomFichier & ".xlsx"

End Sub

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Bonjour camarchepas
merci pour la reponse ça fonctionne tres bien, si tu permet autre question..
au lieu de la enregistrée en format "xls " je voudrais l'enregistrée format PDF que dois je modifier dans le code
grazie

 

[camarchepas]

Re : nommé l'onglet et le classeur ( MEME NOM)

Bonsoir,

En quelle version d'excel es-tu ?

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Bonsoir,

En quelle version d'excel es-tu ?

Re Bonsoir
ma version comme elle est indiqué , ele est en 2007
merci

 

[camarchepas]

Re : nommé l'onglet et le classeur ( MEME NOM)

Voici le code à appliquer , en tout cas pour Excel 2010 à voir si cela marche pour 2007

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ch & "\" & NomFichier  & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

en place de

ActiveWorkbook.SaveAs Filename:=ch & "\" & NomFichier  & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Voici le code à appliquer , en tout cas pour Excel 2010 à voir si cela marche pour 2007

[[/CODE]

Re Bonsoir CAMARCHEPAS,
Apparament ça fonctionne pour 2007, Merci
mais lors d'engistrement en plus j'ai une copie EXCEL ..Why?
@+

 

[camarchepas]

Re : nommé l'onglet et le classeur ( MEME NOM)

Je te remet le code complet modifié:

Private Sub CommandButton4_Click()

Dim ch As String, client As String
Dim Num As String, NomFichier As String

client = TextBox2.Value  '----< le nom de la feuille enregistrée >----
Num = TextBox1.Value
ch = ActiveWorkbook.Path
NomFichier = "Offre_" & client & "_" & Num

Sheets(Array("Model")).Copy '----< la feuille enregistrée >----
ActiveWorkbook.CheckCompatibility = False
ActiveSheet.Name = NomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 ch & "\" & NomFichier & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

ActiveWorkbook.Close False

MsgBox "Offre enregistrée sous nom : " & NomFichier & ".Pdf"

End Sub

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Super, ca marche du tonnere .Un grand merci camarchepas.😉
Grazie

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Re bonsoir fORUM
Je ne sais pas si je reste tjr dans ce fil ou je postule de nouveau😕 😱
Tjr si vous permettez j’ai crée un autre bouton dans mon application « imprimer » mais quand je le click, il imprime tous les pages😱
Ci-dessous le code

Private Sub CommandButton3_Click()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
For n = 1 To Val(n)
  ActiveSheet.PrintOut
Next
End Sub

@M!C@LEMENT

NB / c-a-d je veux imprimer la feuille qui a été renseignée (format PDF) et enregistrée

 

[camarchepas]

Re : nommé l'onglet et le classeur ( MEME NOM)

BOnjour ,

Si j'ai bien compris tu veux imprimer la feuille model ok,

alors :

ActiveSheet.PrintOut

doit être remplacé par

sheet("model").printout

 

[Ilino]

Re : nommé l'onglet et le classeur ( MEME NOM)

Re bonsoir fORUM
Je ne sais pas si je reste tjr dans ce fil ou je postule de nouveau😕 😱

NB / c-a-d je veux imprimer la feuille qui a été renseignée (format PDF) et enregistrée

Bonsoir camarchepas
Merci pour la réponse
Si tu permets je t’invite sur autre fil pour continuer la discussion (je tien a te remercie énormément pour tes remarques)
Discussion: Imprimer une feuille PDF enregistrée via un USF
Merci