Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Problème importations successives

SIre

XLDnaute Nouveau
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
 

Pièces jointes

  • Fichier 1.xlsm
    575 KB · Affichages: 10
  • list_cbl19 - Copie.csv.xls
    1.2 KB · Affichages: 6

vgendron

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…