Discussion :

[agro]

Bonjour,

J'ai une fonction en vba sous excel qui copie une feuille dans un nouveau classeur excel. Pour cela, j'utilise les lignes de codes suivantes :

Code :

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

1
2
3
4
5
' 
Sheets("Résultats").Activate
Sheets("Résultats").Copy
ActiveSheet.Name = nouveau_nom
ActiveWorkbook.SaveAs nom_result

L'exécution du code s'arrête après la ligne de code

Code :

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

Sheets("Résultats").Copy

sans qu'aucun message d'erreur n'apparaisse. Ce qui est bizzare c'est que ce problème ne survient pas sur tout les pc.

Si quelqu'un pouvait m'aider ce serait vraiment cool car là je ne vois vraiment pas ce qui se passe.

Merci d'avance.

Thibaut.

[Megaxel]

Mais alors, qu'est-ce que tu entends par "l'execution s'arrête"?
Tu récupères la main, et c'est tout? Il ne renomme pas la feuille active, et il n'enregistre pas le fichier?

[SfJ5Rpw8]

il y as quoi sur tes feuilles
- Tableau croisé dynamique ?
- Graphes ?

qu'elle est la version d'excel ?


moi j'ai déjà eu un probléme similaire avec 'un classeur comportant des graphe dynamique créé sous Excel 2000 ...

Excel 97 se "vautrai" complétement lors de l'utilisation du précédent classeur
au momen de la copie simultanée de la feuille contenant mon graphe et ses données....

[agro]

C'est bien çà Megaxel : le code s'arrête à la ligne qui copie la feuille et puis je récupère la main.
La feuille contient juste un tableau avec une image mais de toute façon, le problème est le même lorsque j'essaie de copier une feuille vide. Je travaille sous Office 97 et le problème survient sous Office 2003 quoique j'ai déjà eut ce problème sous Office 97 quand la session ouverte n'était pas une session administrateur.

[agro]

Personne n'a d'idée ?

[leroissejp]

Bonjour,
Ce code enregistre la feuille 1 de ton classeur dans un nouveau classeur (ici .csv, mais tu peux mettres .xls)

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
 
Private Sub CommandButton1_Click()
  Dim wbkNew As Workbook
  Dim wbkExisting As Workbook
  Set wbkExisting = ActiveWorkbook
  Set wbkNew = Workbooks.Add
  wbkExisting.Sheets("Feuil1").Copy Before:=wbkNew.Sheets(1)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    wbkNew.Sheets(1).Delete
  wbkExisting.Sheets("Feuil1").Copy Before:=wbkNew.Sheets(1)
  wbkNew.SaveAs "C:\MonClasseur.csv", True
    wbkNew.Close
  Application.ScreenUpdating = True
End Sub

jpleroisse

[ouskel'n'or]

J'allais te demander : Tu en fais quoi de ça "Sheets("Résultats").Copy"
Si tu ne colles ta feuille nulle part, à quoi ça te sert.
Alors si elle ne doit pas servir, efface ta ligne... Ou alors, prends la solution de leroissejp qui crée une copie la la feuille.
Cette copie, tu peux la faire dans le classeur lui-même ou dans un autre classeur.

Précise-nous seulement ce que tu veux faire....

A+