Erreur d'exécution 13, incompatibilité
Bonjour,
en tentant d'importer un fichier excel vers la base Acces, j'ai le message d'erreur suivant:
Erreur d'exécution 13, incompatibilité, lorsque je clique sur débogage, la 2eme ligne c-dessous est surlignée:
c2 = "'" & Replace(xlSheet.Cells(i, r4).Value, "'", "''") & "'"
Next
i = 3
j = 2
Do While xlSheet.Cells(i, j).Value > 0
c1 = "'" & xlSheet.Cells(i, r3).Value & "'"
c2 = "'" & Replace(xlSheet.Cells(i, r4).Value, "'", "''") & "'"
c3 = "'" & Replace(xlSheet.Cells(i, r5).Value, "'", "''") & "'"
c4 = "'" & Replace(xlSheet.Cells(i, r6).Value, "'", "''") & "'"
Pouvez-vous m'aider à résoudre le problème rencontré?
Bonjour,
copie du tableau de l'aide de la fonction Replace sous VBA :
Si_______________________________________La fonction Replace renvoie
expression a une longueur nulle_________Une chaîne de longueur nulle ("").
expression a la valeur Null______________Une erreur.
find a une longueur nulle_______________Une copie de l'expression.
replace a une longueur nulle____________Une copie de l'expression, toutes les occurrences de find étant retirées.
start > Len(expression)_________________Une chaîne de longueur nulle.
count a une valeur de 0_________________Une copie de l'expression.
Dans votre cas cela retourne une erreur, alors xlSheet.Cells(i, r4).Value à une valeur nulle...
Sinon pour ma part je ne peux dire plus....
@ bientôt
LouReeD
Bonjour,
Je suis navrée mais je n'ai pas compris votre réponse.
Je suis novice en vba certes mais là je n'ai pas compris votre message
A priori la fonction REPLACE renvoie une erreur si l'expression en paramètre est vide, ou égal à rien, c'est ce qui est surligné.
Donc regardez si votre cellule Cells(i,r4).value a une valeur nulle ou vide, pour connaître à quelle ligne cela pose problème lors du débogage vous pouvez mettre le curseur de la souris sur le i, alors VBA vous donnera sa valeur lors de l'erreur ainsi que sur r4, et à vous de voir si à l'adresse de la cellule en ligne i et colonne r4 il y a bien une valeur.
@ bientôt
LouReeD
merci pour votre réponse, en effet il y avait une ligne vide (une 1ère ligne d'une colonne). il a fallu refaire un tri.
+ il y avait une colonne où les dates étaient en format texte.
Le problème est maintenant résolu. Merci
Ravis que cela fonctionne !
Merci de vos remerciements
@ bientôt
LouReeD