Discussion :

[debdev]

Bonjour,

Je m'excuse par avance si ma question a déjà été posée. J'ai fait une recherche sur le forum et sur google mais j'avoue je n'ai pas pu y passer trop de temps. En fait, je ne connais pas le VBA mais j'ai dit à une collègue que j'allais l'aider en regardant sur internet...

Contexte:
J'ai un fichier excel A contenant un tableau non mis en forme.
Je souhaite créer un fichier excel B qui va agir sur la mise en forme de A.
A ne doit pas contenir de macros. B contient des macros.

Réalisation:
Dans mon fichier B, j'ai créé 2 boutons:
- bouton1 auquel j'ai associé la macro1
- bouton2 auquel j'ai associé la macro2

Macro1
La macro1 ouvre le fichier A.
ça marche.

Code :

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

1
2
3
4
Sub OuvrirClasseur()
    Dim MonClasseur As Workbook
    Set MonClasseur = Workbooks.Open("C:\Users\Debdev\Desktop\FichierA.xls")
End Sub

Macro2
La macro2 doit mettre à jour le fichier B.
ça ne marche pas. ça me met à jour le fichier A.

Code :

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

1
2
3
4
Sub MAJ()
    MonClasseur.Activate
    Columns("D:D").ColumnWidth = 4.43
End Sub

Comment dire à la macro2 d'agir sur le fichier A ?

Merci de votre aide.

[pgz]

Bonjour

La macro2 doit mettre à jour le fichier B.
ça ne marche pas. ça me met à jour le fichier A.
Comment dire à la macro2 d'agir sur le fichier A ?

Alors, il faut mettre à jour A ou B?

PGZ

[debdev]

Oops je me suis emmelée les pinceaux. Merci de l'avoir remarqué.

La macro, située dans le fichier B, doit agir sur le fichier A.
Mon code ne marche pas car elle met à jour le fichier B.

[pgz]

Re,

Tu peux rendre la variable MonClasseur public (elle semble actuellemnt limitée à la procédure OuvrirClasseur.

Sinon,

Code :

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

1
2
3
Sub MAJ()
    Application.workbooks("FichierA.xls").Columns("D:D").ColumnWidth = 4.43
End Sub

Cdlt,

PGZ

[debdev]

Merci de ton aide. Mais je n'arrive pas à faire fonctionner le code.

Si je mets

Code :

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

1
2
3
4
 
Sub MAJ()
    Application.workbooks("FichierA.xls").Columns("D:D").ColumnWidth = 4.43
End Sub

Alors quand je clique sur le bouton qui appelle cette macro, ça me met:

Propriété ou méthode non gérée par cet objet

Si je mets

Code :

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

1
2
3
4
 
Sub MAJ()
    Application.workbooks("C:\Users\Debdev\Desktop\FichierA.xls").Columns("D:D").ColumnWidth = 4.43
End Sub

Alors quand je clique sur le bouton qui appelle cette macro, ça me met:

L'indice n'appartient pas à la sélection

[mercatog]

Bonsoir
Alors il fallait spécifier la feuille
Ici en exemple MonClasseur est déclarée de porté module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim MonClasseur As Workbook
 
Sub OuvrirClasseur()
 
Set MonClasseur = Workbooks.Open("C:\Users\User\Desktop\tst.xlsm")
End Sub
 
Sub MAJ()
 
If Not MonClasseur Is Nothing Then MonClasseur.Worksheets(1).Columns("D:D").ColumnWidth = 40
End Sub

[debdev]

Oui
Merci.
En ajoutant l'onglet, ça fonctionne

Merci pour votre aide.

Bonne nuit !

[doncamelo]

Bonsoir debdev,

J'ai essayé de reproduire ton code et voici le résultat après quelques modifs :

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
Sub MaJ()
    OuvrirClasseur
End Sub
 
Sub OuvrirClasseur()
 
    Dim MonClasseur As Workbook
    Set MonClasseur = Workbooks.Open("C:\ClasseurB.xlsx")
    Columns("D:D").ColumnWidth = 4.43
 
    MonClasseur.Save
    MonClasseur.Close
    Set MonClasseur = Nothing
 
 
End Sub

Peut être que ça pourra t'aider.

Doncamelo

Désolé,

J'arrive un peu tard !!!

[debdev]

@doncamelo: merci pour ton aide . effectivement, une solution m'avait déjà été proposée mais merci à toi pour t'etre intéressé au problème.

bon week end !