Shapes et macro complémentaires

Version imprimable

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:

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

24/02/2010, 14h04
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+

Salut,

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

Comme ceci ca passe sans probleme:

Code:

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

24/02/2010, 14h57
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 !
24/02/2010, 15h00
Fvandermeulen

Citation:

Envoyé par 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 !

OK :ccool: , j'avais pas testé :oops:

Et as tu essayer la méthode de Minick ?
25/02/2010, 14h00
Souri84

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