Flux rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

VBA dans Excel au secours

delaju, le jeudi 1 février 2007 à 13:32:17
voici mon code

Sub Enregistre_et_Nouveau()

Dim nom As Workbook
Dim chemin As String, extension As String, nomfichier As String

ThisWorkbook.ActiveSheet.Copy
ActiveSheet.UsedRange.Activate

With Selection
.Copy
.PasteSpecial Paste:=xlValues
.Validation.Delete
End With
extension = ".xls"
If ActiveSheet.Name = "ticket" Then
chemin = "C:\Gestion\"
nomfichier = ActiveSheet.Range("D21") & ("-") & Format(Now(), "dd-mm-yy") & extension
End If

With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With

Dim c As Integer

ActiveSheet.PrintOut Copies:=1
With ThisWorkbook
With ActiveSheet
c = .Range("D21").Value
.Range("D21").Value = c + 1
If .Name = "ticket" Then
.Range("A7:D16").ClearContents
End If
End With
.Save
End With


End Sub
Configuration: Windows XP
Internet Explorer 6.0
Répondre à delaju  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
delaju, le jeudi 1 février 2007 à 13:37:34
bon ce que je voullais faire c'est copier une partie des données sur un autre feuille du même classeur a chaques utilisation de la premiere feuille et surtout les recopier les une sous les autres exemple A1 G15 sous toujours utilisés sur la premiere feuille et je veux copier les données sur la 2eme feuile en A1:G15 puis A16:G30 et ainsi de suite
   
Répondre à delaju

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
delaju, le jeudi 1 février 2007 à 16:11:59
j'ai simplifié mais a chaque nouvelle copie il me remplace la précédante

voici mon nouveau code

Sub Enregistre_et_Nouveau()

Dim nom As Workbook
Dim chemin As String, extension As String, nomfichier As String

Worksheets("ticket").Range("A6:D22").Copy _
Destination:=Worksheets("enrticket").Range("A1")

Dim c As Integer

ActiveSheet.PrintOut Copies:=1
With ThisWorkbook
With ActiveSheet
c = .Range("D21").Value
.Range("D21").Value = c + 1
If .Name = "ticket" Then
.Range("A7:D16").ClearContents
End If
End With
.Save
End With
   
Répondre à delaju

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Buldo, le jeudi 1 février 2007 à 18:17:27
bonjour, je te propose une petite astuce tu mets "fin "a la fin des données de la feuil1 en colonne A
et voici le code:
Sheets("Feuil1").Select
Range("A1:C10").Select ' adresse des données
Selection.Copy
Sheets("Feuil2").Select
Columns("A:A").Select
Selection.Find(What:="fin", After:=ActiveCell).Activate
aa = ActiveCell.Address
Range(ActiveCell.Address).Select
ActiveSheet.Paste

et cela devrait marcher sauf la 1ere fois caril ne va pas trouver fin
fais le 1 fois manuellement
tu peux aussi insérer cette macro dans ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
...
End Sub
pour execution avant sauvegarde
Cordialement
   
Répondre à Buldo

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le vendredi 2 février 2007 à 00:26:03
Bonjour,

autre suggestion : 

Sub Enregistre_et_Nouveau()

    Dim nom As Workbook, Destination As Long
    Dim chemin As String, extension As String, nomfichier As String
    Dim c As Integer

    Worksheets("ticket").Range("A6:D22").Copy
    Worksheets("enrticket").Select
    Destination = (Range("A1:A65535").End(xlDown).Row + 1)
    adresse = "$A$" & Destination
    Range(adresse).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Sheets("ticket").Select
    ActiveSheet.PrintOut Copies:=1
    With ThisWorkbook
        With ActiveSheet
            If .Name = "ticket" Then
                .Range("A7:D16").ClearContents
            End If
        End With
        .Save
    End With

End Sub


Lupin
   
Répondre à Lupin.A

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
delaju, le vendredi 2 février 2007 à 16:36:04
merci pour votre aide, mais j'ai essayé les deux, mais toujours erreur 400
   
Répondre à delaju

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 delaju, le samedi 3 février 2007 à 09:35:49
j'ai resolu

Sub Enregistre_et_Nouveau()

Dim nom As Workbook
Dim chemin As String, extension As String, nomfichier As String

Dim i As Byte
i = Sheets("enrticket").Range("IV1").End(xlToLeft).Column + 1
Sheets("ticket").Range("A6:d22").Copy Destination:=Sheets("enrticket").Cells(1, i)




'Worksheets("ticket").Range("A6:D22").Copy _
'Destination:=Worksheets("enrticket").Range("A1")

Dim c As Integer

'ActiveSheet.PrintOut Copies:=1
With ThisWorkbook
With ActiveSheet
c = .Range("D21").Value
.Range("D21").Value = c + 1
If .Name = "ticket" Then
.Range("A7:D16").ClearContents
End If
End With
.Save
End With

End Sub
   
Répondre à delaju
Posez votre question Répondre
VBA Excel - Ecrire dans fichier txt (Résolu)Bonjour à tous Je dois exécuter 2 macros en vba Excel, - une qui ouvre un fichier text et incrémente un tableau de variable, là pas de problème (voici le code épuré pour info) --------------------- Private Sub Command6_Click() On Error GoTo... www.commentcamarche.net/forum/affich-4854458-vba-excel-ecrire-dans-fichier-txt
VBA excel formulaire de saisie - aide (Résolu)Bonjour, je suis débutant en VBA excel, et j'ai construis un formulaire de saisie (userform). Malheureusement je n'arrive pas à le finaliser... il me manque : a/ le numéro de transaction (TRANID) ne change pas lorsque j'appuie sur OK... www.commentcamarche.net/forum/affich-6740657-vba-excel-formulaire-de-saisie-aide
[VBA-EXCEL] Gestion version reference outlook (Résolu)Bonjour a tous ! Je suis nouveau sur le forum J'ai un niveau convenable en VBA Excel. J'ai develloper une application permettant de gerer des demandes d'inspection par l'intermediaire d'email. La version sur lequel tourne le... www.commentcamarche.net/forum/affich-3375027-vba-excel-gestion-version-reference-outlook
[VBA Excel] exporter cellules en couleur (Résolu)VBA Excel - importer / exporter des cellules en couleur bonjour ou bonsoir à toutes / tous ! J'ai un soucis ! Plusieurs jours/heures/aides pour essayer de faire quelque chose, j'explique ! J'ai un tableau excel, 3 feuilles, sur la... www.commentcamarche.net/forum/affich-2956148-vba-excel-exporter-cellules-en-couleur
VBA excel insérer une ligne vide (Résolu)Bonjour, Je voudrais en vba excel insérer des lignes à chaque fois qu'une valeur d'une cellule change par rapport à celle du dessus. exemple : il faudrait que j'insére une ligne vide entre 15 et 20, entre 20 et 23, entre 23 et 26.... www.commentcamarche.net/forum/affich-4126535-vba-excel-inserer-une-ligne-vide
Aide VBA excel (Résolu)Bonjour, Je suis nouveau en VBA Excel et j'ai un travail à faire. Je vous prie de me donner un coup de main SVP. Je veux créer (en VBA EXCEL) un tableau avec 5 champs. Les 2 premiers champs je les rentres à la main mais les autres champs... www.commentcamarche.net/forum/affich-3019981-aide-vba-excel
Toutes les réponses pour « VBA dans Excel au secours »