Discussion :

[Souri84]

Bonjour à tous,

Je suis bien calé en VBA mais là je sèche :

J'ai un classeur avec une macro qui fait un copier/coller d'une shape.
Je ne peux pas dans ma macro recréer cette forme trop complexe
J'aimerai enregistrer pourtant ce classeur en .xla pour l'avoir ensuite à chaque démarrage d'excel.

Comment alors dire :

Lorsque je clique sur le bouton, tu vas chercher la shape dans la feuille "bidule" du classeur "classeur.xla" ?

J'ai essayé ceci :

dans mon classeur "classeur.xla" voici la macro rattachée au menu

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 afficherShape()
 
Dim fichierRetour, fichierAller As String
 
fichierRetour = ActiveWorkbook.Name 'classeur sur lequel je bosse
fichierAller = ThisWorkbook.Name 'classeur.xla
 
Windows(fichierAller).Activate
Sheets("feuil1").Select
ActiveSheet.Shapes.SelectAll
Selection.Copy
Windows(fichierRetour).Activate
Selection.Paste
Selection.Name = "Bidule"
End sub

Cette macro fonctionne lorsque mon fichier est en .xls mais ne fonctionne plus en .xla.

Il doit pourtant bien y avoir un moyen non ?

D'avance merci pour vos réponses,

Souri84

[Fvandermeulen]

Salut,

Es tu certain que fichierAller renvoi le nom Classeur.xla ?

J'en doute...par contre le nom étant connu tu devrais pouvoir l'utiliser en texte directement.

A+

[Minick]

Salut,

Le probleme vient plutot de Windows qui visiblement ne gere pas les xla.

Comme ceci ca passe sans probleme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub afficherShape()
 
    Dim fichierRetour As String, fichierAller As String
 
    fichierRetour = ActiveWorkbook.Name 'classeur sur lequel je bosse
    fichierAller = ThisWorkbook.Name 'classeur.xla
 
    ThisWorkbook.Sheets("Feuil1").Shapes(1).Copy
    With Workbooks(fichierRetour).ActiveSheet
        .Paste
        .Shapes(1).Name = "Bidule"
    End With
End Sub

[Souri84]

Hello,

Merci pour vos deux réponses.

@Fvandermeulen : Oui, en pas à pas détaillé, fichierAller = classeur.xla.

Je vais essayer de voir comment résoudre ce casse-tête !

[Fvandermeulen]

Hello,

Merci pour vos deux réponses.

@Fvandermeulen : Oui, en pas à pas détaillé, fichierAller = classeur.xla.

Je vais essayer de voir comment résoudre ce casse-tête !

OK , j'avais pas testé

Et as tu essayer la méthode de Minick ?

[Souri84]

non, je teste dans l'aprem et je reviens vous dire !