Bonjour,

Je vous écris pour essayer de comprendre la raisson du non fonctionnement de ma macro.

J'ai une macro avec 4 subs. Parmis eux, j'ai un qui doit couper l'information qui est sur la colonne("AC"), après le dixième charactère qui est un espace (" "), et mettre les characteres suivantes dans la colonne ("AD").

Voici mon code.
Nb; pardon pour mon français que ça fait peu que je le parle.

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
Sub splitcolonne()
 
'split colonne ship to et name produit
objWorkbook = ActiveWorkbook.Name
objWorksheet = objWorkbook.Worksheets("Zsales")
DLigneA = Range("AC100000").End(xlUp).Row
DLigneB = Range("AD100000").End(xlUp).Row
Dim currentcell As Variant
 
Set objRange = currentcell.DLigneA
Set objRange2 = currentcell.DLigneB
 
objRange.TextToColumns objRange2, , , , , , True
 
End Sub
L'erreur qui m'affiche est une manque d'objet.

Merci d'avance.

Cordialement