🚨🚨🚨🚨🚨 👉🏼👉🏼Ne l'oublier surtout pas. *Il doit toujours avoir un espace avant le Under score( _).* Sinon vous risquez avoir un retour d'erreur avec *(:=)* comme les autres. Donc si vous avez par exemple mit *",_"* vous devez le remplacer par *", _"* pour que votre code puisse fonctionner normalement
@@Astuces_Excel Petite question, après avoir réalisé plusieurs tentatives afin d'ajouter en plus du n° de facture le nom du client, mes formules ne fonctionnent pas ex : ChDir "C:\Users\Sk8eu\Desktop\steph\facture\" & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\Sk8eu\Desktop\steph\facture\" & "\" & Range("H3").Value & Range("G8").Value & ".pdf", _ Quality:=xlQualityStandard, _ Je ne comprends pas mon erreur pouvez vous m'éclairer ?
Bonjour. Merci pour la bonne video. Je l'ai mise en fonction et ça marche normal. Mon ambition, ce de pouvoir imprimer un ensemble de bulletins de notes dans un meme dossier ave pour le nom le matricule de l'eleve. Merci
Bonjour. Super tutoriel, merci beaucoup. Est ce qu'on peut les factures excel dans un dossier excel ou les copies avec un nom spécifique. Et merci d'avance
Super tuto, merci à vous. Si je souhaite mettre mon fichier sur un autre pc, comment adapter le code pour qu'il n'y ai pas de bug ? Pour que le code soit valide sur n'importe quel pc, si je souhaite enregistrer sur mon "bureau" par exemple. Merci
Merci pour cette macro, par contre dans mon cas le fichier ne se crée pas si la cellule spécifiée pour le nom contient une formule. Ni si j'utilise la commande "maintenant" Par contre ca fonctionne bien quand je specifie une cellule avec du texte. Mais du coup c'est tjs la même valeur... et j'ai besoin que ce soit une date definie par une formule specifique. Avez vous une explication ?
Salut Tout d'abord pour vos commentaire. Un utilisateur avait déjà posé cette préoccupation concernant la date sur la facture Je vous laisse donc le lien de la vidéo explicative
@@Astuces_Excel Merci pour votre réponse, mais de quel lien video parlez vous ? Je n'ai pas retrouvé la question de l'autre utilisateur, à part celle ou vous parlez de la commande "maintenant" qui ne fonctionne pas de mon coté
Bonjour, Je comprends pas la ligne Dossierexistant=GetAttr(dossier) And vbDirectory « dossier » entre parenthèses n’est renseigné nul part à part ici. Je comprends pas qu’est-ce que la ligne de code traite ici
Merci pour cette video bien détaillée et explicite. Mon problème persiste. Quand je mets l'espace entre la virgule et le Under score(, _), le message d'erreur n'apparait plus à la fin de la ligne. Mais lorsque je saisis la derniere ligne (openafterpublish:=false) ou il n'ya pas de under sore a la fin de la ligne et que je tape entrée, le message d'erreur réapparaît. Que faire alors. Je compte sur vous> Merci a Astuces Excel
Bonjour et merci pour cette astuce. J’ai une erreur de compilation Type:=xlTypePDF,_ Il me dit Attendu : identificateur Sur toutes les lignes avant MsgBox qui restent en rouge ? Merci de votre aide Bernatd
Bonjour Merci pour la vidéo mais je rencontre une erreur : ActiveSheet.ExportAsFixedFormat, _ Type:=xlTypePDF, _ Filename:=Chemin & Range("D4").Value & ".pdf", _ quality:=xkqualitystandard, _ includedocproperties:=True, _ ignoreprintareas:=False, from:=1, to:=1, _ openafterpublish:=True, _ Erreur de compilation : Attendu : Paramètre nommé Merci
Moi aussi j'ai eu cette erreur au début Mais comme il l'a dit dans le commentaire c'était un souci d'espace J'ai inséré les espaces avant les "_" et ça marche maintenant
Bonjour, Pouvez-vous m'éclaircir sur un point svp ? Tout d'abord merci pour vos vidéos. J'ai un message d'erreur qui s'affiche sur visual basic lorsque je mets les deux points et égal := dans la formule. Du coup la macro ne fonctionne pas D'avance merci
Merci bien pour l'explication. Mais le soucis que j'ai c'est que lorsque le dossier est créé et on enrégistre une autre facture dans le meme dossier, il écrase l'antécédant. comment remedier à cela. Merci
Le problème vient donc du nom que vous donnez à vos fichier. Si la cellule dans laquelle le code doit récupérer le nom du pdf contient la même valeur alors il est tout à fait normal que celle ci soit écrasée.
Bonsoir, Merci pour vos tutos, super bien faits et simples à comprendre. J'ai cependant un souci, ça me crée bien le dossier mais pas le pdf… J'ai lu tous les commentaires et refait ma commande plusieurs fois, mais je ne trouve pas mon erreur (J'ai bien mis les espaces avant les under scor) Sub Export_en_Pdf() NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "entrer le nom du dossier") Chemin = "C:\Users\jeux\Desktop\GOLD'N ARIEGE\FACTURES DE VENTE 2023\" & NomDossier & "\" On Error Resume Next Dossierexistant = GetAttr(dossier) And vbDirectory If Dossierexistant = False Then MkDir (Chemin) End If ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Chemin & Range("E3").Value & ".pdf", _ quality:=xkqualitystandard, _ includeproperties:=True, _ ignoreprintareas:=False, from:=1, to:=1, _ openafterpublish:=False MsgBox ("Le Pdf a été créé") End Sub Merci pour vos lumières !
Désolé d'avoir mit du temps avant de lire votre commentaire. Et encore merci pour vos message d'appréciations. Voir des commentaire comme ça qui me montrent que mes vidéos aident des gens m'encourage vraiment à continuer. Merci bien☺
Salut, j'ai un problème quand je suis rendu a type:=xltypePDF , il ne m'accepte pas les deux point et le égale. Un message d'erreur s'affiche " Erreur compilation Attendu expression ". Tu aurais pas une solution pour résoudre ce problème. Merci
Merci bien , mais ca ne marche pas pour moi j'ai trouvé des erreur dans les lignes suivants type:=xltypePDF,_ Filename:= Chemin &range("G13").Value&"PDF",_ quality:=xlqualitystandard,_ includedocproperties:=true,_ igonreprintareas:=false,from:1, to:=3,_ openafterpublish:=False
Bonjour franchement j'ai lu tous les commentaires mais j'ai une erreur la même que tout le monde voici mon code est ce que quelqu'un peux le corriger ou me donner le sien svp Type:=xltypePDF,_ Filename:= Chemin &range("G13").Value&"PDF",_ quality:=xlqualitystandard,_ includedocproperties:=true,_ igonreprintareas:=false,from:1, to:=3,_ openafterpublish:=False
@@Astuces_Excel Sub Export_en_pdf() NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier") chemin = "C:\\swnt02\FR-Commun\Arnaud\Test excel\" & NomDossier & "\" On Error Resume Next Dossierexistant = GetAttr(dossier) And vbDirectory If Dossierexistant = False Then MkDir (chemin) End If ActiveSheet.exportasfixedformat_ type:=xltypePDF,_ Filename:=Chemin &range("A8").Value1&".pdf",_ quality:=xkqualitystandard,_ includedocproperties:=true,_ ignoredprintareas:=false,from:=1,to:=1,_ openafterpublish:=False MsgBox ("le PDF a été crée")
Bonjour, Type:=xlTypePDF,_ Filename:=Chemin &range("H3").Value & ".pdf",_ quality:=xkqualitystandard,_ includedocproperties:=true,_ ignoreprintareas:false, from:=1, to:=1,_ openafterpublish:=false Ca me met un message d'erreur avec les deux points et le égal
J'ai un souci avec l'execution de la macro. Le dossier se crée mais pas le PDF ? Voici mon code : Sub enregistrerFormatdf() NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier") Chemin = "C:\GestionCimetiere\test\Fiches\" & NomDossier & "\" On Error Resume Next Dossierexistant = GetAttr(dossier) And vbDirectory If Dossierexistant = False Then MkDir (Chemin) End If ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Chemin & Range("F4").Value & ".pdf", _ quality:=xlQualityStandard, _ includedocproperties:=True, _ ignoreprintaeras:=False, from:=1, to:=1, _ openafterpublish:=True MsgBox ("La fiche a été enregistrée") End Sub
Parce que si le pdf ne se crée pas c'est à cause d'une faute d'orthographe. Et repérer cela est souvent très fastidieux raison pour laquelle je vous recommande de reprendre tout simplement. Ou alors vous devez vérifier que chaque mot de votre code a été correctement saisi.
Bonjour, Merci pour cette super astuce, en la créant, j'ai tous les ":=" en erreur. Pouvez vous me dire d'ou ca peut provenir. Merci ActiveSheet.ExportAsFixdFormat_ Type:=xlTypePDF,_ Filename:=Chemin & range("F10")&"_"&Range("B6").Value&".pdf",_ quality:=xkqualitystandard,_ includedocproperties:=true,_ ignoreprintareas:=False,from:=1,to:=1,_ openafterpublish:=False
🚨🚨🚨🚨🚨
👉🏼👉🏼Ne l'oublier surtout pas. *Il doit toujours avoir un espace avant le Under score( _).*
Sinon vous risquez avoir un retour d'erreur avec *(:=)* comme les autres.
Donc si vous avez par exemple mit *",_"* vous devez le remplacer par *", _"* pour que votre code puisse fonctionner normalement
Merci bien ça marche
Merci beaucoup ça m'a aider à comprendre mon erreur 🥰
Je vous en pris
Super
Cela ne fonctionne toujours pas
Un très grand merci,ce n'est plus excel avec vous c'est de l'art ,Alger te dit merci artiste
J'en suis très flatté 😊
Merci bien
C'est vraiment de l'art 👌👌
Merci bien
vraiment de l'art
GENIAL !!! tout fonctionne à merveille :)
Merci aux autres commentaires contenant des erreurs m'ayant permis de rectifier les miennes :)
Super
@@Astuces_Excel Petite question, après avoir réalisé plusieurs tentatives afin d'ajouter en plus du n° de facture le nom du client, mes formules ne fonctionnent pas
ex : ChDir "C:\Users\Sk8eu\Desktop\steph\facture\" & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Sk8eu\Desktop\steph\facture\" & "\" & Range("H3").Value & Range("G8").Value & ".pdf", _
Quality:=xlQualityStandard, _
Je ne comprends pas mon erreur pouvez vous m'éclairer ?
C'est une erreur dans votre code
Je ferai une vidéo mercredi pour vous montrer comment faire
@@Astuces_Excel ^^ un grand merci à vous ! Je n' en n'attendais pas tant !
Merci Astuce Excel pour cette vidéo.
Ça a l'air vraiment si simple de créer un bouton d'export en pdf
Merci à vous
je te dis
merci
Bonjour. Merci pour la bonne video. Je l'ai mise en fonction et ça marche normal. Mon ambition, ce de pouvoir imprimer un ensemble de bulletins de notes dans un meme dossier ave pour le nom le matricule de l'eleve.
Merci
Super
Merci pour cette astuce Excel pour créer un PDF avec le vba
De rien
un grand merci à vous
Je vous en pris
Vous êtes trop fort
Merci
vraiment
vraiment très bon
Ce tutos est très cool mais explique aussi comment archiver dans Excel
Merci 😊
Déjà fait
Ici le lien Facture excel automatique: ruclips.net/p/PLVxlSdcmxRT9BRoBckeUWvfWyGx0zt7BE
il l'a déjà fait
Merci beaucoup
Je vous en pris
Très bien expliqué
Merci
C'est vraiment magnifique
Merci
je t'assure
Exceptionnel
Merci
Très belle astuce excel merci
Je vous en pris
Super merci et si on veut enregistrer en pdf avec la date et l'heure de la sauvegarde?
Dans ce cas il vous suffit d'associer la fonction "maintenant"
Bonjour.
Super tutoriel, merci beaucoup.
Est ce qu'on peut les factures excel dans un dossier excel ou les copies avec un nom spécifique. Et merci d'avance
Oui c'est possible
Et je l'ai déjà expliqué dans la vidéo suivante
J'ai beaucoup aimé celle-ci
Merci
moi aussi
bonne continuation
Merci
vraiment
très sympa partage , merci beaucoup
Merci à vous 😊
vraiment
Très belle astuce Excel merci
Merci
Merci beaucoup.
Peut-on avec macro imprimer un nombre (32) de bulletins scolaires regroupés en PDF ?
Bonsoir.
Je vous en pris
Oui c'est possible
Avant tout, je vous remercie de votre réaction.
Sur ce, je sollicite votre intervention, expert.
Avec impatience.@@Astuces_Excel
great
Thanks
Super tuto, merci à vous.
Si je souhaite mettre mon fichier sur un autre pc, comment adapter le code pour qu'il n'y ai pas de bug ?
Pour que le code soit valide sur n'importe quel pc, si je souhaite enregistrer sur mon "bureau" par exemple.
Merci
Salut
Ce code marchera sur tous les autres PC
Ne surtout pas oublié la modifications faite vers la fin de la vidéo (6:20)
Et vous pourriez l'urtiliser sur toutes vos machines
@@Astuces_Excel Un tout grand Merci. Continue c'est super instructif.
Merci
Je vous en pris
Merci infiniment ! Avez vous un petit plus pour associer 2 cellules au nom de la facture svp ?
Je vous en pris
Il vous suffit juste de faire une concaténation
Merci beaucoup Astuce Excel
Je vous en pris
tous fonctionne bien mon problème c est que je veux enregistrer une feuil sur un autre onglé il y a une solution ?
Merci pour cette macro, par contre dans mon cas le fichier ne se crée pas si la cellule spécifiée pour le nom contient une formule.
Ni si j'utilise la commande "maintenant"
Par contre ca fonctionne bien quand je specifie une cellule avec du texte. Mais du coup c'est tjs la même valeur... et j'ai besoin que ce soit une date definie par une formule specifique.
Avez vous une explication ?
Salut
Tout d'abord pour vos commentaire.
Un utilisateur avait déjà posé cette préoccupation concernant la date sur la facture
Je vous laisse donc le lien de la vidéo explicative
@@Astuces_Excel Merci pour votre réponse, mais de quel lien video parlez vous ? Je n'ai pas retrouvé la question de l'autre utilisateur, à part celle ou vous parlez de la commande "maintenant" qui ne fonctionne pas de mon coté
@@aloisgodard1348 Le lien de la vidéo : ruclips.net/video/yMr0R16OCSs/видео.html
Bonjour,
Je comprends pas la ligne Dossierexistant=GetAttr(dossier) And vbDirectory
« dossier » entre parenthèses n’est renseigné nul part à part ici. Je comprends pas qu’est-ce que la ligne de code traite ici
Regardez la première vidéo
ruclips.net/video/PV62A4QgbV4/видео.html
Top
Merci bien
très top même
@NelKenangue merci
Super
Merci
Merci pour cette video bien détaillée et explicite. Mon problème persiste. Quand je mets l'espace entre la virgule et le Under score(, _), le message d'erreur n'apparait plus à la fin de la ligne. Mais lorsque je saisis la derniere ligne (openafterpublish:=false) ou il n'ya pas de under sore a la fin de la ligne et que je tape entrée, le message d'erreur réapparaît. Que faire alors. Je compte sur vous> Merci a Astuces Excel
Merci
Consulter le premier commentaire épinglé de la vidéo
Vous y trouverez les différentes solutions
Bonjour et merci pour cette astuce.
J’ai une erreur de compilation
Type:=xlTypePDF,_
Il me dit Attendu : identificateur
Sur toutes les lignes avant MsgBox qui restent en rouge ?
Merci de votre aide
Bernatd
Je vous invite à lire le commentaire épinglé
Merci pour votre réponse ! J’ai rajouté un espace avant underscore
Ça marche mieux maintenant !
Bravo
@BernardJoubert-md4hm Super
@BernardJoubert-md4hm Ravi d'avoir pu vous aider 😊
bonjour. Joli tuto, mais ça ne fonctionne pas sur excel pour Mac OS.
bonne chance au utilisateur de Mac 😅
Bonjour
Merci pour la vidéo mais je rencontre une erreur :
ActiveSheet.ExportAsFixedFormat, _
Type:=xlTypePDF, _
Filename:=Chemin & Range("D4").Value & ".pdf", _
quality:=xkqualitystandard, _
includedocproperties:=True, _
ignoreprintareas:=False, from:=1, to:=1, _
openafterpublish:=True, _
Erreur de compilation : Attendu : Paramètre nommé
Merci
Bonjour
Sur quelle ligne apparaît l'erreur ?
@@Astuces_Excel J'ai trouvé il y avait une , (virgule) en trop sur la première ligne et sur la dernière ligne j'ai du supprimer , _ à la fin.
Super
Moi aussi j'ai eu cette erreur au début
Mais comme il l'a dit dans le commentaire c'était un souci d'espace
J'ai inséré les espaces avant les "_" et ça marche maintenant
Super
Bonjour,
Pouvez-vous m'éclaircir sur un point svp ?
Tout d'abord merci pour vos vidéos.
J'ai un message d'erreur qui s'affiche sur visual basic lorsque je mets les deux points et égal := dans la formule.
Du coup la macro ne fonctionne pas
D'avance merci
Oui c'est une erreur dans votre code
Regardez le commentaire épinglé
@@Astuces_Excel
Bonjour j'ai aussi le même problème les := font planter
Merci bien pour l'explication. Mais le soucis que j'ai c'est que lorsque le dossier est créé et on enrégistre une autre facture dans le meme dossier, il écrase l'antécédant. comment remedier à cela. Merci
S'il écrase le précédent cela signifie tout simplement que le précédent avait le même nom que le nouveau.
Le problème vient donc du nom que vous donnez à vos fichier.
Si la cellule dans laquelle le code doit récupérer le nom du pdf contient la même valeur alors il est tout à fait normal que celle ci soit écrasée.
Vous devez donc faire en sorte que la valeur de votre cellule de nom puisse varier à chaque nouvelle facture.
Bonsoir,
Merci pour vos tutos, super bien faits et simples à comprendre.
J'ai cependant un souci, ça me crée bien le dossier mais pas le pdf…
J'ai lu tous les commentaires et refait ma commande plusieurs fois, mais je ne trouve pas mon erreur (J'ai bien mis les espaces avant les under scor)
Sub Export_en_Pdf()
NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "entrer le nom du dossier")
Chemin = "C:\Users\jeux\Desktop\GOLD'N ARIEGE\FACTURES DE VENTE 2023\" & NomDossier & "\"
On Error Resume Next
Dossierexistant = GetAttr(dossier) And vbDirectory
If Dossierexistant = False Then
MkDir (Chemin)
End If
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Range("E3").Value & ".pdf", _
quality:=xkqualitystandard, _
includeproperties:=True, _
ignoreprintareas:=False, from:=1, to:=1, _
openafterpublish:=False
MsgBox ("Le Pdf a été créé")
End Sub
Merci pour vos lumières !
Merci pour les encouragement
Je vais consulter votre code.
Je vois c'est un problème de saisie
Vous avez saisie "includeproperties" au lieu de "includedocproperties".
Désolé d'avoir mit du temps avant de lire votre commentaire.
Et encore merci pour vos message d'appréciations.
Voir des commentaire comme ça qui me montrent que mes vidéos aident des gens m'encourage vraiment à continuer.
Merci bien☺
@@Astuces_Excel Merci ! Pourtant j'ai vérifié plusieurs fois... je bigle :)
@@Astuces_Excel Avec plaisir !
Bonjour, j'ai un problème. Si je appuie sur annuler ou la croix rouge de la fenêtre. Ma facture s'enregistre tout de même. Comment y remédier ?
Bonjour,
ça affiche Pdf créer mais celui n'est pas réellement crée lorsque vous cliquez sur annulé ou sur la croix
Salut j’ai un problème le fichier pdf que je viens écrase l’ancien ..pouvez-vous m’aider ?
Salut
S'il écrase l'ancien c'est sûrement parceque le nouveau fichier a le même nom que l'ancien
Est-ce bon maintenant ?
Salut boss pour nous qui avons un Mac on a un message d'erreur
Lequelle ?
ASSIA
J'ai le même soucis ! Le dossier est créé mais pas le fichier pdf ! Ainsi dire le dossier créé est vide
Vous avez sûrement fait une erreur d'orthographe lors de la saisie du code
Vérifiez juste votre code
Surtout au niveau de la création du PDF pour vérifier que les mots sont bien saisis
Chez moi ça marche
Avez-vous fait comme il l'a expliqué dans la vidéo ?
Super merci du retour
Est-ce bon ?
Salut, j'ai un problème quand je suis rendu a type:=xltypePDF , il ne m'accepte pas les deux point et le égale. Un message d'erreur s'affiche " Erreur compilation Attendu expression ". Tu aurais pas une solution pour résoudre ce problème.
Merci
Vérifiez juste votre code
Les autres ont eu le même souci.
Ils avaient juste fait une erreur dans le code
Certain avait ajouté le Under score (_) à la fin de la dernière ligne
D'autre avait une virgule (,) ou un under score (_) en trop
Je vous conseille de supprimer le code et de le réécrire en faisant attention aux virgules et under score
Même chose pour moi.
comment annuler mon export du dossier avec vbYesNo
Bonjour, en ce qui me concerne, il me dit que le pdf a été créé mais il n'y a ni dossier , ni pdf, pouvez-vous m'aider ?
Merci Bonjour
Vérifier juste votre code il doit y avoir une erreur
J'ai vérifié et réécrit tout le code mais le problème persiste. Il me créé bien un dossier à l'endroit souhaité mais pas le PDF
@@Astuces_Excel
Faites voir votre code
@@PierrickNegre Copiez votre code et collez le ici en commentaire pour que je consulte
Bonjour
J’ai un message erreur de compilation attendu: Expression
Impossible de trouver l’erreur
Bonjour essayez de vérifier votre code
Et n'oubliez pas de jeter un coup d'œil au commentaire épinglé
@@Astuces_Excel ne fonctionne pas helas
@@Astuces_Excel j’ai tout essayé c’est le := qui pose problème
Lisez le commentaire épinglé
Merci bien , mais ca ne marche pas pour moi
j'ai trouvé des erreur dans les lignes suivants
type:=xltypePDF,_
Filename:= Chemin &range("G13").Value&"PDF",_
quality:=xlqualitystandard,_
includedocproperties:=true,_
igonreprintareas:=false,from:1, to:=3,_
openafterpublish:=False
Salut
Désolé pour le retard j'ai été absent pendant quelques temps
Avez-vous pu y remédier ?
Bonjour, moi aussi, erreur message: « Attendu: identificateur » := qui sont sélectionnés
Salut !
Lisez le premier commentaire épinglé.
Vous y trouverez la solution
Astce excel il crée pas de pdf juste le dossier
Salut
Vous avez sûrement fait une erreur dans votre code
Vérifiez votre code
Est-ce bon maintenant ?
Très belle vidéo, mais j'ai un souci avec la partie
Type:=xltypePDF, _
Ça me met erreur de compilation. Aidez moi à résoudre ce problème svp
Bonjour
Il faut juste revérifier votre code
Certains aussi ont eu ce problème et c'était à cause d'une erreur de saisie dans leur code
Certain avait ajouté le Under score (_) à la fin de la dernière ligne
D'autre avait une virgule (,) ou un under score (_) en trop
Je vous conseille de supprimer le code et de le réécrire en faisant attention aux virgules et under score
Moi aussi j'a le même problème
Lisez le premier commentaire épinglé et vous aurez votre solution
Bonjour franchement j'ai lu tous les commentaires mais j'ai une erreur la même que tout le monde voici mon code est ce que quelqu'un peux le corriger ou me donner le sien svp Type:=xltypePDF,_
Filename:= Chemin &range("G13").Value&"PDF",_
quality:=xlqualitystandard,_
includedocproperties:=true,_
igonreprintareas:=false,from:1, to:=3,_
openafterpublish:=False
il ne prends pas le :=
Faites voir tout le code.
Du Sub au End
@@Astuces_Excel
Sub Export_en_pdf()
NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier")
chemin = "C:\\swnt02\FR-Commun\Arnaud\Test excel\" & NomDossier & "\"
On Error Resume Next
Dossierexistant = GetAttr(dossier) And vbDirectory
If Dossierexistant = False Then
MkDir (chemin)
End If
ActiveSheet.exportasfixedformat_
type:=xltypePDF,_
Filename:=Chemin &range("A8").Value1&".pdf",_
quality:=xkqualitystandard,_
includedocproperties:=true,_
ignoredprintareas:=false,from:=1,to:=1,_
openafterpublish:=False
MsgBox ("le PDF a été crée")
End Sub
Il ne prends pas le := ca me marque erreur de compilation expression attendue
Comme je le disais il y'a bien un problème dans votre code
Bonjour,
Type:=xlTypePDF,_
Filename:=Chemin &range("H3").Value & ".pdf",_
quality:=xkqualitystandard,_
includedocproperties:=true,_
ignoreprintareas:false, from:=1, to:=1,_
openafterpublish:=false
Ca me met un message d'erreur avec les deux points et le égal
Merci bonjour,
Au niveau du la cinquième ligne vous devez également avoir(":=") c'est-à-dire ceci : "ignoreprintareas:=False"
@@Astuces_Excel bonjour, j'ai rajouté mais ça ne marche toujours pas.
le ":=" est considéré comme un message d'erreur
OK,
Laquelle de ces lignes est surlignée dans le code ?
@@Astuces_Excel toutes
OK
J'ai un souci avec l'execution de la macro. Le dossier se crée mais pas le PDF ? Voici mon code :
Sub enregistrerFormatdf()
NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier")
Chemin = "C:\GestionCimetiere\test\Fiches\" & NomDossier & "\"
On Error Resume Next
Dossierexistant = GetAttr(dossier) And vbDirectory
If Dossierexistant = False Then
MkDir (Chemin)
End If
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Range("F4").Value & ".pdf", _
quality:=xlQualityStandard, _
includedocproperties:=True, _
ignoreprintaeras:=False, from:=1, to:=1, _
openafterpublish:=True
MsgBox ("La fiche a été enregistrée")
End Sub
Bonjour,
Vous avez sûrement fait une erreur dans le code
Vu que le code est plutôt court je vous conseille d'effacer et de reprendre.
Parce que si le pdf ne se crée pas c'est à cause d'une faute d'orthographe.
Et repérer cela est souvent très fastidieux raison pour laquelle je vous recommande de reprendre tout simplement.
Ou alors vous devez vérifier que chaque mot de votre code a été correctement saisi.
Est-ce bon maintenant ?
Bonjour,
Merci pour cette super astuce, en la créant, j'ai tous les ":=" en erreur.
Pouvez vous me dire d'ou ca peut provenir. Merci
ActiveSheet.ExportAsFixdFormat_
Type:=xlTypePDF,_
Filename:=Chemin & range("F10")&"_"&Range("B6").Value&".pdf",_
quality:=xkqualitystandard,_
includedocproperties:=true,_
ignoreprintareas:=False,from:=1,to:=1,_
openafterpublish:=False
Merci bien
Lisez le commentaire épinglé et vous comprendriez
Merci@@Astuces_Excel
@user-xb7ni8tk5d je vous en pris