Lisette
XLDnaute Junior
Bonjour à tous !!
J'espère que le lundi n'est pas trop dur pour vous... Pour moi, c'est difficile !!! hehe
Je bloque sur une macro !
Son but : enregistrer plusieurs onglets au format .pdf dans le dossier par défaut (j'ai plusieurs utilisateurs différents)
Et ça fonctionne bien. Néanmoins, quand j'enregistre, si j'ai un fichier existant, elle le remplace sans rien me dire la coquine !
Je sais vaguement qu'il faut insérer une routine de test d'existence de fichier dans mon code, mais je bloque... Y aurait-il une bonne âme pour me corriger s'il vous plaît ?
Par avance un grand merci et bonne journée !
J'espère que le lundi n'est pas trop dur pour vous... Pour moi, c'est difficile !!! hehe
Je bloque sur une macro !
Son but : enregistrer plusieurs onglets au format .pdf dans le dossier par défaut (j'ai plusieurs utilisateurs différents)
Et ça fonctionne bien. Néanmoins, quand j'enregistre, si j'ai un fichier existant, elle le remplace sans rien me dire la coquine !
Je sais vaguement qu'il faut insérer une routine de test d'existence de fichier dans mon code, mais je bloque... Y aurait-il une bonne âme pour me corriger s'il vous plaît ?
VB:
Sub Macro3()
' Macro3 Macro
Dim sFilename As String
NomFichier = Sheets("IMPRESSION").Range("E15").Value
Sheets(Array("Infos générales", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=NomFichier & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("IMPRESSION").Select
Range("B11:I11").Select
End Sub
Par avance un grand merci et bonne journée !