fattah_5791
XLDnaute Occasionnel
Bonjour,
J'ai une macro qui charge des donnees à partir des feuilles excel d'un classeur source et les colle dans une feuille d'un autre classeur destination.
J'aimerais bien eliminer des colonnes vides (si il y en a) de la plage copiee des feuilles sources avant de faire la copie et quitter la feuille source sans faire aucune modification apres la fermeture.
Merci
(...)
J'ai une macro qui charge des donnees à partir des feuilles excel d'un classeur source et les colle dans une feuille d'un autre classeur destination.
J'aimerais bien eliminer des colonnes vides (si il y en a) de la plage copiee des feuilles sources avant de faire la copie et quitter la feuille source sans faire aucune modification apres la fermeture.
Merci
VB:
(...)
For i = 1 To nbrf
Sheets(i).Select
NbLig = Cells.SpecialCells(xlCellTypeLastCell).Row
'la plage à selectionner pour la copie
Range("D11:X" & NbLig).Select
selection.Copy
Windows("EtudeNotes.xlsm").Activate
Sheets(n).Select
NbLig0 = Range("U" & Rows.Count).End(xlUp).Row
Range("A" & NbLig0 + 1).Select
'Collage de la plage copiee
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False