décaler plusieurs "copier/coller" sous VBA

JNP

XLDnaute Barbatruc

• 2 Février 2012

• #2

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

Bonsoir Ptgie et bienvenue 🙂,
A tester

Code:

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 😎

 

Vote positif 0 Vote négatif

P

ptgie

Guest

• 2 Février 2012

• #3

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.. 😉

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Février 2012

• #4

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

Code:

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

Ça devrait le faire 😛...
Bises 😎

 

Vote positif 0 Vote négatif

P

ptgie

Guest

• 2 Février 2012

• #5

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😱

 

Vote positif 0 Vote négatif

P

ptgie

Guest

• 2 Février 2012

• #6

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.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Février 2012

• #7

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

Re 🙂,

Code:

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 😎

 

Vote positif 0 Vote négatif

P

ptgie

Guest

• 2 Février 2012

• #8

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😉

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 3 Février 2012

• #9

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

Re 🙂,

ptgie à dit:

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

Cliquez pour agrandir...

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

Code:

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 😛...) 😎

 

Vote positif 0 Vote négatif

P

ptgie

Guest

• 4 Février 2012

• #10

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.

 

Vote positif 0 Vote négatif