Copier/coller
Michael
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,
Pour gagner du temps dans mes exportations, je souhaiterais créer un bouton me permettant de copier de la ligne A3 à la AG3 du mon tableur vers un autre fichier excel ayant les mêmes coordonées. Ou au moins me les intégrer dans mon presse papier.
Est-ce possible ?
Merci
Pour gagner du temps dans mes exportations, je souhaiterais créer un bouton me permettant de copier de la ligne A3 à la AG3 du mon tableur vers un autre fichier excel ayant les mêmes coordonées. Ou au moins me les intégrer dans mon presse papier.
Est-ce possible ?
Merci
A voir également:
- Copier/coller
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Copier coller multiple - Guide
3 réponses
Bonjour,
sub copiercoller ()
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Application.Dialogs(xlDialogOpen).Show
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub
sub copiercoller ()
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Application.Dialogs(xlDialogOpen).Show
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub
Bonjour,
Pour l'associer à un bouton.
dessine le bouton. Clic droit sur le bouton en mode création, visualiser le code :
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub
Pour l'associer à un bouton.
dessine le bouton. Clic droit sur le bouton en mode création, visualiser le code :
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub
Bonjour,
voici une nouvelle réponse
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
i=3
do while cells(i,1)<> ""
i=i+1
loop
cells(i,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end sub
voici une nouvelle réponse
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
i=3
do while cells(i,1)<> ""
i=i+1
loop
cells(i,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end sub
Est-il possible de remplace "feuilleoutuveuxcoller" par un autre document excel en y indiquant
le chemin du dossier C:\.... ?
Merci
en Avant derniere ligne il y a
Cells(4, 1).Select
En revanche, il faudrait que les informations se mettent toujours en dernière position. Comme ça il serait possible d'exporter plusieurs informations de tableur mais toujours vers le même second tableur.
Avez-vous compris ?
désolé...
Merci encore
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
i=3
do while cells(i,1)<> ""
i=i+1
loop
cells(i,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end sub