Bonjour
Quand j’actionne mon code mon problème et qu'il me met les underscore à var url = new Array (
puisqu'il se trouve en "D4" y a t-il une solution pour éviter cela?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub Copy() Dim Cel As Range Application.ScreenUpdating = False 'Deuxième partie For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row) Cells(3, "d") = Trim(Cells(3, "d")) & "','" & Cel Next Cel Cells(3, "d").Value = Mid(Cells(3, "d").Value, 2) Cells(3, "d").Value = "var txt = new Array ('" & Cells(3, "d").Value & "');" ' Deuxième partie avec Underscore 'Deuxième partie For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row) Cells(4, "d") = Trim(Cells(4, "d")) & "','" & "Communes/" & Cel & ".html" Next Cel Cells(4, "d").Value = Mid(Cells(4, "d").Value, 2) Cells(4, "d").Value = "var url = new Array ('" & Cells(4, "d").Value & "');" [D4].Replace What:=" ", Replacement:="_" End Sub
Max
Partager