XL 2016 [RÉSOLU] Problème avec une macro pour l'impression

  • Initiateur de la discussion Initiateur de la discussion bellenm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bellenm

XLDnaute Impliqué
Bonjour à tous exceliens,

Mon problème actuel que j'essaie de résoudre
1 voici le code à corriger:
Code:
Sub ZoneImpressionEnPdfMacroChoix()
Dim ImprActuelle As String, ImprNouv As String, chemin As String, NomFichier As String, ws As Worksheet, Imprimer

Set ws = Worksheets("F1ok") 'la feuille
ws.PageSetup.PrintArea = "$B$4:$aa$59" ' les cellules

Imprimer = MsgBox("Voulez-vous imprimer (répondre oui) ou créer un pdf (répondre non) ?", vbYesNo)
    If Imprimer = vbYes Then
       ActiveSheet.PrintPreview
            'IgnorePrintAreas:=False
       
Else
   
      chemin = ThisWorkbook.Path
     NomFichier = Replace(Range("y2").Value, " ", "")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   chemin & NomFichier, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  False
End If
End Sub
Pour l'impression ce n'est pas la bonne feuille qu'il imprime mais bien celle où la macro est installée

2 j'aimerais que la cellule"y2" qui sera le nom du fichier soit enregistrer correctement en "PDF" car après la première lettre il y a un espace et trois chiffres.
Mais le fichier est enregistrer "A" %20 "123" le "%20" étant bien sûr de trop.

Quelqu'un pour m'aider merci d'avance

Marc B
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
10
Affichages
547
Réponses
3
Affichages
672
Retour