copie automatiqueRésolu

Question

Bonjour, je debute en VBExcel et je souhaite creer automatiquement de nouveaux classeurs dont les noms est contenu dans deux colonnes (id et nom) , et inserere le nom et l`id dans la nouvelle feuille ainsi qu`une structure predefinie.
J`ai reussi a creer une macro permettant de creer automatiquement tous mes nouveaux classeurs, voici le code:

Sub test()
    Dim newW As Workbook
    Application.ScreenUpdating = False
    For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1
        fName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"
        Set newW = Workbooks.Add
        newW.SaveAs Filename:=fName
        Workbooks(fName).Close
    Next
    Application.ScreenUpdating = TrueEnd Subpuis creation d`un bouton:

Private Sub CommandButton1_Click()
test
End Sub

Maintenant j`aimerais que dans chque feuille apparraisse une structure predefinie identique dans tous les classeurs (en vert sur l`image) ainsi que l`id et le nom utilises (en gris sur l`image)... mais je ne vois pas comment inserer un copy-paste dans la boucle ci-dessus.

Merci d`avance

Bijnok

jrivet · Accepted Answer

Salut,
NOTE: On ne voit pas d'image...
Tu peux passer par une feuille "type" contenu dans ton classeur source et que tu compèterais dans la boucle avec id et le nom utilises avant de l'ajouter dans le nouveau classeur.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_bijnok · Answer

----, Salut, Bon ben deja, t'es pas dans le bon theme... ben si... donc le bon theme le voici : Thèmes / Visual Basic 6 / Langages dérivés / VBA / Sub test() Dim newW As Workbook Application.ScreenUpdating = False For i = Sheets(1).Range(\"A50000\").End(xlUp).Row To 1 Step -1 fName = Sheets(1).Cells(i, 1).Value & \" \" & Sheets(1).Cells(i, 2).Value & \".xls\" Set newW = Workbooks.Add newW.SaveAs Filename:=fName With Workbooks(fName) 'ici on crée une nouvelle feuille par copie d'une feuille template d'un fichier template prealablement ouvert Workbooks(\"Template.xls\").Worksheets(\"Template\").Copy Before:= .Sheets(1) .Close End With Next Application.ScreenUpdating = True End Sub je n'ai pas testé ce bout de code A+ ----

Rép.

MP

287 msg

301 msg CS

Re : copie automatique le 08/04/2008 10:27:12 bijnok , Merci nouveau topic au bon endroit: http://www.vbfrance.com/infomsg_COPIE-AUTOMATIQUE_1108230.aspx, ----

Rép.

MP

4 msg

Re : copie automatique le 08/04/2008 10:45:01 bijnok , Merci pour le code, c`est presque xce que je voudrais mais je souhaiterais ne pas a voir a confirmer la sauvegarde parce que je dois avoir quelquechose comme 300 classeurs a creer! De plus, j`aimerais que les cellules A2 et B2 contiennent respectivement l`id et le nom utilise comme filename. Est-ce possible avec une formule de reference sur une feuille contenant les noms du type ` =(i,1)` pour la colonne A et `=(i,2)` pour la B ? Encore merci !

cs_bijnok · Answer

http://www.vbfrance.com/auteur/BIGFISHLEVRAI/510670.aspx




bigfish_le vrai a dit: 









Sub test()
    Dim newW As Workbook
    Application.ScreenUpdating = False
    For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1
        fName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"
        Set newW = Workbooks.Add

        newW.SaveAs Filename:=fName
        With Workbooks(fName)
            'ici on crée une nouvelle feuille par copie d'une feuille template d'un fichier template prealablement ouvert
            
Workbooks("Template.xls").
Worksheets("Template").Copy Before:= .Sheets(1)
            .Close
       End With
    Next
    Application.ScreenUpdating = True
End Sub

je n'ai pas testé ce bout de code

A+

<hr />
Bijnok (moi) a repondu :

Merci pour le code, c`est presque xce que je voudrais mais je souhaiterais ne pas a voir a confirmer la sauvegarde parce que je dois avoir quelquechose comme 300 classeurs a creer! De plus, j`aimerais que les cellules A2 et B2 contiennent respectivement l`id et le nom utilise comme filename.

Est-ce possible avec une formule de reference sur une feuille contenant les noms du type

`=(i,1)` pour la colonne A et `=(i,2)` pour la B ?

Encore merci !

jrivet · Answer

Re,
Mais tu as ouvert combien de topic??? et puis les deux sont il actifs?

Pour ne pas que Excel te demande confirmation
Application.DisplayAlerts = False je crois ou un truc dans le genre

@+: Ju£i?n
Pensez: Réponse acceptée

cs_bijnok · Answer

non je ne m`occuppe plus que de celui-ci.

Merci pour la ligne de code :)

cs_bijnok · Answer

Merci ! Au debut du programme j`ai rajoute:
Application.DisplayAlerts = False 
et a la fin
Application.DisplayAlerts = True
Mais maintenant, la macro me cree un classeur et me met une erreur sur le filename.....

Merci pour votre aide.

jrivet · Answer

re,

met un message box sur fname pour voir ce qu il vaut.
verifie que cela peuisse etre un chemin valide pour un classeur

@+: Ju£i?n
Pensez: Réponse acceptée

cs_bijnok · Answer

euh oui bien sur, je fais ca comment ??!

cs_bijnok · Answer

Et il est a note que cela fonctionne sans les deux nouvelles lignes...

jrivet · Answer

Re,
Euh.... 

fName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"

MSGBOX FName 'ET al tu regarde si le chemin     te parait bon

@+: Ju£i?n
Pensez: Réponse acceptée

cs_bijnok · Answer

pour le prmier classeur c`est correct, mais pour celui d`apres le nom est vide : " .xls"

Apparement il ne prend rien comme id et comme nom, cela signifie t`ol que la macro ne remonte pas la colonne des id et celle des noms mais qu`elles changent de feuille ou je ne sais quoi?

En tout cas, bravo pour la text box, c`est bien vu!

cs_bijnok · Answer

J`ai essaye ceci:

Sub test()
Dim newW As Workbook
Application.ScreenUpdating = False
'Application.DisplayAlerts = False
For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1

Dim A2 As String
A2 = Sheets(1).Cells(i, 1).Value

Dim B2 As String
B2 = Sheets(1).Cells(i, 2).Value

FName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"

Set newW = Workbooks.Add
newW.SaveAs Filename:=FName

With Workbooks(FName)
'ici on crée une nouvelle feuille par copie d'une feuille template d'un fichier template prealablement ouvert
Workbooks("structure.xls").Worksheets("timetable") .Copy Before:=.Sheets(1)
Sheets(1).Cells(2, 1).Value = A2
Sheets(1).Cells(i, 2).Value = B2
.Close
End With
Next

'Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

mais la boucle s`arrete apres la creation du premier classeur (toujours le meme probleme de nom de sauvegarde vide).
De plus la cellule B2 de la nouvelle feuille reste vide alors que la A2 contient l`Id que je souhaite.  Je ne compremd vraiment pas grand chose a VBA bien que je soit presque bon en C et Java...
Aussi, je ne fais que copier la valeur en A2, alors que je souhaiterais copier une formule du type "=............." afin de faire reference a la base de donnee; de cette facon chacune des feuilles sera mise a jour avec la base de donnees principale...

Merci pour votre aide, j`en ai grandement besoin. 

I need your help please....

cs_bijnok · Answer

Jai oublie de dire que le "display alert" ne faisait rien actuellement.

cs_bijnok · Answer

j`ai une faute, il faut remplacer Sheets(1).Cells(i, 2).Value = B2 par Sheets(1).Cells(2, 2).Value = B2

Copie automatique

14 réponses

Votre réponse

Discussions similaires