Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel copie ligne entiere dans un nouveau fichier excel

copie ligne entiere dans un nouveau fichier excel

7 réponses
Avatar
Franck
Bonjour,

Ce petit bout de code ci-dessous me permet de cr=E9er des=20
r=E9pertoires automatiquement en prenant comme nom de=20
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z =3D Application.WorksheetFunction.CountA(Range("a:a"))
For i =3D 1 To z
MkDir ("c:\clients\" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, =E0 partir de la cr=E9ation du premier=20
r=E9pertoire, de copier toutes les valeurs se trouvant sur=20
la premi=E8re ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le=20
r=E9pertoire cr=E9er avec le code ci-dessus =20

Merci pour vos r=E9ponses

Salutations
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
docmarti
Bonjour Franck

Voici un extrait d'une brillante réponse donnée par Isabelle le 9 janv 2004.

Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:Mes documentszaza.xls"
ActiveWorkbook.Close


"Franck" wrote in message
news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations
Avatar
Franck
Merci pour votre réponse, mais cela ne règle pas mon
problème car ce code copie tout
et j'ai seulement besoin de la première ligne à chaque
fois que je créer un répertoire

Si vous avez un autre exemple, je suis preneur

Merci d'avance


-----Message d'origine-----
Bonjour Franck

Voici un extrait d'une brillante réponse donnée par
Isabelle le 9 janv 2004.


Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:Mes
documentszaza.xls"

ActiveWorkbook.Close


"Franck" wrote in
message

news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations


.



Avatar
Franck
Merci pour votre réponse, mais cela ne règle pas mon
problème car ce code copie tout
et j'ai seulement besoin de la première ligne à chaque
fois que je créer un répertoire

Si vous avez un autre exemple, je suis preneur

Merci d'avance


-----Message d'origine-----
Bonjour Franck

Voici un extrait d'une brillante réponse donnée par
Isabelle le 9 janv 2004.


Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:Mes
documentszaza.xls"

ActiveWorkbook.Close


"Franck" wrote in
message

news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations


.



Avatar
papou
Bonjour franck
Voici un exemple avec ton code un peu modifié (attention notamment aux
informations dans les commentaires)
Cordialement
Pascal

Sub repenplus()
Dim z As Long
Dim i
'!!! Attention j'ai modifié le lecteur !!!
Const RepRacine As String = "D:Clients"
Dim NomSousRep As String
Dim NomDuClasseur As String
'!!! Attention référence complète au classeur qui contient la macro,
modifier le nom de la feuille !!!
z Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets("Feuil1").Range
("a:a"))
For i = 1 To z
NomSousRep = ThisWorkbook.Worksheets("Feuil1").Cells(i, 1).Value
MkDir (RepRacine & NomSousRep)
Workbooks.Add
x = ThisWorkbook.Worksheets("Feuil1").Cells(i, 256).End(xlToLeft).Column
For y = 1 To x '!!! à voir si on veut récupérer encore la valeur en 1ère
colonne !!!!
'!!! ActiveWorkbook fait référence au classeur qui est actif (celui qui a
été ajouté)
' et non pas au classeur qui contient la macro !!!
With ActiveWorkbook.Worksheets(1)
.Cells(1, y).Value = ThisWorkbook.Worksheets("Feuil1").Cells(i, y).Value
End With
Next y
'!!!! ici on enregistre le nouveau classeur avec le même nom que son
répertoire !!!!
'A modifier !!!
NomDuClasseur = RepRacine & NomSousRep & "" & NomSousRep & ".xls"
ActiveWorkbook.SaveAs Filename:=NomDuClasseur
ActiveWorkbook.Close
Next i
End Sub

"Franck" a écrit dans le message de
news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations
Avatar
docmarti
À adapter à tes besoins.

Sous toutes réserves:

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
Repertoire = "c:Mes documents" & Cells(i, 1).Value

MkDir (Repertoire)

Sheets("Feuil2").Cells.Clear

Ligne = i

Sheets("Feuil1").Rows(Ligne & ":" & Ligne).Copy
Sheets("Feuil2").Range("A1")

Sheets("Feuil2").Copy

Fichier = Repertoire & "" & "zaza.xls"

ActiveWorkbook.SaveAs FileName:=Fichier
ActiveWorkbook.Close

Next i

"Franck" wrote in message
news:30bc01c3e1c1$6d4a9d10$
Merci pour votre réponse, mais cela ne règle pas mon
problème car ce code copie tout
et j'ai seulement besoin de la première ligne à chaque
fois que je créer un répertoire

Si vous avez un autre exemple, je suis preneur

Merci d'avance


-----Message d'origine-----
Bonjour Franck

Voici un extrait d'une brillante réponse donnée par
Isabelle le 9 janv 2004.


Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:Mes
documentszaza.xls"

ActiveWorkbook.Close


"Franck" wrote in
message

news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations


.



Avatar
Franck
Bonne Journée A vous et Meilleurs Voeux pour l'Année 2004




-----Message d'origine-----
Bonjour franck
Voici un exemple avec ton code un peu modifié (attention
notamment aux

informations dans les commentaires)
Cordialement
Pascal

Sub repenplus()
Dim z As Long
Dim i
'!!! Attention j'ai modifié le lecteur !!!
Const RepRacine As String = "D:Clients"
Dim NomSousRep As String
Dim NomDuClasseur As String
'!!! Attention référence complète au classeur qui
contient la macro,

modifier le nom de la feuille !!!
z =
Application.WorksheetFunction.CountA
(ThisWorkbook.Worksheets("Feuil1").Range

("a:a"))
For i = 1 To z
NomSousRep = ThisWorkbook.Worksheets("Feuil1").Cells(i,
1).Value

MkDir (RepRacine & NomSousRep)
Workbooks.Add
x = ThisWorkbook.Worksheets("Feuil1").Cells(i, 256).End
(xlToLeft).Column

For y = 1 To x '!!! à voir si on veut récupérer encore
la valeur en 1ère

colonne !!!!
'!!! ActiveWorkbook fait référence au classeur qui est
actif (celui qui a

été ajouté)
' et non pas au classeur qui contient la macro !!!
With ActiveWorkbook.Worksheets(1)
.Cells(1, y).Value = ThisWorkbook.Worksheets
("Feuil1").Cells(i, y).Value

End With
Next y
'!!!! ici on enregistre le nouveau classeur avec le même
nom que son

répertoire !!!!
'A modifier !!!
NomDuClasseur = RepRacine & NomSousRep & "" &
NomSousRep & ".xls"

ActiveWorkbook.SaveAs Filename:=NomDuClasseur
ActiveWorkbook.Close
Next i
End Sub

"Franck" a écrit
dans le message de

news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations


.



Avatar
Franck
Bonne Année 2004



-----Message d'origine-----

À adapter à tes besoins.

Sous toutes réserves:

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
Repertoire = "c:Mes documents" & Cells(i, 1).Value

MkDir (Repertoire)

Sheets("Feuil2").Cells.Clear

Ligne = i

Sheets("Feuil1").Rows(Ligne & ":" & Ligne).Copy
Sheets("Feuil2").Range("A1")

Sheets("Feuil2").Copy

Fichier = Repertoire & "" & "zaza.xls"

ActiveWorkbook.SaveAs FileName:=Fichier
ActiveWorkbook.Close

Next i

"Franck" wrote in
message

news:30bc01c3e1c1$6d4a9d10$
Merci pour votre réponse, mais cela ne règle pas mon
problème car ce code copie tout
et j'ai seulement besoin de la première ligne à chaque
fois que je créer un répertoire

Si vous avez un autre exemple, je suis preneur

Merci d'avance


-----Message d'origine-----
Bonjour Franck

Voici un extrait d'une brillante réponse donnée par
Isabelle le 9 janv 2004.


Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:Mes
documentszaza.xls"

ActiveWorkbook.Close


"Franck" wrote in
message

news:324401c3e1b8$e58449b0$
Bonjour,

Ce petit bout de code ci-dessous me permet de créer des
répertoires automatiquement en prenant comme nom de
dossier les valeurs se trouvant dans la colonne A
en l'occurence des noms de clients

Sub repenplus()

Dim z As Long
Dim i

z = Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To z
MkDir ("c:clients" & Cells(i, 1).Value)
Next i
End Sub

Mais comment faire, à partir de la création du premier
répertoire, de copier toutes les valeurs se trouvant sur
la première ligne (ou enregistrement)
dans un nouveau fichier excel et le placer dans le
répertoire créer avec le code ci-dessus

Merci pour vos réponses

Salutations


.




.