Discussion :

[morgane07]

Bonjour,

Je suis entrain de programmer des bases de données sur excel. Et je rencontre des difficultés!.

Je voudrais créer une macro qui me copie ma base de données sur l'onglet d'un autre document (en rapport avec le premier) mais je voudrais ne copier que les 2 ou 3 premières colonnes (a b c).

Est ce possible?!

Cordialement.

Morgane

[Didier Gonard]

Bonjour,


pour les colonnes, vois l'aide vba à la propriété columns

pour le reste, tu peux utiliser la méthode Copy, il faut alors être très explicite en indiquant précisément le nom du classeur et de la feuille de départ et ceux de la cible genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Worksheets("Parametresdgs").Copy After:=Workbooks(strVentilName).Sheets(1)

là je copie une feuille entière entre le classeur actif et un autre.

fais la manip que tu désires avec l'enregistreur de macro et vois ce qu'il donne, il te fournira la structure des commandes à employer..

cordialement,

Didier

[morgane07]

bonjour,

j'ai cette formule pour copier ma base de dosées en entier, mais moi dans mon cas, je voudrais copier que les colonnes A, B, C.. et la ca bloque!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub COPYBDD()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="U:\CLIENTS_PLANNING\NUM_CHANTIERS.xlsm", ReadOnly:=1
    [BDDCLIENTS].Copy
    Windows("CHRONO CST2.xlsm").Activate
    Sheets("BDDCST").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
   Workbooks("NUM_CHANTIERS.xlsm").Close False
    Sheets("CHRONOCST").Select
    Unload UserForm2
 
End Sub

Je ne suis pas experte en excel et encore moins en macro....

[Didier Gonard]

Bonjour,

et la ca bloque!

Euh, oui et où exactement, quel est le message d'erreur ?


sinon,

Le False de cette ligne me paraît bizarre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("NUM_CHANTIERS.xlsm").Close False

As-tu testé l'enregistreur de macro comme indiqué pour voir l'approche genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
    Columns("A:C").Select
    Selection.Copy
    Windows("Pass- Brouillon 2007-222.xlsm").Activate
    Columns("A:A").Select
    ActiveSheet.Paste
    Windows("Pass- Brouillon 2007-21.xlsm").Activate
End Sub

cordialement,

Didier

[morgane07]

Je n'y arrive pas. C'est pas grave.


Merci quand meme de votre aide..


Cordialement.

Morgane