Discussion :

[skipeemed]

Bonjour,

Je veux qu'une partie de chacune des cellules se trouvant dans une plage spécifique soit copié dans une autre cellule en respectant leur emplacement.C'est à dire si j'ai une cellule I15 qui contient par exemple "c:\Documents and Settings\user123\Application Data\appl.exe" alors la chaine de caractère "user123" soit copié dans L15 et on fait rentrer la chaine de caractère "DSM" dans chacune d'elles.

Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Range("a65536").Select
    dernière_ligne2 = Selection.End(xlUp).Row
    Range("I2:I" & dernière_ligne2).Select
    For Each Cell In Selection
    If UCase(Cell.Text) Like "C:\DOCUMENTS AND SETTINGS\*" Then
    Matricule = Mid(UCase(Cell.Text), 27, 7)
    Chemin_fichier = Cell.Value
    Range("D" & Chemin_fichier).FormulaR1C1 = "DSM"
    Range("L" & Chemin_fichier).FormulaR1C1 = Matricule
    End If
    Next

Normalement lors de l'exécution il y'a une erreur au niveau des deux dernières lignes de code parce que je connais pas la formule exacte pour la copie de cette partie là.
Le nom de l'erreur est ci-joint.

Donc merçi pour une réponse et à bientôt.

Cdt,
Skipeemed