Macro Excel copier/coller l'ensemble de la ligne vers un nouveau fichier pour ch
cs_Cel79
Messages postés
2
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
22 mai 2009
-
21 mai 2009 à 17:40
cs_Cel79 Messages postés 2 Date d'inscription jeudi 21 mai 2009 Statut Membre Dernière intervention 22 mai 2009 - 22 mai 2009 à 12:03
cs_Cel79 Messages postés 2 Date d'inscription jeudi 21 mai 2009 Statut Membre Dernière intervention 22 mai 2009 - 22 mai 2009 à 12:03
A voir également:
- Macro excel copier coller cellule dans une autre feuille
- Vba copier coller dans une autre feuille - Forum VB.NET
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- [Vba] aller chercher des données dans une feuille excel ✓ - Forum Visual Basic
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
- Excel appeler cellule autre feuille ✓ - Forum VBA Office (Excel, Word ...)
3 réponses
cs_antom
Messages postés
44
Date d'inscription
vendredi 25 janvier 2008
Statut
Membre
Dernière intervention
17 mai 2012
21 mai 2009 à 19:47
21 mai 2009 à 19:47
Hello à tous,
Si c'est avec Excel 2003 que tu travaille, tu peux essayer cette macro si elle te convient.
Dans la feuille tu places un CommandButton et tu mets ce code :
Public Sub CommandButton1_Click() 'Copie sauvegarde classeur
x = InputBox("Quelle ligne voulez-vous copier ?")
If x = "" Then Exit Sub
If Not IsNumeric(x) Then
MsgBox "Vous devez saisir un nombre !"
x = InputBox("Quelle ligne voulez-vous copier ?")
Else
Rows(x).Copy
Workbooks.Add
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 14.71
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Dr Banner\Bureau" & ActiveSheet.[A1] & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End If
End Sub
C'est mieux comme ça, car tu as le contrôle de ce que tu veux copier ou pas !
Bye.
JassBass
Si c'est avec Excel 2003 que tu travaille, tu peux essayer cette macro si elle te convient.
Dans la feuille tu places un CommandButton et tu mets ce code :
Public Sub CommandButton1_Click() 'Copie sauvegarde classeur
x = InputBox("Quelle ligne voulez-vous copier ?")
If x = "" Then Exit Sub
If Not IsNumeric(x) Then
MsgBox "Vous devez saisir un nombre !"
x = InputBox("Quelle ligne voulez-vous copier ?")
Else
Rows(x).Copy
Workbooks.Add
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 14.71
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Dr Banner\Bureau" & ActiveSheet.[A1] & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End If
End Sub
C'est mieux comme ça, car tu as le contrôle de ce que tu veux copier ou pas !
Bye.
JassBass
cs_antom
Messages postés
44
Date d'inscription
vendredi 25 janvier 2008
Statut
Membre
Dernière intervention
17 mai 2012
21 mai 2009 à 19:51
21 mai 2009 à 19:51
Re,
Bien sûr, tu modifies ce chemin...
"C:\Documents and Settings\Administrateur\Bureau"
... si tu veux placer le classeur ailleurs que sur le bureau.
Bye, JassBass
Bien sûr, tu modifies ce chemin...
"C:\Documents and Settings\Administrateur\Bureau"
... si tu veux placer le classeur ailleurs que sur le bureau.
Bye, JassBass
cs_Cel79
Messages postés
2
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
22 mai 2009
22 mai 2009 à 12:03
22 mai 2009 à 12:03
Salut antom !
Merci beaucoup d'avoir répondu si vite. C'est cool !
Je vais garder ta proposition car elle peut effectivement m'être bien utile, cependant il faudrait que le classeur dans lequel est copié la ligne, s'enregistre tout seul car j'ai trop de données pour le faire manuellement à chaque fois.
Au final, je dois avoir une centaine minimum de nouveaux fichiers.
De plus dans ton code, seule la ligne que j'indique est copiée alors qu'il me faudrait toutes les lignes du même "nom" (colonneA) dans le même fichier.
As-tu une idée ?
Encore merci pour ton aide, elle m'est précieuse !
Merci beaucoup d'avoir répondu si vite. C'est cool !
Je vais garder ta proposition car elle peut effectivement m'être bien utile, cependant il faudrait que le classeur dans lequel est copié la ligne, s'enregistre tout seul car j'ai trop de données pour le faire manuellement à chaque fois.
Au final, je dois avoir une centaine minimum de nouveaux fichiers.
De plus dans ton code, seule la ligne que j'indique est copiée alors qu'il me faudrait toutes les lignes du même "nom" (colonneA) dans le même fichier.
As-tu une idée ?
Encore merci pour ton aide, elle m'est précieuse !
