Incrémentation de feuille dans un nouveau classeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
martinfebrap
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 31 janvier 2017
Version d'Excel : 2013 FR

Message par martinfebrap » 1 février 2017, 16:06

Que j'ajoute où dans mon code ?

(Désolé je suis vraiment super débutant :D )
n
nono78
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 5 janvier 2017
Version d'Excel : 2010 FR

Message par nono78 » 1 février 2017, 16:15

Bon c'est difficile de répondre sans avoir le fichier mais remplace ça:
.UsedRange.EntireRow.Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1)
End With
Par ça:
    .UsedRange.EntireRow.Copy
    
    End With
    
    principal.Sheets(1).[a65536].End(xlUp).Offset(1).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

m
martinfebrap
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 31 janvier 2017
Version d'Excel : 2013 FR

Message par martinfebrap » 1 février 2017, 16:22

Je pense que c'est ok, le problème c'est que mon fichier est trop gros et qu'il n'arrive pas à tout copier, mais je vais trouver une solution ! Merci beaucoup pour ton temps !
n
nono78
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 5 janvier 2017
Version d'Excel : 2010 FR

Message par nono78 » 1 février 2017, 16:25

Petit conseil si le problème c'est la taille du fichier, enregistres le en .xlsb

Espérant que ça va t'aider.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message