trends4media

[XL-2007] Incrémentation dates dans onglets générés automatiquement sujet

mardi 8 avril 2014

Bonjour à toutes et à tous.

J'ai fait un petit code vba pour dupliquer automatiquement le contenu d'un onglet (onglet J1 du fichier ORGANISATION VACANCES ETE). Pour chacun des onglets dupliqués, la date contenu dans la cellule A1 doit s'incrémenter de un jour à chaque fois.
Ex: la cellule A1 de l'onglet J1 contient la valeur "mardi 08 avril 2014". Je duplique 3 fois l'onglet; j'ai alors les onglets J2, J3, J4 qui se créent; et je devrais avoir la valeur "mercredi 09 avril 2014" en A1 de l'onglet J2, "jeudi 10 avril 2014" en A1 de l'onglet J3 et "vendredi 11 avril 2014" en A1 de l'onglet J4.
Or ça n'est pas tout à fait le cas.... d'où vient l'erreur dans mon code?

Sub Copie()
Dim i, z, Valeur_A_Recup
z = InputBox("Nombre de copies ", "Copie")
Valeur_A_Recup = Sheets("J1").Range("A1").Value
For i = 1 To z
Sheets("J1").Copy After:=Sheets(i)
ActiveSheet.Name = "J" & i + 1
Sheets("J" & i).Range("A1").Value = Valeur_A_Recup + i
Next i
End Sub

Merci de votre aide.

Fichiers attachés

CAHIER VACANCES.zip
(49,7 Ko)

[XL-2007] copie et transfert de certaines cellules d'une feuille vers une autre feuille avec mise en page sujet

bonjour,
j'ai surement mal chercher mais je ne trouve pas réponse à mon problème, que voici:
- je voudrais en sélectionnant un ligne de mon tableau excel avoir grâce à un bouton de commande qu'il y est une copie de certaines cellules et coller dans une deuxième feuille dans des cellules bien précise. je me complète en sélectionnant la ligne X de la feuille Etat-engins et en clickant sur le bouton os les cellules AX, BX, CX et MX soit copiées vers la feuille os et mis respectivement en E35 pour AX, C53 pour BX, E38 pour CX et C54 pour MX.
merci de votre aide, je vous joint mon fichier afin d'être plus clair.test.zip

Fichiers attachés

test.zip
(97,3 Ko)

[XL-2007] Enregistrer sous une feuille protégée sujet

Bonjour,
A la fin de mon travail, je voudrais copier une feuille en écrasant la feuille protégée, présente dans un classeur fermé. Le classeur en lui-meme n'est pas protégé.
J'ai écrit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Application.DisplayAlerts = False
    ThisWorkbook.Sheets("F1").Copy  'Copie la Feuille Tables dans un nouveau classeur
'Enregistrement sous fichier existant
ChDir "\SHARED\DONNEES\xxx\# Livrables"
    ActiveWorkbook.SaveAs Filename:= _
        "\SHARED\DONNEES\xxx\# Livrables\MAJ.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
       code
    Windows("MAJ.xls").Close savechanges:=True
Application.EnableEvents = True
Application.DisplayAlerts = True

mais j'ai un message qui me dit que MAJ.xls est protégé contre l'écriture.
Est-ce que quelqu'un peut m'aider ?
Merci