Excel 2003

Fermé

j.sparo83 Messages postés 98 Date d'inscription vendredi 14 mai 2010 Statut Membre Dernière intervention 18 juin 2012 - Modifié par j.sparo83 le 10/10/2011 à 15:18
j.sparo83 Messages postés 98 Date d'inscription vendredi 14 mai 2010 Statut Membre Dernière intervention 18 juin 2012 - 11 oct. 2011 à 10:01

Bonjour,

Existe-il une macro qui fait la copie d'un contenu d'un tableau excel vers un autre tableau sachant que les 2 tableaux ont exactement la meme organisation des colonnes.

sachant que je dois copier a partir de plusieurs tableaux, C'est a dire, commencer la copie a partir de la derniere ligne non-vide

Merci d'avance

A voir également:

5 réponses

Réponse 1 / 5

Lentz
10 oct. 2011 à 15:16

Les tableaux sont où ? même onglet ? classeur différent ?

Réponse 2 / 5

j.sparo83 Messages postés 98 Date d'inscription vendredi 14 mai 2010 Statut Membre Dernière intervention 18 juin 2012
10 oct. 2011 à 15:36

CLASSEURS DIFFERENTS ET MEME FORME

Réponse 3 / 5

Lentz
Modifié par Lentz le 10/10/2011 à 15:42

Pas obliger de crier... un simple copier coller suffit ;)

Sub Macro2()  
    Windows("nom_1er_fich").Activate  
    Cells.Select  
    Selection.Copy  
    Windows("nom_2eme_fich").Activate  
    ActiveSheet.Paste  
      
End Sub

Réponse 4 / 5

j.sparo83 Messages postés 98 Date d'inscription vendredi 14 mai 2010 Statut Membre Dernière intervention 18 juin 2012
11 oct. 2011 à 00:35

ok, mais est ce que si j'ajoute un 3eme fichier il ecrase les autres valeurs ou il continue la copie a la fin du contenu copié a partir du fichier 2 ?

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
Modifié par Mytå le 11/10/2011 à 01:43

Salut le forum

Une façon pour copier à la suite

Sub essai() 
Dim FeuilleSource As Worksheet, FeuilleCible As Worksheet 

Set FeuilleSource = Workbooks("Classeur1").Worksheets("Feuil1") 
Set FeuilleCible = Workbooks("Classeur2").Worksheets("Feuil2") 

With FeuilleSource 
.Range("A1").CurrentRegion.Copy 
End With 

With FeuilleCible 
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial 
End With 

End Sub

Mytå

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

j.sparo83 Messages postés 98 Date d'inscription vendredi 14 mai 2010 Statut Membre Dernière intervention 18 juin 2012
Modifié par j.sparo83 le 11/10/2011 à 14:29

Bonjour,

Je sais que j'en demande trop, peux tu me mettre des commentaires pour que je comprenne un peut?

Merci beaucoup