Pbls dans macro

[Pierre]

Bonjour à tous

J'ai des soucis avec cette macro:


Sub Macro1()

'Copie des feuilles
Sheets(Array('Nom&Prenom', 'Graph')).Select
Sheets('Graph').Activate
Sheets(Array('Nom&Prenom', 'Graph')).Copy

'Suppression de la liaison
ActiveWorkbook.BreakLink Name:= _
'C:\\Documents and Settings\\Pierrot\\Desktop\\Exemple.xls', Type:=xlExcelLinks

'Copie des infos
Sheets('Nom&Prenom').Select
Range('B2😀4').Select
Selection.Copy
Sheets('Graph').Select
Range('H3').Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Suppression de la feuille
Sheets('Nom&Prenom').Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete

End Sub

voici lesquelles:

1 - La fonctions en rouge ne fonctionne pas sous Excel2000 et mon fichier va devoir fonctionner avec celui-ci comme avec des version plus recente. Quelqu'un aurait-il un moyen de resoudre cela?

2 - Comment pouvoir touver le chemin de la liaison automatiquement, sachant que ce fichier sera installer en local sur les postes des utilisateurs?

3 - Comment faire pour que la reponse à la suppression de la feuille (partie en vert) se fasse automatiquement et que l'utilisateur n'est pas à appuyer sur le bouton 'Supprimer' quand le message lui apparait?

Je sais que cela fait beaucoup de question d'un coup mais je ne voyais pas comment faire autrement. Je vous joins un fichier exemple dans lequel j'ai inclus cette macro. La feuille pour laquelle je supprime la liason est celle où se trouve les graphs. Dans ce fichiers il n'y en a que 2 mais dans mon fichier d'origine il y en 12.

Merci beaucoup et par avance pour votre aide.
Pierre
[file name=Exemple_20050517170403.zip size=6849]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_20050517170403.zip[/file]

 

[EricV]

Bonjour Pierre

Cette solution ne résoudra pas le problème Excel2000 mais les autres oui

Tu n'as qu'à enrigistrer une macro sur un ordinateur équipée d'Excel 2000 et d'y adapter cette macro

Bon courage
[file name=Exemple_20050517191857.zip size=8928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_20050517191857.zip[/file]

 

[Pierre]

Bonjour EricV

Je te remercie pour ta reponse et je vais essayer cela sur mon fichier d'origine.

S'aurais tu comment copier mes 12 graphs dans une autre feuille d'un coup en supprimant les liaisons. Cela pour pouvoir utiliser ce fichier sous Excel2000.

Merci encore pour ton aide.
Pierre