Copier des donnees d'un fichier vers un autre Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Macachou
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 24 juillet 2015
Version d'Excel : mac

Message par Macachou » 27 juillet 2015, 15:50

Voici le code pour être plus explicite
Sub Exporter()
Range("a2:i31").Select
Workbooks.Open Filename:="adresse du fichier"
lgn = Range("A" & Rows.Count).End(xlUp)(2).Row
Range("A" & lgn).PasteSpecial xlPasteValues
Range("A1").CurrentRegion.Sort key1:=Range("f2"), order1:=xlAscending, Header:=xlYes
Application.CutCopyMode = False
ThisWorkbook.Close
End Sub

Comment éviter que ça ne copie les cellules qui sont vides?

Merci
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'820
Appréciations reçues : 362
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 27 juillet 2015, 17:23

Bonjour
Apparemment, tu as changé de plage.
Joins donc ton fichier et un exemple de ce que tu veux obtenir.
Bye !
M
Macachou
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 24 juillet 2015
Version d'Excel : mac

Message par Macachou » 27 juillet 2015, 17:41

Salut,
Oui j'ai adapté selon mes nouveaux besoins
voici l exemple

Merci
exemple.xlsm
(23.03 Kio) Téléchargé 14 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'820
Appréciations reçues : 362
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 27 juillet 2015, 19:05

Nouvelle version :
exemple v1.xlsm
(23.47 Kio) Téléchargé 21 fois
Bye !
M
Macachou
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 24 juillet 2015
Version d'Excel : mac

Message par Macachou » 27 juillet 2015, 20:05

Gmb tu es trop fort!!!
Merci beaucoup!!
Bye
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message