Renommer suite de photo depuis tableur Excel
Bonjour tout le monde,
J'explique mon problème. Je suis une novice au niveau du langage VBA, j'arrive à faire des codages simples.
Je suis depuis quelque jours, à la recherche d'un moyen de renommer des photos en fonction d'un tableur excel.
Je souhaiterais renommer les photos qui sont nommées avec "NUM GPS" avec les valeurs des cellules de la colonne "REF ORA".
Au mieux, j'aimerais que les photos "NUM GPS_(4)" deviennent "REF ORA_1" et "NUM GPS_(2)" deviennent "REF ORA_2"
J'espère que c'est compréhensible.
Merci pour votre aide !
bonjour,
tu peux nous mettre ton classeur ou un classeur exemple représentatif ?
Alors j'ai réussi a créer quelque chose qui fait le boulot, après je penses que ça peut être simplifié, je ne suis pas très douée.
Cependant, quand j'ai un doublon de numéro, il me demande un débogage. Comment puis-je lui demander de ne pas faire de débogage et de me le noter dans une autre feuille ?
Et également de me noter si je n'ai pas de photos correspondant au fichier source ?
Voici ce que j'ai réussi à faire pour l'instant :
Sub Renam()
'
' Renam Macro
' modification nom image
'
Dim chemin As String, fichier As String, fichier2 As String, cheminfichier As String, cheminfichier2 As String, newchemin As String, newchemin2 As String, newfichier As String, newfichier2 As String, vDoublon As String
Dim L, LDoublon
Dim Ext
L = 2
LDoublon = 1
Ext = ".jpg"
With Worksheets("Chemin").Range("B1")
chemin = .Value
End With
With Worksheets("Photo").Cells(L, 1)
fichier = .Value & "_ (2)" & Ext
End With
With Worksheets("Photo").Cells(L, 1)
fichier2 = .Value & "_ (1)" & Ext
End With
While Cells(L, 1).Value <> ""
With Cells(L, 2)
newfichier = .Value & "_2" & Ext
End With
With Cells(L, 2)
newfichier2 = .Value & "_1" & Ext
End With
cheminfichier = chemin & Application.PathSeparator & fichier
cheminfichier2 = chemin & Application.PathSeparator & fichier2
newchemin = chemin & Application.PathSeparator & newfichier
newchemin2 = chemin & Application.PathSeparator & newfichier2
If Dir(cheminfichier) <> "" Then
Name cheminfichier As newchemin
Else
With Worksheets("Doublon")
Cells(LDoublon, 1).Value = fichier
End With
End If
If Dir(cheminfichier2) <> "" Then
Name cheminfichier2 As newchemin2
Else
With Worksheets("Doublon")
Cells(LDoublon, 1).Value = fichier2
End With
End If
L = L + 1
With Cells(L, 1)
fichier = .Value & "_ (2)" & Ext
End With
With Cells(L, 1)
fichier2 = .Value & "_ (1)" & Ext
End With
Wend
MsgBox ("Fin du traitement")
End Sub
Merci