Discussion :

[Oreo_]

Bonjour à tous,

Sur un logiciel de statistiques, j'exporte un résultat vers Excel, j'obtiens le fichier : stat.xls

J'aimerai attribuer à ce classeur un code VBA (servant principalement à améliorer la mise en forme) mais je ne veux pas attribuer ce code directement dans le classeur stat.xls car ce fichier est écrasé à chaque exportation (il faudrait donc manuellement recopier le code dans le module VBA à chaque exportation)

J'ai donc eu l'idée de créer une autre macro (fichier macro.xls) dans laquelle j'ai saisi le code suivant :

Code :

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

1
2
3
Private Sub Workbook_Open()
 
Workbooks.Open Filename:="G:\......\stat.xls"

Et ensuite j'ai recopié mon code VBA de mise en forme.
Mais à partir de ce classeur, il ne fonctionne plus, et n'accepte pas notamment de coller une colonne : "Erreur d'exécution 1004 : Impossible de coller les informations car les zones Copier et de collage sont de tailles différentes"

C'est ce code :

Code :

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

ActiveSheet.Paste

qui ne fonctionne pas.

Je ne sais pas comment régler mon problème.. Peut-être avez-vous une solution?

Merci d'avance.

[QuestVba]

Bonjour,

Voici un code trouvé qq part

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
Option Explicit
 
Sub RecopieModule()
 
Dim NewM As Object, NewCode As String
 
' Stockage du code du module "Module1" du classeur maitre
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule 'mettre le nom du module
     NewCode = .Lines(1, .CountOfLines)
End With
 
' Ajout du module au 2e classeur 
Set NewM = ActiveWorkbook.VBProject.VBComponents.Add(1)
With ActiveWorkbook.VBProject.VBComponents(NewM.Name).CodeModule
    ' Le DeleteLines sert à éviter éviter d'avoir 2 fois Option Explicit
    ' si la déclaration explicite est cochée dans les préférences
    'sans effet si l'option n'est pas cochée
     .DeleteLines 1, .CountOfLines
     .AddFromString NewCode
End With
End Sub
 
Sub Exportermodule()
'on ouvre le classeur cible
Workbooks.Open Filename:= _
        "g:\...\stat.xls"
RecopieModule
End Sub

[Oreo_]

Merci beaucoup!

Dorénavant je cherche un code permettant de convertir du texte en nombre. Dans une colonne F j'ai des pourcentages : par exemple 3,5% mais Excel le concidère comme du texte, je cherche donc un code permettant de convertir ma colonne en nombre tout en gardant le symbole %.

[Oreo_]

Je me suis servie de l'enregistreur de macro pour trouver une solution.