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:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas