Enregistrer une feuille au format PDF depuis Excel Mac 2011
Salut à tous,
J'ai déjà eu souvent l'occasion de consulter les messages de ce forum pour me sauver de situations inextricables dans Excel que j'utilise énormément pour mon boulot comme pour les affaires privées ou associatives.
Aujourd'hui, les recherches effectuées ne permettent pas de régler le problème que je rencontre depuis quelques jours.
Je travaille sur une feuille de calcul ("Grilles automatiques") apparaissant dans un classeur à plusieurs feuilles.
Je souhaite exporter cette feuille avec un tableau de réponses au format PDF.
Je demande ensuite à la macro de changer la couleur des réponses afin d'obtenir un tableau sans les réponses.
Je lui demande alors d'exporter ce nouveau tableau au format PDF avec un nouveau nom.
Enfin, je lui demande de rétablir les couleurs de polices standard.
Voici le code que j'ai créé :
Sub pdf()
End Sub
La partie du code en rouge est celle où il y a un bug... Erreur 1004.
J'ai tenté de modifié les espaces, vérifié les différents ":= _" et tenté de changer "xlType" par "x1Type" (j'ai vu ceci quelque part...).
Tout ça, sans succès...
A préciser encore que la cellule A2, utilisée pour le titre du document n'est pas une cellule fusionnée.
Auriez-vous une piste pour m'éclaircir ?
Merci beaucoup de votre soutien
bonjour,
j'ai aidé à la résolution d'un probleme similaire il y a peu,
regarde dans ce post, peut etre y trouvera tu une solution
bonne journée
LaDate = Format(Date, "ddmmyy")
tu cherche à avoir la date du jour même??
Merci de ta réponse !
C'est un topic que j'avais déjà consulté.
Dans ma macro, j'ai exactement la même chose :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=LaDate & "_" & LeTest & " corr" & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
Mais ça cloche quand même...
J'ai retrouvé un autre topic dont je m'étais inspiré : ici
Là aussi, j'ai recopié tel quel le code et... rien !
Pourtant il me semble qu'au début, ça fonctionnait...
LaDate = Format(Date, "ddmmyy") permet effectivement de trouver la date du jour !
Je ne sais pas si sur mac c'est différent mais la fonction ne devrait elle pas etre
Format(now, "ddmmyy")
egalement
je ne sais pas si tu as activate la feuille qui contient ton titre
essai en modifiant en thisworkbook.sheets('NomDelaFeuille").range("A2").text
mea culpa
Format(now, "ddmmyy")
j'avais pas vérifier avant , ça marche
C'est à n'y rien comprendre...
J'ai quitté Excel et relancé et ô miracle, la macro fonctionne...
En tout cas, merci beaucoup de t'être penché sur le problème que j'ai rencontré !
A bientôt peut-être