Export Excel sans écraser l'existant
Résolu/Fermé
ptitbow
Messages postés
2
Date d'inscription
jeudi 22 janvier 2015
Statut
Membre
Dernière intervention
22 janvier 2015
-
Modifié par ptitbow le 22/01/2015 à 13:50
baladur13 Messages postés 46412 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 2 mai 2024 - 22 janv. 2015 à 16:37
baladur13 Messages postés 46412 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 2 mai 2024 - 22 janv. 2015 à 16:37
A voir également:
- Export Excel sans écraser l'existant
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
22 janv. 2015 à 14:30
22 janv. 2015 à 14:30
Bonjour,
ecriture a partir de la ligne 2
ecriture a partir de la ligne 2
Sub test() Dim classeurSource As Workbook, classeurDestination As Workbook Application.ScreenUpdating = False 'définir le classeur destination Set classeurDestination = ThisWorkbook If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub Set classeurSource = ActiveWorkbook 'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination classeurSource.Sheets("Sheet1").Range("D5:D20").Cells.Copy With classeurDestination.Sheets("Sheet1") 'premiere cellule vide colonne A PLV = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("A" & PLV & ":Z" & PLV).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True End With 'fermer le classeur source classeurSource.Close False Application.ScreenUpdating = True End Sub
Modifié par ptitbow le 22/01/2015 à 15:14
22 janv. 2015 à 16:37
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/