Discussion :

[Maxim0]

Bonjour,
j'ai fait une macro qui exporte des données de mon classeur excel vers un autre classeur excel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub export()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
 
Workbooks.Open Filename:= _
"p:\document\desktop\Fichier1.xlsm"
 
Workbooks("Fichier1.xlsm").Worksheets("Données1").Range("L83:W83") = ThisWorkbook.Sheets("Feuil1").Range("B22:M22").Value
 
End Sub

je voulais savoir est-ce que je peux ajouter une instruction pour cacher le classeur ouvert (Fichier 1 ) et sauvegarder les données à exporter .


Merci d'avance
cdt,

[SfJ5Rpw8]

pour agir sur ton classeur utilise une variable de type workbook ..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim wk As WorkBook
(...)
 
set wk = Workbooks.Open (Filename:= _
"p:\document\desktop\Fichier1.xlsm")
 
wk.visible = false ' Pour rendre le classeur invisible
 
 
wk.close true 'Pour fermer en sauvant le classeur

[Maxim0]

Bonjour bibil,
Merci pour votre réponse, le code ne marche pas, il y a une erreur sur la ligne "wk.visible = false" : Propriété ou méthode non gréée par cet objet.

Merci bcp pour votre aide
cdt,

[SfJ5Rpw8]

ok .. j'ai confondu classeur et application :

tu peu masquer tout excel :

Code :

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

Application.visible = false

pour la 1° fenêtre de ton classeur

Code :

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

1
2
 
wk.Windows(1).visible = false

[Maxim0]

Bonjour bibl,

Merci pour votre retour. Le code marche, parcontre quand je ferme mon fichier ca m'affiche une fentre :"Avertissment concernat la confidentialité: ce document contient des contrels ActiveX,....,Ils peuvent renfermer des information personnelles qui ne peuvent pas être supprimer par l'inspecteur de document"

apres le fichier 1(le fichier ou les données sont exporter) sera vide.

Merci d'avance

Bonjour,
Je voulais savoir y a un code qui fait masquer le fichier 1 et sauvegarder les données exportées puis fermé le fichier 1
le fichier 1 contient des macro et des ActiveX, j'essayer avec "wk.Windows(1).visible = false", Le problème si je ferme mon classeur, puis je ouvre le ficher 1 je le trouve vide .


Merci d'avance,
cdt,

[SfJ5Rpw8]

on peu voir ou tu en est de ton code ?

[Maxim0]

Bonjour bibil,
voici le code :

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
16
17
18
19
20
21
22
 
 
Sub export
Workbooks.Open Filename:= _
"p:\document\desktop\Fichier1.xlsm"
Workbooks("Fcihier1").Windows(1).Visible = False
aa = Feuil5.Range("I201:EP300")
 
 
bb = Workbooks("Fichier1.xlsm").Worksheets("Donnée1").Range("X40:AI46")
 
n = 1
For i = 1 To 6
For j = 1 To 12
bb(i, j) = aa(4, n)
n = n + 12
Next j
n = i + 1
Next i
Workbooks("Fichier1.xlsm").Worksheets("Donnée1").Range("X40:AI46") = bb
 
Workbooks("Fichier1.xlsm").close true

le problème que si je ferme mon classeur, j'aurai ce message::"Avertissment concernat la confidentialité: ce document contient des contrels ActiveX,....,Ils peuvent renfermer des information personnelles qui ne peuvent pas être supprimer par l'inspecteur de document"

Apres le fichier sera vide

Merci d'avance,