Discussion :

[wappymil]

Bonjour, nouveau sur ce forum, je vous dis a tous bonjour et me présente en quelques mots, Charles dis wappy chauffeur de bus.

et voici mon petit soucis

j'ai réaliser un calendrier chaque feuille représente un mois afin de gérer les disponibilité des chauffeur et de calculer le nombre de disponible en fonction des véhicules qui doivent rouler par jours.
jusque la pas de soucis.
le calendrier comporte 14 mois dec-1 janv ....... Dec et janv+1
en fin d'année je veux archiver l'année qui se termine et commencer une nouvelle la aussi pas de problème mais lorsque je veux recopier les disponibilité de l'année archivée dec et jan+1 vers dec-1 et jan de la nouvelle année je suis confronté au fait que ce que j'utilise et que j'ai trouver sur votre forum me modifie les mise en forme conditionnel et cela met évidemment le bazard.

voici ce que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub TransfertArchive()
 
'transfert decembre et janvier+1 vers decembre-1 et janvier
 
    Dim copieArchiveJan As String
    Dim source As Workbook
    copieArchiveJan = CStr(ActiveWorkbook.Sheets("Janvier").Range("A2").Value)
    Set source = Application.Workbooks.Open(copieArchiveJan)
    source.Sheets("decembre").Range("m14:aq73").Copy ThisWorkbook.Sheets("decembre-1").Range("m14:aq73")
    source.Sheets("janvier+1").Range("m14:aq73").Copy ThisWorkbook.Sheets("janvier").Range("m14:aq73")
 
'
End Sub

mais j'aimerai utiliser
sans pour l'incorporer a ce qui précède car ce genre de coller fonctionne ok si je passe d'un classeur a l'autre manuellement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("M14").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

remarque le lien ou est stocké le fichier archiver est variable voila pour quoi il est stocké automatiquement lors de la création de l'archive dans la cellule A2 de janvier
car se fichier sera utiliser sur des ordi different et sans lien entre eu (liste personnel différent en fonction des endroits. )
Ps désolé je ne sais pas encore comment incorporer des extraits de code dans ce forum

merci d'avance pour votre aide et j’espère avoir été compréhensible

[halaster08]

Bonjour,

Pour mettre le code, il suffit d'utiliser la balise code (#)

Si j'ai bien compris:
remplace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
source.Sheets("decembre").Range("m14:aq73").Copy ThisWorkbook.Sheets("decembre-1").Range("m14:aq73")
source.Sheets("janvier+1").Range("m14:aq73").Copy ThisWorkbook.Sheets("janvier").Range("m14:aq73")

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
source.Sheets("decembre").Range("m14:aq73").Copy 
ThisWorkbook.Sheets("decembre-1").Range("m14:aq73").pastespecial xlvalues
source.Sheets("janvier+1").Range("m14:aq73").Copy 
ThisWorkbook.Sheets("janvier").Range("m14:aq73").pastespecial xlvalues

Edit: étrange je ne sais pas d'où sort ce ; dans les codes mais ce n'est pas moi qui l'ai mis

[wappymil]

super une épine hors du pied, merci