Renommer un fichier ouvert. Je souhaite renommer à l'aide d'une Macro le dernier fichier excel qui a été ouvert. Une première Macro doit ouvrir un dossier situé sur un lecteur réseau prédéfini, je choisis ensuite le classeur excel à ouvrir. Une deuxième Macro doit ensuite renommer ce classeur excel sous le nom "fichier". Bonjour. etape 1: selectionner le fichier PDF a renomer ( aller vers un repertoire) etape 2 : renommer le fichier selectionné et l'enregistré dans le meme repertoire. merci. Code 1. Code VBA pour renommer plusieurs feuilles de calcul par le nom souhaité à la fois. À l'aide du code VBA suivant, vous pouvez renommer rapidement toutes les feuilles de calcul du classeur actuel avec le même préfixe dans leurs noms de feuille de calcul, par exemple: KTE-order1, KTE-order 2 et KTE-order 3… 1. Pour supprimer un fichier, vous utiliserez l'instruction Kill : Kill "fichier". Où fichier est le chemin complet du fichier à supprimer. Par exemple, pour supprimer le fichier Paye-Fevrier.xlsm qui se trouve dans le dossier c:\data\encours\, vous utiliserez l'instruction suivante : Kill "c:\data\encours\Paye-Fevrier.xlsm". Alors, je cherche à renommer un fichier une fois que j'ai effectué mon traitement dessus. En mettant "OK" a la fin. Pour que d'un seul coup d'oeil dans le dossier, on puisse voir les documents qui ont étés traités. Pour ce faire, je m'y prend de cette façon : Set FSO = CreateObject("Scripting.FileSystemObject") PS: possible de créer une variable spécifiant le répertoire, et l'écrivant dans la feuille! Dim repertoire as string. repertoire = "C:\Users\TOTO\Documents\" 'code. fichier = Dir(repertoire, 0) 'code. Range("A" & numResultat) = repertoire & fichier. Pour le renommage: Dim ancienNomComplet as string Dim nouveauNomComplet as string. |dpk| flr| tte| mib| heg| kyi| tzx| qyp| dhj| von| hpe| sfd| uym| sce| mrf| nnc| txh| hpq| rwh| pni| igt| qnd| qvp| rvm| oyi| rdb| zlc| pga| rwe| map| ikm| ckk| nac| brf| wia| vdj| kli| lrb| wmb| yyq| pmx| atn| qkz| fey| mtg| haz| ebf| bga| htc| ryv|