Problème d'enregistrement sous vba

[ptgie]

Bonjour le forum,
J'ai déjà commencé a créé un code pour copier une sélection puis la coller dans un autre classeur mais ce code ne répond pas à toutes mes attentes.
Je souhaiterais pouvoir remplacer le nom de mes feuilles dans mon classeur archive par le mois concerner, de plus quand je passe sur l'année 2013 le copier-coller recommence en feuil1 et non pas en feuil13 comme je voudrais qu'il se fasse. Pouvais vous m'aidez svp


Merci d'avance pour votre aide et très vite jspr..

 

[Guest]

Re : Problème d'enregistrement sous vba

Bonjour,

Ton classeur Archive s'apelle 'Archive Achat.xls' et pas 'Archive ventes.xls' comme dans ta macro.

Sub Macro2()
Dim shDestination As Worksheet
Dim NomFeuille As String
NomFeuille = Range("I13") & " " & Range("I14")
'La function GetWorkSheet créera la feuille au besoin
Set shDestination = GetWorkSheet(NomFeuille, Workbooks("Archive Achat.xlsx"), True)
If shDestination Is Nothing Then Exit Sub '
shDestination.Cells.ClearContents
Range("A2:F42").Copy
shDestination.Cells(1, shDestination.UsedRange.Columns.Count).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Function GetWorkSheet(SheetName As String, Optional Wkb As Workbook = Nothing, Optional CreateIfNotExists As Boolean = False) As Worksheet
'Hasco
    If Wkb Is Nothing Then Set Wkb = ActiveWorkbook
    On Error Resume Next
    Set GetWorkSheet = Wkb.Sheets(SheetName)
    If GetWorkSheet Is Nothing And CreateIfNotExists Then
        Set GetWorkSheet = Wkb.Sheets.Add
        GetWorkSheet.Name = SheetName
    End If
End Function

Comme tu le verras, il n'y a pas de contrôle concernant l'ouverture ou non du classeur Archives. A toi de jouer.

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Merci Hasco mais ton code ne fait pas ce que je souhaite,

La macro1 controle le classeur achat et la macor2 controle le classeur vente.
Je souhaiterai que les macro1 et 2, copie colle dans leur classeur respectif les factures crée dans le classeur "nouvelle facturation" tout en les classant suivant le mois et l'année écrit dans l'onglet des archives.

Merci pour ton aide.
Bise

 

[Guest]

Re : Problème d'enregistrement sous vba

Re,

Il me semble que pour Achats, cela le fait. Alors à toi d'adapter.

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Je suis dsl mais sa ne fait rien apart crée un nouvel onglet "2012" dans archive achat ou s'enregistre les factures en s'écrasant les une sur les autres a chaque nouveau enregistrement et peut importe le mois..

A+

 

[Guest]

Re : Problème d'enregistrement sous vba

Re,

J'ai fait en fonction de ce que tu disais au post 1 et de ce que tes macros montraient. Maintenant si c'est pas ça, c'est que les explications ne sont pas suffisament claires.

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Excuse-moi si je me suis mal fait comprendre.

Mon situation actuelle est:
Pour l'instant j'ai réussie a créé deux macro (une pour l'onglet vente et une pour l'onglet achat) qui copier-coller les factures crée dans ces même onglets dans les deux classeurs archive sans les écraser à chaque enregistrement.

Mon problème est:
Cette macro ne prend pas en compte ma liste déroulante concernant les années elle enregistre donc janvier 2013 dans le même onglet que janvier 2012 ce qui ne me convient. De plus dès que je change le nom de mon onglet feuil1 en janvier 2012 par exemple ma macro m'indique un code erreur '9' (elle ne retrouve plu le bon onglet).

Ce que j'envisage:
Je souhaiterai donc pouvoir enregistré ma facture de Janvier 2012 dans mon onglet JANVIER 2012 et ma facture de JANVIER 2013 dans mon onglet JANVIER 2013.

Est-ce-que cela parait plus clair maintenant ou toujours pas?
Merci d'avance

 

[Guest]

Re : Problème d'enregistrement sous vba

Re

Dernière tentative pour moi. Attention veiller à mettre dans les mêmes cellule de 'Achat' et 'Vente' le mois et l'année!
Attribuer Macro2 au deux boutons des feuilles. Achat et Vente.

Sub Macro2()
    Dim Wkb As Workbook
    Dim shDestination As Worksheet
    Dim NomFeuille As String
    If ActiveSheet.Name = "Achat" Then
        Set Wkb = Workbooks("Archive Achat.xlsx")
    ElseIf ActiveSheet.Name = "Vente" Then
        Set Wkb = Workbooks("Archive Vente.xlsx")
    Else
        Exit Sub
    End If
    If Wkb Is Nothing Then Exit Sub
    
    'ATTENTION il faut que le mois et l'année soient dans les mêmes cellule de chaque feuille
    NomFeuille = Range("I13") & " " & Range("I14")
    'La function GetWorkSheet créera la feuille au besoin
    Set shDestination = GetWorkSheet(NomFeuille, Wkb, True)
    If shDestination Is Nothing Then Exit Sub    '
    Range("A2:F42").Copy
    With shDestination
        .Cells(1, .UsedRange.Columns.Count).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
    Application.CutCopyMode = False
End Sub
Function GetWorkSheet(SheetName As String, Optional Wkb As Workbook = Nothing, Optional CreateIfNotExists As Boolean = False) As Worksheet
'Hasco
    If Wkb Is Nothing Then Set Wkb = ActiveWorkbook
    On Error Resume Next
    Set GetWorkSheet = Wkb.Sheets(SheetName)
    If GetWorkSheet Is Nothing And CreateIfNotExists Then
        Dim sh As Worksheet, i As Integer
        With Wkb
            Set sh = .Worksheets(1)
            For i = 2 To .Sheets.Count
                If IsDate(.Sheets(i).Name) And IsDate(sh.Name) Then
                    If CDate("1 " & SheetName) > CDate("1 " & sh.Name) And CDate("1 " & SheetName) < CDate("1 " & .Sheets(i).Name) Then Exit For
                End If
                Set sh = .Sheets(i)
            Next
            Set GetWorkSheet = .Sheets.Add(After:=sh)
            GetWorkSheet.Name = SheetName
        End With
    End If
End Function

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Ca marche impécable
Merci beaucoup pour ta patience, tu ma vraiment bien aidée.
Grosse bise

 

[ptgie]

Re : Problème d'enregistrement sous vba

Bonjour le forum,

J'ai un petit problème dans le code que ma très gentiment fait Hasco quand je copie-colle plusieurs factures dans un même onglet tous mes copier-coller se font en écrasant systématiquement la dernière colonne de l'ancienne facture (colonne TTC). Je n'arrive pas à trouver l'érreur dans le code pouvait m'aider svp?

Merci d'avance pour vos réponsses.

 

[Guest]

Re : Problème d'enregistrement sous vba

Bonjour,

Rajouté en tête de procédure une nouvelle variable

Dim Col as long

En bas de la procédure:

    With shDestination.UsedRange
        col = IIf(.Columns.Count = 1, 1, .Column + .Columns.Count + 1)
        .Cells(1, col).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Merci beaucoup pour ton aide. Sa marche très bien.

 

[ptgie]

Re : Problème d'enregistrement sous vba

Quand je rajoute se nouveau code au précédent code, cela me crée un décalage que une foi sur deux. Et malgré 10000 tentatives je ne trouve toujours pas ce qui faudrait rajouter ou enlever dans le code d'Hasco.
Merci pour votre aide.

 

[Guest]

Re : Problème d'enregistrement sous vba

Re,

Quand je rajoute se nouveau code au précédent code

C'était un code de remplacement pas à ajouter.

Chez moi cela fonctionne très bien. Essaie de comprendre et tu verras.

t'es peut-être pas obligé de rajouté les fichiers à chaque fois.

A+

 

[ptgie]

Re : Problème d'enregistrement sous vba

Merci pour tes conseils, mais quand on y connait rien c'est pas vraiment évident de s'y retrouver. Pourquoi le premier copier coller se fait en ligne2 et tout les autres en lignes3?