Discussion :

[awa123]

Bonjour,

mon fichier excel me permet d'ajouter une nouvelle feuille dans le classeur ainsi que le bouton (shape) qui est affecté au code VBA

Ce que je ne comprends pas c'est qu'il n'est pas dimensionné en largeur et longueur comme je l'ai configuré dans le code suivant (il ne fait pas 80.8mm en hauteur et 120.7mm en largeur :

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
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub Recup()
 
    Dim plage_JSem As Range
    Dim plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim wb As Workbook
    Dim plage_a_copier As Range
    Dim objet_a_copier As Object
 
    feuilleinitiale = CStr(Val(ActiveSheet.Name))
 
    With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
        Set plage_JSem = .Range(.Cells(1, 1), .Cells(2, 40))
    End With
 
 
 
    NomFeuille = CStr(Val(ActiveSheet.Name) + 1)
 
 
    Set objet_a_copier = ActiveSheet.Shapes("Bouton 1")
    Sheets.Add Before:=Sheets("mensuel")    'créer un nouvel onglet qui se placera juste avant l'onglet "mensuel"
    ActiveSheet.Name = NomFeuille
 
 
 
    With Worksheets(NomFeuille)
 
        objet_a_copier.Copy
        ActiveSheet.[R9].Select
        ActiveSheet.Paste
        ActiveSheet.Shapes("Bouton 1").Height = 80.8
        ActiveSheet.Shapes("Bouton 1").Width = 120.7
        .[A1].Select
 
        plage_JSem.Copy .Range("A1")
 
 
    End With
 
End Sub

je vous joints mon fichier

Merci beaucoup pour votre aide