copie fichier

[manuBX]

Bjr
comment faire a partir de feuille numérote 1 2 3 4 5 ETC en A1 en cliquant sur un bouton pour copier ce fichier qui reprendrait la suite des feuilles numérotés dans mon exemple 6 7 8 9 1O
ce fichier serait renommé manuellement
attention dans ce fichier il y aurait aussi des feuilles non numéroté en a1 qu il ne faudrait pas tenir compte
ça m enlèverais une grosse épine
A+

 

[job75]

Re : copie fichier

Bonjour manuBX,

Pas bien claire votre affaire...

Pour copier la feuille numérotée A1 sur la feuille active, vers la feuille numérotée A1+5, exécuter la macro :

Sub Copie()
On Error Resume Next
Sheets(Range("A1")).Cells.Copy Sheets(Range("A1") + 5).Cells
End Sub

A+

 

[Robert]

Re : copie fichier

Bonjour Manu, Job, bonjour le forum,

Il me semblait qu'on avait répondu à ton problème ici Manu... D'ailleurs j'attendais une reponse de ta part sur ce fil plutôt qu'un autre fil sur le même porblème... Tu devrais lire la charte, ça fait comme l'éclair, ça fout droit !!!

 

[manuBX]

Re : copie fichier

je le reconnais c est pas simple mais je vais essayer
fichier ZUT avec feuilles1 numéroté en A1 =1
feuilles2 numéroté en A1= 2
feuilles3 numéroté en A1 =3 etc (dans ce cas 3serait la derniere)
sur les feuilles un bouton permettant la copie du fichier ZUT en ZUTcopi

a l ouverture de ZUTcopi les feuilles1 serait numéroté en A1 =4
feuilles2 numéroté en A1= 5
feuilles3 numéroté en A1 =6 etc

attention dans ce fichier il y aurait aussi des feuilles non numéroté en a1 qu il ne faudrait pas tenir compte
A+

 

[Paritec]

Re : copie fichier

Bonjour Robert, Manu, le forum,
Ben là moi j'ai encore besoin du décodeur de Sète, (Kjin au secours)
Ou alors il veut incrémenter ses feuilles systématiquement de 1 , c'est ce que j'ai compris, toutes les feuilles qui auraient une valeur en A1, des lors, qu'il y aurait un ajout de son modèle, mais est-ce cela? Et là je vois pas l'intérêt mais bon c'est sa demande.
Pourrais-tu Manu rester sur l'autre fil comme te le demandait Robert.
car 2 ou plusieurs fil pour un même sujet avec en plus un titre différent pas bien
a+
Papou

 

[job75]

Re : copie fichier

Bonjour Robert, Papou,

Je n'avais pas vu l'autre fil, merci.

Maintenant je comprends que les posts de Manu sont cryptés, et qu'il faut parler le sétois.

A+

 

[manuBX]

Re : copie fichier

Ce dont j ai besoin c est d avoir une numerotaion sur le fichier ZUT creer la copie du fichier ZUTcopi à l aide d un bouton et retrouver les memes feuilles mais avec une numerotaion qui serait la suite du fichier précédent

Merci d avance

 

[jeanpierre]

Re : copie fichier

Bonjour à tous par ce presque beau samedi,

En fait manuBX veut la copie à l'identique du fichier, mais pas pareil.....

Je ne vois pas trop l'intérêt de copier en changeant les numéros d'onglets....

Une fois ceci compris, ce sera peut-être plus simple.

Cool, c'est samedi.

Jean-Pierre

 

[Robert]

Re : copie fichier

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim vm As Integer 'déclare la variable vm (Valeur Maximum)
Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim n As String 'déclare la variable n (Nom)
Dim chem As String 'déclare la variable chem (CHEMin)
 
chem = ThisWorkbook.Path & "\" 'définit la variable chem
vm = 0 'définit la variable vm
 
For Each sh In Sheets 'boucle sur tous les onglets du classeur
    'si la valeur convertie en entier de A1 est supérieure à vm, alors vm prend cette valeur
    If CInt(sh.Range("A1")) > vm Then vm = CInt(sh.Range("A1"))
Next sh 'prochain onglet de la boucle (à la fin, vm à pris la plus grande valeur)
 
'boite d'entrée pour demander le nom du fichier copié
n = InputBox("Donnez le nom au nouveau fichier. Sans l'extension !", "RENOMMER")
If n = "" Then Exit Sub 'si aucun nom n'est édité, sort de la procédure
ActiveWorkbook.SaveAs Filename:=chem & n & ".xls" 'copie le classeur avec le nom proposé
 
For Each sh In Sheets 'boucle sur tous les onglets du nouveau classeur
    'si A1 de l'onglet n'est pas vide, ajoute vm à la valeur de A1
    If sh.Range("A1") <> "" Then sh.Range("A1") = CInt(sh.Range("A1")) + vm
Next sh 'prochain onglet de la boucle
ActiveWorkbook.Save 'sauve le nouveau classeur
End Sub

Édition :

Bonjour Papou, JeanPierre toujours là dès qu'il y a une vanne à faire... Comme ça je me sens moins seul ha ha ha.

Édition 2 :

tu peux supprimer cette partie :

'boite d'entrée pour demander le nom du fichier copié
n = InputBox("Donnez le nom au nouveau fichier. Sans l'extension !", "RENOMMER")
If n = "" Then Exit Sub 'si aucun nom n'est édité, sort de la procédure
ActiveWorkbook.SaveAs Filename:=chem & n & ".xls" 'copie le classeur avec le nom proposé

et la remplacer par :

n = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
ActiveWorkbook.SaveAs Filename:=chem & n & " copie.xls" 'copie le classeur

 

[manuBX]

Re : copie fichier

C est encore moi
çà fonctionne il créer le fichier mais il bug au niveau de la numérotation du nouveau

SI VOUS POUVIEZ OEUVRER SVP

CI JOINT MON FICHIER

A+

 

[Robert]

Re : copie fichier

Bonjour le fil, bonjour le forum,

Oui parce que ton classeur est protégé. Il faut, dans le code, déprotéger, changer le numéro puis reprotéger...

Et ce qui serait vraiment bien, c'est que tu mettes ton fichier en pièce jointe au début de ton fil comme ça on peut tester avant de te proposer une solution...

 

[manuBX]

Re : copie fichier

J ai essayé de déproteger et de reprotegé mais ça bug à
Then sh.Range("E4") = CInt(sh.Range("E4")) + vm

je reprecise ma demande
je clic sur le bouton6 du "2009 06 13 TOUTES ENTREPRISES - Copie"
demande du non du nouveau fichier exemple toto
le fichier précedent se ferme et enregistre le nouveau apparait et je voudrais que la numérotaion soit la suite de "2009 06 13 TOUTES ENTREPRISES - Copie"

excusez moi j insiste mais je pense etre pas loin du resultat voulu
ci joint le fichier
A+

 

[Paritec]

Re : copie fichier

Bonsoir Robert Manu le forum,
Alors moi je vais me coucher car ou je ne comprends plus rien ou je suis trop fatigué.
Tu parles maintenant de "2009 06 13 TOUTES ENTREPRISES" cela signifie que tu veux une date? dans ton onglet? Ou un numéro ? ou ??????? peut-être
bref moi je rejoins JeanPierre et tu veux une copie conforme mais pas vraiment pareil, et surtout différente.
Si tu essayais de t'exprimer et de t'expliquer plus clairement ce serait plus simple je pense pour t'aider, car le fait de vouloir t'aider n'est plus a prouver, encore faut-il comprendre ce que tu souhaites et moi perso je ne comprend plus rien.
Robert t'a fait une macro, modifié deux fois, Kjin a fait une macro et apparemment c'est pas ça !!!! ?????
bonne soirée
a+
papou

 

[manuBX]

Re : copie fichier

Si je vous ai froissé ou enervé je m en excuse
pour ma part je remerci tout le monde meme si je ne suis pas arrive a mon but

mais je vous réponds
le nom du fichier n a pas d importance c est moi qui le met
premier fichier qui peut porter un nom une date qui a des feuilles qui sont numerotés que je cree grace a un bouton sur le modele
sur ce meme fichier la derniere feuille je clic sur un bouton qui copie ce meme fichier que je nome comme je veux et qui s ouvre avec les memes feuilles sauf le numero qui lui est la suite des feuilles du fichier precedent
vous avez le fichier en pieces jointes et qui bug a
Then sh.Range("E4") = CInt(sh.Range("E4")) + vm

Dans mon exemple il ya XXX MODELE /497/498 et si on parvenait a faire ce dont j ai besoin le nouveau fichier aurait XXX MODELE/499/500
MERCI A TOUS

 

[Paritec]

Re : copie fichier

Bonjour Manu le forum,
OK bien compris là tu as expliqué c'est bon donc une dernière chose, la copie elle est générée uniquement du bouton 6 du modèle "2009 06 13 TOUTES ENTREPRISES" ?
Car tu peux aussi, si tu cliques sur le bouton 6 de tes classeurs générer une copie et là ce sera pas possible d'avoir un suivi dans la numérotation ou alors si tu générais uniquement du dernier Classeur copié? Comment va tu travailler?
a te lire
A+
papou