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