Selection feuille jusqu'à la dernière

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #2

Bonsoir le fil, le forum

VB:

Sub a()
Dim i
For i = 6 To Sheets.Count
Sheets(i).Select False
Next
End Sub

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 20 Octobre 2017

• #3

Merci Staple,

Celà fonctionne très bien mais ensuite je suis passé par l'enregistreur de macro pour créer un fichier PDF unique pour les feuilles sélectionnées mais cela ne fonctionne pas.
Le code proposé qui ne fonctionne pas est :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= etc

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #4

Re

Essaie ainsi

VB:

Sub b()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
    vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
End Sub

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 20 Octobre 2017

• #5

Celà fonctionne.
Le PDF est créé mais reste ouvert un nouveau classeur excel nommé classeur2

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #6

Re

Bah, il suffit de le fermer, ce classeur, non ?

VB:

Sub c()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
    vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
ActiveWorkbook.Close False
End Sub

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 20 Octobre 2017

• #7

OK merci et bonne soirée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #8

Re

Tu as vu que j'avais ajouté une macro dans mon dernier message incluant la fermeture du classeur?

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 20 Octobre 2017

• #9

Non je n'avais pas vu
C'est sympa merci

 

Vote positif 0 Vote négatif