Bonjour à tous,
J'ai besoin pour mon travail de créer une macro. Le probleme est qu'il faut
passer par du VBA et que je suis assez nul dans ce domaine ma spécialité
étant le php
Voici mon probleme:
Classeur 1 avec des données, les colonnes sont fixes ( disons 6 colonnes)
mais les lignes sont variables entre 1 à 5 lignes maximum.
Classeur 2 avec les données du classeur 1.
Je souhaiterai grace à une macro, copier les données du classeur 1 sur le
classeur 2 mais sans jamais ecraser les données qui pourraient déjà y être
présente et donc à la suite.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincnet.
Sub PasTestée() Dim wk1 As Workbook Dim wk2 As Workbook Dim sh1 As Worksheet Dim sh2 As Worksheet Set wk1 = Workbooks("Classeur 1.xls") Set wk2 = Workbooks("Classeur 2.xls") Set sh1 = wk1.Worksheets("Feuil1") Set sh2 = wk2.Worksheets("Feuil1")
sh1.Range("A2:F" & sh1.Range("A65536").End(xlUp).Row).copy sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial Application.CutCopyMode = False Set wk1 = Nothing Set wk2 = Nothing Set sh1 = Nothing Set sh2 = Nothing End Sub
mais comme son nom l'indique, j'ai eu la flemme de la testée ! -- A+
V.
Bonjour à tous, J'ai besoin pour mon travail de créer une macro. Le probleme est qu'il faut passer par du VBA et que je suis assez nul dans ce domaine ma spécialité étant le php Voici mon probleme:
Classeur 1 avec des données, les colonnes sont fixes ( disons 6 colonnes) mais les lignes sont variables entre 1 à 5 lignes maximum.
Classeur 2 avec les données du classeur 1.
Je souhaiterai grace à une macro, copier les données du classeur 1 sur le classeur 2 mais sans jamais ecraser les données qui pourraient déjà y être présente et donc à la suite.
J'espere être assez clair.
Sub PasTestée()
Dim wk1 As Workbook
Dim wk2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set wk1 = Workbooks("Classeur 1.xls")
Set wk2 = Workbooks("Classeur 2.xls")
Set sh1 = wk1.Worksheets("Feuil1")
Set sh2 = wk2.Worksheets("Feuil1")
sh1.Range("A2:F" & sh1.Range("A65536").End(xlUp).Row).copy
sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial
Application.CutCopyMode = False
Set wk1 = Nothing
Set wk2 = Nothing
Set sh1 = Nothing
Set sh2 = Nothing
End Sub
mais comme son nom l'indique, j'ai eu la flemme de la testée !
--
A+
V.
Bonjour à tous,
J'ai besoin pour mon travail de créer une macro. Le probleme est qu'il faut
passer par du VBA et que je suis assez nul dans ce domaine ma spécialité
étant le php
Voici mon probleme:
Classeur 1 avec des données, les colonnes sont fixes ( disons 6 colonnes)
mais les lignes sont variables entre 1 à 5 lignes maximum.
Classeur 2 avec les données du classeur 1.
Je souhaiterai grace à une macro, copier les données du classeur 1 sur le
classeur 2 mais sans jamais ecraser les données qui pourraient déjà y être
présente et donc à la suite.
Sub PasTestée() Dim wk1 As Workbook Dim wk2 As Workbook Dim sh1 As Worksheet Dim sh2 As Worksheet Set wk1 = Workbooks("Classeur 1.xls") Set wk2 = Workbooks("Classeur 2.xls") Set sh1 = wk1.Worksheets("Feuil1") Set sh2 = wk2.Worksheets("Feuil1")
sh1.Range("A2:F" & sh1.Range("A65536").End(xlUp).Row).copy sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial Application.CutCopyMode = False Set wk1 = Nothing Set wk2 = Nothing Set sh1 = Nothing Set sh2 = Nothing End Sub
mais comme son nom l'indique, j'ai eu la flemme de la testée ! -- A+
V.
Bonjour à tous, J'ai besoin pour mon travail de créer une macro. Le probleme est qu'il faut passer par du VBA et que je suis assez nul dans ce domaine ma spécialité étant le php Voici mon probleme:
Classeur 1 avec des données, les colonnes sont fixes ( disons 6 colonnes) mais les lignes sont variables entre 1 à 5 lignes maximum.
Classeur 2 avec les données du classeur 1.
Je souhaiterai grace à une macro, copier les données du classeur 1 sur le classeur 2 mais sans jamais ecraser les données qui pourraient déjà y être présente et donc à la suite.
