ouverture te fermeture de fichier excel

[therafou]

Salut,

je cherche à savoir comment ouvrir et fermer un fichier excel avec du VBA.
De cette manière j'ouvre le fichier dans la même fenêtre excel que celui qui exécute la commande d'ouverture puis je lance ma macro de copie ou autres et ensuite je ferme le fichier que j'ai ouverte à la fin de l'opération.

merci

 

[Shock]

Re : ouverture te fermeture de fichier excel

bjr,
je pense qu'une recherche aurait été fructueuse...
as-tu essayé workbooks(1).open ou un truc du genre?

 

[porcinet82]

Re : ouverture te fermeture de fichier excel

Salut therafou, Shock,

Pour ouvrir un fichier dont le chemin est connu, tu peux utiliser un code du genre :
Workbooks.Open Filename:="C:\Documents and Settings\Moi\Bureau\ton_fichier.xls"

Ou si tu veux aller chercher un fichier tu peux utiliser un code du genre :
Dim NomFic As String
NomFic = Application.GetOpenFilename("Text Files (*.xls), *.xls")
Workbooks.Open Filename:=NomFic

Pour fermer ce fichier, il te suffit de mettre un truc du genre :
Workbooks("ton_fichier.xls").Close

@+

 

[Shock]

Re : ouverture te fermeture de fichier excel

un code du genre :

et :

un code du genre :

ou encore :

il te suffit de mettre un truc du genre :

copieur!! 😉

ou un truc du genre?

C'est exactement ça therafou, mais beaucoup mieux expliqué et détaillé que moi!
mais je répète, fais une recherche sur ce type de demande, tu trouveras beaucoup de choses!!!

 

[Kobaya]

Re : ouverture te fermeture de fichier excel

coucou tout le monde,

une autre variante :

Sub TestOuvertureFichier()
    Dim wbkBook As Workbook
    Dim NomFic As String
    
    NomFic = Application.GetOpenFilename("Text Files (*.xls), *.xls")
    ' ouverture du fichier avec référencement dans une variable objet
    
    Set wbkBook = Workbooks.Open(Filename:=NomFic)
    
    '
    ' là, tu fais ce que tu veux dans ce fichier
    '
    
    ' sauvegarde
    wbkBook.Save
    ' fermeture du fichier
    wbkBook.Close
    
    Set wbkBook = Nothing
End Sub