Enregistrer sous feuille active seulement

Bonsoir,

Est-ce que quelqu'un pourrait m'eclaircir svp.

J'ai besoin de creer un seul bouton, pour "enregistrer sous" uniquement la feuille selectionnée en format xlsm et pdf

Une idée du code à intégrer?

merci d'avance

Bonjour

A tester (pas testé)

  ActiveSheet.Copy
  Application.Dialogs(xlDialogSaveAs).Show
  ActiveWorkbook.Close

Magnifique ca fonctionne a merveille, par contre ca enregistre pas en pdf aussi?

Bonjour

Je ne crois pas avec cette méthode

Je ne sais pas si tu peux choisir le fichier avec une boite de dialogue

Il faut que dans le code tu définisses le Chemin et le Fichier

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

Alors en faite apres reflexion j'ai besoin de deux macros.

Une qui enregistre la feuille en xlsm

et

Une qui enregistre la feuille en pdf

Pas envie d'enregistrer dans un endroit specifique, je souhaite avoir le choix.

merci

quelqu'un à une idée?

Alors en faite apres reflexion j'ai besoin de deux macros à mettre dans deux boutons

Une qui enregistre la feuille en xlsm

et

Une qui enregistre la feuille en pdf

Pas envie d'enregistrer dans un endroit specifique, je souhaite avoir le choix.

quelqu'un peut m'aider?

merci

Bonjour

Une macro qui te permet de choisir un répertoire

Sub test()
Dim FdFolder As FileDialog
Dim Chemin As String

  Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)
  With FdFolder
    If .Show = -1 Then    ' Clic sur Ok
      Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
      Exit Sub
    End If
  End With

End Sub

merci Banzai pour ta reponse, mais ton code ne m'enregistre pas la feuille en XLSM et PDF

Bonjour

Tu seras le 3ème

Fournis le fichier en cause

Voici le fichier en question.

Je souhaite que quand je clique sur ce bouton, seulement la feuille active s'enregistre en PDF et XLSM.

pas besoin de déterminer un dossier d'enregistrement par défaut. je préfère le choisir au fur et à mesure.

merci

Bonsoir

A vérifier

Magnifique Banzai !!

decidement tu est vraiment tres fort et te remercie vivement de ton aide jusqu'à maintenant.

Puis-je abuser encore une fois de ton professionnalisme?

Quand je clique sur le bouton, il m'ouvre windows (C:) > Utilisateurs > Mike > Documents

comment s'il te plait, que quand je clique il m'ouvre windows (C:) > Utilisateurs > Mike > Bureau > Devis

Puis ensuite

Dans cette macro que tu m'à envoyé, peux tu stp faire en sorte que le fichier xlsm et pdf se nomment automatiquement selon ce qu'il y à dans la cellule F11 F4 F5

Merci encore

Bonjour

Tu es en contradiction avec toi même

pouns94 a écrit :

pas besoin de déterminer un dossier d'enregistrement par défaut

pouns94 a écrit :

je clique il m'ouvre windows (C:) > Utilisateurs > Mike > Bureau > Devis

Modifie le début de la macro

  ChDir "C:\Users\Mike\\Desktop\Devis\"
  Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)

pouns94 a écrit :

selon ce qu'il y à dans la cellule F11 F4 F5

Tu peux préciser ce qu'il y a dans ces cellules

Et dans quel ordre faut-il les assembler pour faire le nom du fichier

Sub saveas()
Dim FdFolder As FileDialog
Dim Chemin As String
Dim Fichier As String

  Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)
  With FdFolder
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With
  ChDir Chemin
  ActiveSheet.Copy
  Application.Dialogs(xlDialogSaveAs).Show
  ActiveWorkbook.Close
  Fichier = Replace(ThisWorkbook.Name, ".xlsm", ".Pdf")
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

Je ne vois pas où je dois rajouter le code

POUR INFO F11 est le nom du client, F4 une adresse, F5 code postal et ville

ca donnerais auchan 11 rue tournefort 75012 paris

Bonjour

A tester

Ouhaaaaaaaaa magnifique !!!

bon honnetement tu me donne envie de la pousser un peu plus loin, du coup,

il faudrait que ca me genere un nom de dossier avec les memes données F11 F4 F5 et que je puisse ensuite juste allez le placer là où je souhaite.

c'est possible ca?

Une petite idée, j'ai fait plein d'essai ... je n'y arrive pas.

Bonjour

A vérifier

Oh lala mais qu'est-ce que tu es fort !!!

j'aimerais tellement faire ce que tu sais faire !!

J'ai imprimer toutes les macros que tu m'à faite, pour les etudier, c'est pas evident.

Par exemple sur la version 3 que tu m'a envoyé. si je souhaite annuler l'enregistrement en pdf dans la macro, je ne vois pas du tout la phrase à supprimer.

Pour moi je supprimerais la phrase suivante : <span style="font-weight: bold">ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _</span>

IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Sub enregistredevis()
Dim Chemin As String, Fichier As String

  Fichier = Range("F11") & " " & Range("F4") & " " & Range("F5")
  If Len(Trim(Fichier)) = 0 Then
    MsgBox "Pas de nom de fichier"
    Exit Sub
  End If

  With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "C:\Users\Michel\AppData\Local\Temp\"
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With
  MkDir Chemin & "\" & Fichier
  Chemin = Chemin & "\" & Fichier
  ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close
  End With

  [b]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _[/b]
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub