Discussion :

[graphikris]

Bonjour,

Je suis en train de créer une base de données et je suis en train de me heurter à un problème certainement déjà connu pour lequel je ne trouve pas de réponse sur le Net.
Ma macro consiste à ouvrir un nouveau classeur dans lequel viendra se coller des renseignements pris dans ma base de données. Ce nouveau classeur s'intitule donc dès son ouverture : "Classeur 1". A la fin de ma macro le classeur s'enregistre sous un nouveau nom. Jusque là aucun problème.
Mais dès que je veux recliquer sur le bouton activant ma macro, celà va générer un nouveau classeur qui va s'intutiler "Classeur 2" et là je bloque puisque dans ma macro, Excel ne connait pas "Classeur 2" mais "Classeur 1".
Je suis obligé pour que çà fonctionne de refermer Excel afin qu'il recrée "Classeur 1" et ce n'est pas ce que je recherche.
Auriez vous une solution à mon souci de "Classeur 1".
En vous remerciant...

[Daniel.C]

Bonjour,

Il suffit d'assigner une variable au moment de la création du classeur :

Code :

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

1
2
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add

Pour l'enregistrer :

Code :

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

Wbk.SaveAs "cequetuveux.xls"

[graphikris]

Voici un bout de mon code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    Sheets("Feuil1").Select
    Range("D1:E150").Select
    Selection.Copy
    
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
    
   
    ActiveSheet.Paste
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Prénoms"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Groupe"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "Discipline"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D150"), Type:=xlFillCopy
    Range("D2:D150").Select
    ActiveWindow.SmallScroll Down:=-132
    Range("E1").Select
    Windows("Donnees globales.xls").Activate
    Range("HN1:HO150").Select
    Range("HO150").Activate
    Selection.Copy
    Windows("Classeur1").Activate
    ActiveSheet.Paste

En couleur VERT, le code que j'ai rajouté
En couleur ROUGE, arrêt de la macro car bug.

Il faut savoir que la macro fait des copier/coller de ma base de données vers le "CLASSEUR 1" plusieurs fois afin d'extraire certaines colonnes.


Attention dans mon code ce ne sont pas des smiley's mais deux points :
Cordialement.

[Daniel.C]

Bonjour,

Remplace :

Code :

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

Windows("Classeur1").Activate

par :

Code :

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

Wbk.Activate

[graphikris]

Ben oui, en + c'est logique.
Trop de boulot, çà vous ramolli les neurones

Encore