euro.speed
XLDnaute Nouveau
Bonjour le forum,
j'ai du code, dont voici un extrait qui me remplit la cellule à pb :
Dim X As Integer
Dim Temp As String
Temp = ""
Tempz = ""
Cible = ""
For z = 3 To Range("AD6500").End(xlUp).Row Step 1
Temp = Range("AD" & z)
Cible = Cible & Temp
If Len(Cible) > 500 Then
Tempz = Tempz & Cible & " _" & vbCr
Cible = ""
End If
Next z
Tempz = Tempz & Cible
'ici on retire le dernier caractère ";"
Tempz = Left(Tempz, Len(Tempz) - 1)
'ici on retire le premier caractère " "
Tempz = Right(Tempz, Len(Tempz) - 1)
Le code remplit une cellule xls. L'ensemble de mes cellules forme le code d'un nouveau module.
Ensuite je copie/colle l'ensemble des cellules dans un module Access.
PROBLEME : il y a des " " qui apparaissent au début et à la fin du texte contenu dans ma cellule qui contient la variable Tempz !
Quelqu'un peut-il m'expliquer ce phénomène ?
Merci
j'ai du code, dont voici un extrait qui me remplit la cellule à pb :
Dim X As Integer
Dim Temp As String
Temp = ""
Tempz = ""
Cible = ""
For z = 3 To Range("AD6500").End(xlUp).Row Step 1
Temp = Range("AD" & z)
Cible = Cible & Temp
If Len(Cible) > 500 Then
Tempz = Tempz & Cible & " _" & vbCr
Cible = ""
End If
Next z
Tempz = Tempz & Cible
'ici on retire le dernier caractère ";"
Tempz = Left(Tempz, Len(Tempz) - 1)
'ici on retire le premier caractère " "
Tempz = Right(Tempz, Len(Tempz) - 1)
Le code remplit une cellule xls. L'ensemble de mes cellules forme le code d'un nouveau module.
Ensuite je copie/colle l'ensemble des cellules dans un module Access.
PROBLEME : il y a des " " qui apparaissent au début et à la fin du texte contenu dans ma cellule qui contient la variable Tempz !
Quelqu'un peut-il m'expliquer ce phénomène ?
Merci