Discussion :

[intel_mark]

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
 
Sub GET_ibnr()
 
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("excel.application")
    Set xlbook = xlApp.Workbooks.Open("mon fichier")
    xlApp.Visible = True
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
 
    Set xlApp = Nothing
    Set xlbook = Nothing
 
    End Sub

Salut,

Ma macro forme mon fichier excel actif et ouvre un autre fichier excel. Le problème est que je me retrouve avec deux fichiers excel d'ouvert dont un qui ne contient aucun classeur et l'autre le classeur que je veux. Est-il possible que l'excel ne contenant rien ne soit pas affiché?

Merci

[jfontaine]

Essai comme ca

Code :

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

1
2
3
4
5
6
7
8
 
 
    Set xlbook = Application.Workbooks.Open("chemin")
 
    ThisWorkbook.Save
    ThisWorkbook.Close
 
    Set xlbook = Nothing

[intel_mark]

Oui ca fonctionne

c'est apprécié et évident...

Merci

Bonne journée

[AlainTech]

Un petit clic sur le bouton Résolu?