Access renommer fichier d'un répertoire

[PAT83500]

Bonjour,

J'ai un code que j'ai trouvé qui fonctionne trés bien, par contre j'aimerai définir le dossier en question, et pas de filedialog.
J'ai essayé un grand nombre de possibilités sans succés vu mon niveau.
Merci d'avance pour votre aide.

Private Sub CiblePhoto_Click()
'Numéroter image

Dim boite As FileDialog
Dim LeFichier As Variant: Dim compteur As Byte

Set boite = Application.FileDialog(msoFileDialogFilePicker)
boite.AllowMultiSelect = True
boite.Show
compteur = 1

For Each LeFichier In boite.SelectedItems
Name LeFichier As Replace("", "", "") & "" & compteur & ".png"
compteur = compteur + 1
Next LeFichier

Set boite = Nothing
Set LeFichier = Nothing

End Sub

 

[PAT83500]

Bonjour,

J'ai trouvé le souci restant c'est qu'il enregistre les fichiers dans le répertoire NOAffaire et pas dans le répertoire PHOTOS qui est dedans

Private Sub MAJPH2_Click()
'Numéroter image

Dim dossier As Object
Dim chemin As String
Dim fichier As Object

chemin = CurrentProject.PATH & "\" & Me.NOAffaire & "\PHOTOS\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dossier = FSO.GetFolder(chemin)

compteur = 1
For Each fichier In dossier.Files
Name fichier As Replace("", "", "") & "" & compteur & ".jpg"
compteur = compteur + 1
Next

Set dossier = Nothing
Set fichier = Nothing

End Sub

 

[crocrocro]

Bonjour Pat,
le nouveau nom doit contenir le chemin complet comme ceci

Name ancienNomComplet As nouveauNomComplet

où nouveauNomComplet est une variable = chemin & le nouveau nom

 

[kiki29]

Salut, à titre d'info : Manipulation des fichiers en VBA

 

[PAT83500]

Bonjour,

Merci pour votre réponse, malheureusement il y aura plus de 700 photos et je ne connais pas à la base comment celles ci seront nommées.

De plus le code fonctionne à part qu'il met les photos renommées dans un autre fichier.

Merci encore pour votre aide.

 

[crocrocro]

pour un renommage en masse, voir mon fichier Excel à télécharger ici
https://excel-downloads.com/resources/renommage-en-masse-de-fichiers.1489/