Creation automatique classeur apres ajout ligne dans tableau
hedi
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
voila mon probleme: il faut qu'a l'ajout d'une ligne au tableau du classeur de base, se crée un nouveau classeur (qui reprendra des infos du classeur de base).
Voici mon idée:
for i = 1 to derniere_ligne
if "le classeur n'existe pas" then "creation du classeur i et nommage en fonction de Ai"
workbook("" & range("A" & i)).range("A1")= range("A1")
ect
next
Merci pour votre aide !
voila mon probleme: il faut qu'a l'ajout d'une ligne au tableau du classeur de base, se crée un nouveau classeur (qui reprendra des infos du classeur de base).
Voici mon idée:
for i = 1 to derniere_ligne
if "le classeur n'existe pas" then "creation du classeur i et nommage en fonction de Ai"
workbook("" & range("A" & i)).range("A1")= range("A1")
ect
next
Merci pour votre aide !
3 réponses
-
Bonjour,
Quelque pistes...Sub CreeCasseur()
A+
Dim Repertoire As String, Nom As String
Dim DerLig As Long, Boucle As Long
'Initialiser avec le chemin exact de l'emplacement des classeurs
Repertoire = "C:\Rep1\Rep2\"
DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For Boucle = 1 To DerLig
Nom = Cells(Boucle, 1).Value
If Dir(Repertoire & Nom) = "" Then
'le classeur n'existe pas
Workbooks.Add
'Ici copier les données de ThisWorkBook souhaitées
'Sur ActiveWorkBook.Sheets("Feuil1")
ActiveWorkbook.SaveAs (Repertoire & Nom)
ActiveWorkbook.Close
End If
Next Boucle
End Sub
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée . -
-
sur une autre facon de faire
Pourrais-tu nous en faire profiter ?
