Discussion :

[dev-du-dimanche]

Bonjour,

J'ai un petit problème sur un programme VBA que j'ai développé.

Mon programme a pour but d'ouvrir un second classeur, copier une des feuilles dans le classeur d'origine puis tranquillement refermer le classeur ouvert en le sauvegardant.

Lorsque j'exécute ce programme en pas à pas détaillé aucun problème le programme s'exécute appliquant à la lettre les étapes demandé.

Seulement lorsque je l'exécute normalement la page n'est jamais copié comme si celle ci n'était pas trouvé.

voici les quelque ligne pour les plus curieux :

Code :

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

1
2
3
4
5
6
7
8
    Workbooks.Open Chemin, 0, ReadOnly:=False
    ActiveWorkbook.Sheets(nomfeuille).Copy After:=Workbooks(classeurdorigine).Sheets("Feuil1")
    Application.DisplayAlerts = False
    ActiveWorkbook.Sheets(nomfeuille).Delete
    Workbooks(classeurouvert).Save
    Workbooks(classeurouvert).Close
    Application.DisplayAlerts = True
    Workbooks(classeurdorigine).Worksheets(nomfeuille).Visible = 1

Comme vous l'aurais compris la feuille est caché ET verrouillé!

Merci d'avance pour votre aide!!!!

[Patrice740]

Bonjour,

Un excellent cours VBA :
https://bidou.developpez.com/article/VBA/
Lire le cours et comprendre les exemples à partir de la page 128 : Workbooks, ... (après avoir lu la page 35 : les objets)

[MarcelG]

Bonjour,

J'ai l'impression que la difficulté porte sur

Code :

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

ActiveWorkbook

Personnellement, je l'utilise le moins possible.
Mieux vaut affecter une variable à ce classeur actif pour l'utiliser ultérieurement.

D'autre part, les 2 lignes sur la fermeture et la sauvegarde sont redondantes.
1 seule ligne suffit

Illustration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Esssai_Open()
 
Dim class As Workbook
 
Set class = Workbooks.Open(Filename:= _
        "lechemindcomplet du classeur")
Debug.Print "Nombre de feuilles : " & class.Worksheets.Count
class.Close Savechanges:=True
Set class = Nothing
 
End Sub

Tu peux consulter l'aide sur la méthode Close d'un classeur au sein de cet espace