Excel à excel

Télécharger le projet
Commenter

Description

Permet de copier certaines cellules de ma fiche client fpc13 à une base de donnée base.xls
Changez le code du bouton envoyer vers base pour changer le chemin ou doit se situer le fichier base.xls
la date en haut à droit de la fiche doit être ressaisie à la main
Lorsque vous utiliser le bouton envoyer le fichier base doit être fermer
sélectionne les cellules et copie les cellules ou ce situe:
- la date de création
- le nom du client
- Date de fermeture
- motif de clôture
- Banque LOC
- Banque PRO
- Montant du prêt effectif

Source / Exemple : 


Sub COPIE2()
'
' COPIE2 Macro
' Macro enregistrée le 19/05/2003 par porato
'

'sélectionne le feuille bd
    Sheets("bd").Select
'sélectionne la ligne 2
    Rows("2:2").Select
'commende copier
    Selection.copy
'sélectionne la ligne 3
    Rows("3:3").Select
'commande coller mais que les valeurs
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
'sélectionne la ligne 3
    Rows("3:3").Select
'commande copier
    Application.CutCopyMode = False
    Selection.copy
'ouvre le fichier ou ce situe la base de donnee (ce chemin doit être changer
'selon l'endroit ou vous avez placer ce fichier base.xls)
    Workbooks.Open Filename:="c:\bd\BASE.XLS"
'sélectionne la ligne 2
    Rows("2:2").Select
'insert la ligne 3 sélèctionner précédemment
    Selection.Insert Shift:=xlDown
'le reste est de la mise en forme
    Range("A2:G2").Select
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("B2:C2").Select
    Selection.NumberFormat = "d-mmm-yy"
    ActiveWorkbook.Save
    ActiveWindow.Close
    Sheets("Sheet3").Select
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.