Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Access renommer fichier d'un répertoire

PAT83500

XLDnaute Nouveau
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.

VB:
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

XLDnaute Nouveau
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
 

PAT83500

XLDnaute Nouveau
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…