Qui pourrais me corige svp
Dandy_danbe
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
***** Bonjour.
Sub imprime()
'
' imprime Macro
'
'
Range("A2:G44").Select
Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Range("I6").Select
' factuurNr Macro
' Factuur Nr automatis in vulen
Sheets("Fact").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3").Select
Sheets("Factuur").Select
Range("$B$1:$e$1").Select
Selection.Copy
Sheets("Fact").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Factuur").Select
Range("i6").Select
'Update 20141111
ActiveWorkbook.SaveAs ("C:\ E:\Documenten\Excel\Spekkilekkie\ Fatur " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub
| ***** Message modifié par la modération
Élément de politesse ajouté par la modération voir cette page |
| Message modifié par la modération
Pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE |
A voir également:
- Pour financer son projet solidaire, mayel souhaite mobiliser sur internet des personnes qui pourraient être intéressées.
- Gps sans internet - Guide
- Mon pc rame sur internet - Guide
- Formate pour taxer connexion internet - Forum Webmastering
- Plus de connexion internet après formatage ✓ - Forum Réseau
- Filigrane projet - Guide
Il a aussi corrigé la lisibilité du code en ajoutant les balises du code.
Et de mon côté, j’ai corrigé l’emplacement du post en le déplaçant dans le forum VB)VBA.
Ça fait déjà 3 corrections sans qu’on nous les explique ;)