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

Importation de données

  • Initiateur de la discussion Initiateur de la discussion Al
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Al

Guest
Bonjour à tous

Je voudrais importer automatiquement des donneés à partir d' une feuille,
et à chaque imortation que les nouvelles données n' écrasent pas les données existantes mais s' inserent après la derniere céllule pleine de la colonne A.

Grand merci à celui qui m' aidra à résoudre ce pb.
 
Bonsoir aux couches tards, ou bonjour pour ceux qui le liront dans la journée..


Voilà un code qui devrait te convenir :


Sub import()
Dim rep As String
Dim derniereligne As Integer

Set ws = Sheets("feuil1") 'à adapter

1
derniereligne = ws.Range("A65536").End(xlUp).Row
rep = InputBox("toto", "Veuillez nommer le nom de la feuille", "feuil2")
On Error GoTo 2
Set ws1 = Sheets(rep)
'ws1.Activate
L = ws1.Range("A65536").End(xlUp).Row
ws1.Range("A1", "C" & L).Copy Destination:=ws.Range("A" & derniereligne) ' adapter la plage de cellule qu'on veut copier
Application.CutCopyMode = False
ws.Select
GoTo 1
2
End Sub


Il ne suffit que de la lancer qu'une fois, car tu reviens toujours à la boite de dialogue Inputbox, pour sortir il suffit de cliquer sur annuler ou de saisir un mauvais nom de feuille.

A+++
 
Bonjour

Je te remercie pour le code, mais j' ai un pb, lorsque je met dans Range
"A390", il me fait la copie en céllule A3900, je ne comprends pas,
Pourrais - tu m' expliquer pourquoi ?.
A part ça le code fonctionne correctement.

ws1.Range("A2:Z52", "C" & L).Copy Destination:=WS.Range("A390" & derniereligne) ' adapter la plage de cellule qu'on veut copier
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
250
Affichages
15 K
Réponses
1
Affichages
459
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…