Problème de compilation : end if

[bonoboas]

Bonjour,

J'ai une petite erreur de macro avec excel :

Sub Macro4()
'

If Sheets("Pagegarde").Visible = False Then MsgBox "Vous devez d'abord créer le fichier de l'export travaux avant de pouvoir lancer l'impression !"

Else: Sheets(Array("Pagegarde", "10-Façades)).Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Recap").Activate

End If
'
End Sub

Excel me met erreur de compilation

Je ne comprends pas pourquoi ? pouvez-vous m'aider ?

En vous remerciant

Anthony

 

[Pierrot93]

Re : Problème de compilation : end if

Bonjour,

peut être ainsi :

If Sheets("Pagegarde").Visible = False Then
    MsgBox "Vous devez d'abord créer le fichier de l'export travaux avant de pouvoir lancer l'impression !"
Else
    Sheets(Array("Pagegarde", "10-Façades")).Select
    ActiveWindow.SelectedSheets.PrintPreview
    Sheets("Recap").Activate
End If

bon après midi
@+

 

[bonoboas]

Re : Problème de compilation : end if

Merci pierrot93, ça marche nickel. Par contre je ne vois pas de différence avec ma version ?

 

[Pierrot93]

Re : Problème de compilation : end if

Re,

manquait un caractère " dans l'array, et renvoie à la ligne après le "then"...

 

[bonoboas]

Re : Problème de compilation : end if

Merci beaucoup