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

bellenm

XLDnaute Occasionnel
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
 

bellenm

XLDnaute Occasionnel
re
Une erreur de syntaxe arrive sur le false de l'avant avant dernière ligne.
corriger par job75 il fallait ajouter "& \"
Code:
chemin = ThisWorkbook.Path & "\"
Marc B
 
Dernière édition:

Discussions similaires


Haut Bas