MACRO EXCEL
Bonjour,
mon code me permet de passer en PDF les fichier d'un dossier. Or je ne veux pas que le fichier "book1.xls" soit passé en pdf.
j'ai contourné le problème en sortant de la sub si une erreur survient (c'est le cas quand la macro essaie de passer book1.xls en PDF), mais ce n'est pas très "propre"
Comment sortir book1 de la boucle "proprement"? (je précise que mon code fonctionne bien en l'état.)
Public Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
DisplayAlerts = False
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = ThisWorkbook.Path & "\"
Fichier = Dir(Chemin & "*.xls")
On Error GoTo Olive
Do Until Fichier = Dir(Chemin & "book1.xls")
Set Wb = Workbooks.Open(Chemin & Fichier)
Wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Wb.Close (False)
Set Wb = Nothing
Fichier = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
DisplayAlerts = True
Olive:
End Sub
mon code me permet de passer en PDF les fichier d'un dossier. Or je ne veux pas que le fichier "book1.xls" soit passé en pdf.
j'ai contourné le problème en sortant de la sub si une erreur survient (c'est le cas quand la macro essaie de passer book1.xls en PDF), mais ce n'est pas très "propre"
Comment sortir book1 de la boucle "proprement"? (je précise que mon code fonctionne bien en l'état.)
Public Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
DisplayAlerts = False
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = ThisWorkbook.Path & "\"
Fichier = Dir(Chemin & "*.xls")
On Error GoTo Olive
Do Until Fichier = Dir(Chemin & "book1.xls")
Set Wb = Workbooks.Open(Chemin & Fichier)
Wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Wb.Close (False)
Set Wb = Nothing
Fichier = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
DisplayAlerts = True
Olive:
End Sub
Configuration: Windows XP Safari 532.0
3 réponses
-
ContributeurBonsoir tout le monde,
Ma façon de voir les choses :
do while : faire tant que ...
do until : faire jusqu'à ce que ...
polux fait : tant que(Fichier <> "")
donc tous les fichiers (mais teste dans la boucle si le nom est accepté).
toi tu fais : jusqu'à ce queFichier = Dir(Chemin & "book1.xls")"
donc les fichiers qui arrivent après : walou...
eric -
De rien,
Je ne saurai pas te dire exactement la différénce entre Do While ... Loop et Do Until ... Loop. Tu auras peut être plus d'explication ici : https://www.microsoft.com/en-us/download/details.aspx?id=55984
Bon courage
;o) -
Bonjour,
Je pense que je ferai comme ça:
Chemin = ThisWorkbook.Path & "\" Fichier = Dir(Chemin & "*.xls") Do While (Fichier <> "") If Fichier <> Chemin & "book1.xls" Then Set Wb = Workbooks.Open(Fichier) Wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Wb.Close (False) Set Wb = Nothing End If Fichier = Dir Loop
;o)
