XL 2010 Problème importations successives

[SIre]

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]

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

essaie avec ceci

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]

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.