XL 2010 Problème importations successives

SIre · 1 Juillet 2021

Bonjour à tous,

Après parcours des posts sur l'importation de fichier je me retrouve bloqué sur l'importation de données externes.

L'importation se fait correctement la première fois, mais si je veux importer à nouveau et écrire les nouvelles lignes en dessous dans le tableau de destination ..... rien voir des #NA qui s'écrivent dans les cellules.

Probablement le .Resize où encore les rows.count qui me pose toujours autant de problème.

Je joins le fichier de destination et un exemple de fichier source avec l'avancement du code en l'état pour ceux qui pourraient me permettre d'avancer sur ce petit projet qui débute par cette étape d'import.

Sire

Rq: enlever l'extension .xls du deuxième fichier (.csv) interdit à l'importation de pièces jointes

vgendron · 1 Juillet 2021

Hello
ton code actuel copie les données à la place des données déjà présentes

essaie avec ceci

VB:

MsgBox "Nb de lignes à copier : " & Lastrow
        Nblignes = wsDest.Range("Tab_c[" & tDest(1) & "]").Rows.Count
        Nblignes = IIf(Nblignes = 1, 0, Nblignes)
        For i = LBound(tDest) To UBound(tDest)
            wsDest.Range("Tab_c[" & tDest(i) & "]").Offset(Nblignes).Resize(Lastrow) = .Range("Tab_source[" & tSource(i) & "]").Value
        Next i

SIre · 1 Juillet 2021

Bonjour vgendron,

J'ai modifié le code et effectivement je recopiais les données au même endroit. Le Offset fait toute la différence.
C'est super, merci.

Je vais pouvoir poursuivre avec la gestion des doublons.

XL 2010 Problème importations successives

SIre

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

SIre

XLDnaute Nouveau

Discussions similaires