Erreur 2042 et incompatibilité de type
Bonjour à tous,
Je fais de nouveau appel à vous car j'ai un soucis sur une ligne de code. C'est un code que j'ai trouvé et que j'ai remis à ma sauce pour un extraire une feuille Excel en une autre feuille au format csv. Mon soucis survient à la ligne tmp = tmp & Chr(59) & C(a ,b). J'ai une erreur 13: incompatibilité de type et en mettant le curseur sur C(a,b) ça me dit erreur 2042. Pourriez-vous m'aider ?
Voici le code :
Sub extraction_eOTP()
Dim C As Variant
Dim FileName As String
Dim a As Integer, b As Integer
Dim tmP As String
Dim wkDest As Workbook
'Selection des données à exporter (toutes les valeurs de la feuille active
With ActiveSheet
Range("A1").Select
C = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
End With
FileName = "d:\utilisateurs\b.desserme\Desktop\TEST\eOTP.txt"
fileFilter = "Text Files (*.txt, *.txt"""
'Si utilisation du bouton annuler
If CStr(FileName) = CStr(False) Then
Exit Sub
End If
'ouverture du fichier
Open FileName For Output As #1
For a = 1 To UBound(C, 1)
tmP = ""
For b = 1 To UBound(C, 2)
If tmP > "" Then
tmP = tmP & Chr(59) & C(a, b)
Else
tmP = C(a, b)
End If
Next
Print #1, tmP
Next
'Fermeture du fichier
Close #1
Set wkDest = Application.Workbooks.Open("d:\utilisateurs\b.desserme\Desktop\TEST\eOTP.txt")
Kill "d:\utilisateurs\b.desserme\Desktop\TEST\eOTP.csv"
wkDest.SaveAs FileName:="d:\utilisateurs\b.desserme\Desktop\TEST\eOTP", FileFormat:=xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False, Local:=True
wkDest.Close True
End Sub
Merci d'avance.
Cordialement
Bonjour
Sans le fichier en cause pas évident
Lors de l'erreur fais un debug de l'élément de ton tableau
Dans la fenêtre exécution tape ? c(a,b)
Des fois en passant le pointeur de la souris dans le code sur cette partie tu peux avoir directement le résultat
Peut-être dans cet élément tu as une erreur (provenant d'une formule par exemple)
Regardes dans ta feuille XL si pas d'erreur
Sinon il faut le fichier XL en cause
Salut banzai64,
D'abord merci pour ta réponse je vais essayer.
Ce fichier est un fichier boulot et je n'ai pas le droit de le sortir je vais donc faire la même chose sur une feuille bateau que je posterai ce soir.
Merci pour ton aide.
Cordialement
Re bonjour,
C'est réglé j'avais des cellules #N/À dans ma plage de cellules un coup de esterreur dans mes formules et c'est réglé.
Merci