P
Pierre
Guest
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('B24').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]
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('B24').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]