décaler plusieurs "copier/coller" sous VBA

[ptgie]

Bonjour le forum,
Je suis une novice en VBA,
J'ai un problème au niveau d'un tableur de facturation,
je voudrais créer un archivage, j'ai déjà créer l'action copier coller sous VBA,
mais les factures s'écrase les unes sur les autres à chaque copier coller.
Comment créer un décalage de colonne à chaque enregistrement?

Merci pour vos réponses

 

[JNP]

Re : décaler plusieurs "copier/coller" sous VBA

Bonsoir Ptgie et bienvenue ,
A tester

Sub Macro1()
Range("A1:F49").Copy
With Workbooks("Archive[1].xlsx").Sheets("Feuil2")
.Cells(1, .UsedRange.Columns.Count).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
Sheets("7").Range("A1:Z1").ClearContents
End Sub

Bonne suite

 

[ptgie]

Re : décaler plusieurs "copier/coller" sous VBA

Merci pour ton aide JNP mais ton code ne marche pas, exel m'indique un code erreur d'exécution '9'.
Que faire??
Merci d'avance..

 

[JNP]

Re : décaler plusieurs "copier/coller" sous VBA

Re ,
Bizarre, je l'avais testé et il fonctionnait ...
Attends, je sais, le fait de télécharger ton fichier avait changé le nom, corrige

With Workbooks("Archive.xlsx").Sheets("Feuil2")

Ça devrait le faire ...
Bises

 

[ptgie]

Re : décaler plusieurs "copier/coller" sous VBA

Nikel...
Merci beaucoup pour ton aide JNP si je de nouvelle question j'hésite pas.
Bises

 

[ptgie]

Re : décaler plusieurs "copier/coller" sous VBA

Et maintenant comment faire si je veux enregistrer les factures du mois suivant dans la feuilles 3... Et sa sans avoir à modifier le code tous les mois...
Excuse-moi pour ces questions qui son peut être bête mais je suis débutante...
Merci.

 

[JNP]

Re : décaler plusieurs "copier/coller" sous VBA

Re ,

With Workbooks("Archive.xlsx").Sheets("Feuil" & Month(Now))

par exemple enregistreras ta sauvegarde sur la feuille du mois au moment de la sauvegarde (ne pas oublier de créer les feuilles 1 à 12 ...), mais tu peux rempacer Now par la référence de la la cellule de la date de ta facture ...
Bises et bon courage

 

[ptgie]

Re : décaler plusieurs "copier/coller" sous VBA

re,
Je suis dsl mais se code ne marche pas.. Touts mes enregistrements ce copie systématiquement en feuille 2 du classeur archive.
bise

 

[JNP]

Re : décaler plusieurs "copier/coller" sous VBA

Re ,

Je suis dsl mais se code ne marche pas.. Touts mes enregistrements ce copie systématiquement en feuille 2 du classeur archive.

J'ai bien dis que Now renvoie la date actuelle, donc Month(Now) renvoie toujours 2, 3 le mois prochain ...
Donc

With Workbooks("Archive.xlsx").Sheets("Feuil" & Month(CDate(Range("I13") & " 2012")))

devrait choisir la bonne feuille (attention à respecter les accents des dates en I13, ce qui est le cas dans ton fichier d'essai )
Bisous bien baveux et ensommeillés (à cette heure-ci ...)

 

[ptgie]

Re : décaler plusieurs "copier/coller" sous VBA

Salut JNP,
Merci beaucoup pour ton aide et ta patiente ton code marche du tonnerre...
Grosse bise.