Copie d'une feuille sans code

Ilino · 23 Décembre 2012

Bonjour Forum
Je sais que ce n’est pas le bon moment, mais permettez moi de postuler mo souci
Ci-joint un fichier exemple, je l’ai ajusté selon les exemples de ce forum (un grand merci pour les bénévoles de ce forum), je souhaiterai enregistrer une copie de la feuille « Rapport Activités » mais sans le code ?
Gracie
NB: c'est la suite de mon file precedent

DoubleZero · 23 Décembre 2012

Re : Copie d'une feuille sans code

Bonjour, Ilino, le Forum,

Une solution, peut-être, dans cette discussion.

A bientôt 🙂

Ajout : Bonjour, Martial 😀, bonjour, Papou-net 😀

Yaloo · 23 Décembre 2012

Re : Copie d'une feuille sans code

Bonjour Ilino, le forum,

Peut être avec une macro de ce type :

VB:

Sub Copie_Feuille()
    Sheets("Rapport Activitées").Copy
    ChDir "C:\TON REPERTOIRE"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\TON REPERTOIRE\TON FICHIER.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

A te relire

Martial

Edit : Bonjour 00, content de te voir.

Papou-net · 23 Décembre 2012

Re : Copie d'une feuille sans code

Bonjour Ilino, le Forum,

Voici comment écrire ta macro dans le module2 :

Code:

'CREER UNE COPIE DU RAPPORT -------------------
Sub Construit()
finLg = Range("SOMAIRE!A65536").End(xlUp).Row
num = Val(Range("SOMAIRE!A" & finLg)) + 1
Sheets.Add Before:=Sheets("Rapport Activitées")
Sheets("Rapport Activitées").Cells.Copy
With ActiveSheet
  .Paste
  .Name = "Rapport_N° " & Range("k2") & "_" & Range("k3")
End With
Range("SOMAIRE!A" & finLg + 1) = num
Range("SOMAIRE!B" & finLg + 1) = Date
Range("SOMAIRE!C" & finLg + 1) = Time
End Sub

Ce code ajoute une feuille en première position, la renomme puis y colle les valeursde la feuille 1. Pas besoin donc d'effacer le code puisque seules les cellules sont copiées.

Cordialement.

PS : bises à cette chère petite ânesse, et bon dimanche à tous.

Oups : bonjour à toi aussi, Martial.

Ilino · 23 Décembre 2012

Re : Copie d'une feuille sans code

Bonjour FORUM, 00, yal00, Papou
Merci pour tous le monde...
@ PAPOU: ça fonctionne tres bien mnt, mais il reste la formule dans la cel A3, parceque si je change (par exemple la date de mon PC ) toutes les titres des feuilles enregistrées Changent....
merci

Papou-net · 23 Décembre 2012

Re : Copie d'une feuille sans code

@ PAPOU: ça fonctionne tres bien mnt, mais il reste la formule dans la cel A3, parceque si je change (par exemple la date de mon PC ) toutes les titres des feuilles enregistrées Changent....

RE :

Il suffit donc d'ajouter une ligne pour remplacer la formule la nouvelle feuille par son résultat :

Code:

'CREER UNE COPIE DU RAPPORT -------------------
Sub Construit()
finLg = Range("SOMAIRE!A65536").End(xlUp).Row
num = Val(Range("SOMAIRE!A" & finLg)) + 1
Sheets.Add Before:=Sheets("Rapport Activitées")
Sheets("Rapport Activitées").Cells.Copy
With ActiveSheet
  .Paste
  .Name = "Rapport_N° " & Range("k2") & "_" & Range("k3")
  .Range("K1").Value = Feuil1.Range("K1").Value
End With
Range("SOMAIRE!A" & finLg + 1) = num
Range("SOMAIRE!B" & finLg + 1) = Date
Range("SOMAIRE!C" & finLg + 1) = Time
End Sub

Cordialement.

Papou-net · 23 Décembre 2012

Re : Copie d'une feuille sans code

RE :

Ou mieux encore :

La formule de la cellule A3 est remplacée par du texte et j'ai supprimé les colonnes I:AC qui me paraissent inutiles dans le cadre d'un rapport destiné à être imprimé et difusé. Du moins, c'est ce que je suppose :

Code:

'CREER UNE COPIE DU RAPPORT -------------------
Sub Construit()
finLg = Range("SOMAIRE!A65536").End(xlUp).Row
num = Val(Range("SOMAIRE!A" & finLg)) + 1
Sheets.Add Before:=Sheets("Rapport Activitées")
Sheets("Rapport Activitées").Cells.Copy
With ActiveSheet
  .Paste
  .Name = "Rapport_N° " & Range("k2") & "_" & Range("k3")
  .Range("A3") = "Rapport d'Activités de la semaine N°  " & Feuil1.Range("K2").Value & _
    " de l'année " & Feuil1.Range("K3").Value
  .Range("I:AC").Delete
End With
Range("SOMAIRE!A" & finLg + 1) = num
Range("SOMAIRE!B" & finLg + 1) = Date
Range("SOMAIRE!C" & finLg + 1) = Time
End Sub

Cordialement.

Ilino · 23 Décembre 2012

Re : Copie d'une feuille sans code

Re papou
merci mnt ça fonctionne comme JE VOULAIS.... super
Si vous permettez un autre souci dans le même fichier :
Dans ce code

Code:

Private Sub Workbook_Open()
'**1****************************************** feuille de l'ouverture
Sheets("Rapport Activitées").Select
'**1******************************************

'**2****************************************** message d'accueil
MsgBox "Création ILINO RAMOS  Décembre 2012"
'**2******************************************

'**3****************************************** la derniere ligne vide
Dim L As Integer
  Application.ScreenUpdating = False
  With Sheets("Rapport Activitées")
    On Error Resume Next
    Range("B7:B32").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
    On Error GoTo 0
       End With
  Application.ScreenUpdating = True
'**3******************************************
End Sub

Je voudrais ajouter une commande pour remise a zéro la feuille « Rapport Activités » après chaque enregistrement
MERCI

Papou-net · 23 Décembre 2012

Re : Copie d'une feuille sans code

Je voudrais ajouter une commande pour remise a zéro la feuille « Rapport Activités » après chaque enregistrement

Désolé Ilino,

Mais je ne comprends le rapport de ta question avec le code qu tu présentes :

Code:

Private Sub Workbook_Open()
...
End Sub

Quelle est la zone de la feuille "Rapport Activités" que tu veux remettre à zéro ?

Je pense que cette opération doit être intégrée à la macro du module2.

A te lire.

Cordialement.

Ilino · 23 Décembre 2012

Re : Copie d'une feuille sans code

re papou
je suis désole pour le retard
mon souci est DE mettre le tableau SEULEMENT a zero apres chaque enregistrement( via le bouton SAVE)
et pour le code je l'ai proposé ( et je ne suis pas sure )
merci
a+

Ilino · 23 Décembre 2012

Re : Copie d'une feuille sans code

Re Bonjour
J’espère que j'etais claire !!!!!
Cordialement Gracie

Papou-net · 23 Décembre 2012

Re : Copie d'une feuille sans code

Re :

A mon tour d'être désolé du retard.

Voici ton fichier avec la macro du bouton Save complétée. Mais je ne suis pas sûr d'avoir compris car la procédure Change de Feuil1 fusionne les cellules. Alors je te laisse le soin de voir si ça répond à ta question.

Cordialement.

Ilino · 23 Décembre 2012

Re : Copie d'une feuille sans code

Re salut Papou
oups alerte....😕
je p refaire reste dans l'exemple poste #7
apparemment je n'arrive a exprimer mon souci
Alors peut on avoir un coud de pouce pour terminer mon fichier .
merci par avance et bon début de semaine😎

Ilino · 24 Décembre 2012

Re : Copie d'une feuille sans code

Bonjour Forum et bon debut de semainne
mon souci de Réinitialisation des cellules du tableau est résolu de cette facon
code dans ThisWorkbook

Code:

Private Sub Workbook_Open()
Range("B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18,C19,C20,C21,C22,C23,C24,C25,C26,C27,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,D21,D22,D23,D24,D25,D26,D27").ClearContents
End Sub

Ungrand Merci pour tous et toutes
Gracie

Papou-net · 24 Décembre 2012

Re : Copie d'une feuille sans code

Ilino à dit:
Bonjour Forum et bon debut de semainne
mon souci de Réinitialisation des cellules du tableau est résolu de cette facon
code dans ThisWorkbook

Code:

Private Sub Workbook_Open() Range("B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18,C19,C20,C21,C22,C23,C24,C25,C26,C27,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,D21,D22,D23,D24,D25,D26,D27").ClearContents End Sub

Ungrand Merci pour tous et toutes
Gracie

Bonjour à tous,

Bonjour Ilino,

Pourquoi pas tout simplement :

Code:

Private Sub Workbook_Open()
Range("B7:D27").ClearContents
End Sub

As-tu essayé, ça na marche pas ?

Cordialement.

Copie d'une feuille sans code

Ilino

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Discussions similaires

Copie d'une feuille sans code

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency