Erreur lors fermeture PDF

Question

Avant toute chose, je tient à souhaiter une bonne année à tous les membres du forum et plein de code VBA à améliorer. Je viens vers vous en cette nouvelle année car j'ai un problème avec une appli qui me permet de gérer les renouvellements des inscriptions au club. quand j'edite les fiches au format PDF, et que je veux fermer le fichier PDF une erreur s'affiche (erreur automation la syntaxe du nom de fichier;, de répertoire ou de volume est incorrect) J'ai beau chercher je ne trouve de solution. je joint un exemple du fichier. il suffit de cliquer sur le bouton edition base du menu pour lancer merci d'avance pour votre aide. Amicalement Bernard...

Ergotamine · Answer

Bon mis à part les variables non déclarées qui m'ont mis pas mal de bazar dans le code, ton fichier fonctionne. Par contre je te laisse remettre : Le chemin d'accès d'enregistrement des fiches, j'ai du le changer pour tester La protection sur la feuil1 sur la Sub WorksheetSelectionChange Application.ScreenUpdating = False en début de macro Ce que j'ai changé : Déclaration des variables de type String et Integer Initialisation de la variable NLig sur la colonne B, j'avais une erreur car sur la colonne 1, NLig &gt; nombres max d'adhérent Ajout d'un ResumeNext sur l'enregistrement PDF J'ai généré les 31 PDF, j'ai eu aucun message d'erreur .. A part à partir du moment où j'avais une valeur en colonne A mais rien en B, car le nom du fichier était incorrect (valeur vide .pdf). N'hésites pas à me dire si ça ne convient pas ...

fred2406 · Answer

La réponse est assez simple... lors de l'apparition de l'erreur on fait le debug et on s’aperçoit que le nom de fichier d'enregistrement est vide : la raison car tu veux éditer les 100 fiches alors que tu en a que 31 de remplies... dans ta fonction sub tousEdition () il faut changer A en B dans l'instruction : Nlig = Feuil3.Range("B" &amp; Rows.Count).End(xlUp).Row Fred...