Discussion :

[gaihdriah]

bonjours,

je souhaite ouvrir un fichier (puis declencher une importation de donnée ensuite), mais je sais pas comment faire pour la macro.

j'aimerai que le fichier s'ouvre avec un bouton. donc bien évidemment pas de probleme pour le bouton, non plus pour l'importation, mais pour l'ouverture du fichier contenant les donnée de l'importation, je coince.

merci d'avance

[drakkar_agfa]

Bonjour,

Tu peux utiliser l'enregistreur de macro pour regarder le genre de code qu'il te faut.

Ensuite, il faut savoir si le fichier sera toujours le même ou si l'utilisateur choisira le fichier (avec une boite "ouvrir", le chemin du fichier écrit dans une cellule, un fichier avec un nom + un mois ex : Importation 2009-02 (le mois change et il faut prendre le mois courant))

Plein de petites questions qui peuvent aider beaucoup!

[gaihdriah]

le fichier aura toujour le meme nom, et toujours le meme emplacement (bureau) il s'agit en fait d'une exportation de SAP.

donc pas de probleme pour le chemin ni pour le nom.

le truc c'est que j'arrive pas a trouver le code qui permette de trouver le fichier et de l'ouvrir.

je vois pas de quoi tu parle quand tu evoque l'enregistreur de macro. tu peux préciser stp?

[Fvandermeulen]

Bonjour,
Voici un (vieux) code qui peut te mettre sur la piste...

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 ouvre_fichier()
 
FileToOpen = Application.GetOpenFilename
 
If VarType(FileToOpen) = vbBoolean Then
GoTo 5
End If
 
    msg = MsgBox(prompt:="Fichier sélectionné: " & FileToOpen & Chr(10) & "voulez vous continuer?" _
                  , Title:="Attention" _
                  , Buttons:=vbYesNo)
If msg = vbNo Then
GoTo 5
End If
Workbooks.Open (FileToOpen)
 
GoTo 10
 
 
5 MsgBox ("Action annulée")
 
10 End Sub

Bonne continuation.

Oups, j'ai été un peu long pour répondre...

[drakkar_agfa]

Dans le menu "Outil, Macro, Nouvelle Macro"

Il enregistrera ce que tu feras. Alors en ouvrant le fichier, il va créer le code pour ouvrir le fichier.

Essais et reviens nous voir après.

[gaihdriah]

héhé, o. j'avais compris de quoi tu parlais. oui bien sur l'enregistreur de macro. sauf qu'il n'enregistre pas quand je sors du fichier. sauf erreur de ma part bien sur...

bon je regarde tout ca et je te tiens au jus.

[ouskel'n'or]

Si ton fichier est sur le bureau, il n'est pas dans "C:\BUREAU" mais dans "C:\Documents and Settings\Nom de l'utilisateur\Bureau\"
Pour l'ouvrir, c'est donc

Code :

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

Workbooks.open "C:\Documents and Settings\Nom de l'utilisateur\Bureau\NomDuClasseur.xls"

[gaihdriah]

pour le code que tu m'as passé, c'est cool, mais c'est un peu trop complexe pour moi, je le comprend pas trop. pourquoi autant de msgbox? pourquoi des questions?

en fait ce que je evux c'est que quand on clic sur le bouton, la macro ouvre le fichier demandé (nommé nouveau document dans basis) réalise l'importation (simple copier coller) puis ferme le document.

pour ce qui est de mon importation pas de soucie. mais c'est l'ouverture du doc qui me pose probleme.

[Fvandermeulen]

Re,
C'était une piste, tu pouvais retravailler le code et donc supprimer ce qui est en trop,
Au final, ce que ouskel'n'or te donne comme réponse quoi.

[ouskel'n'or]

As-tu testé ma réponse ?
Pour le fichier à ouvrir, tu évoques un fichier Excel dans ton premier message et dans le dernier tu parles de document... Or les fichiers Word sont nommés "Document".
De quoi parles-tu ? Que souhaites-tu ouvrir ? Un classeur Excel ou un document Word ?
A+

[gaihdriah]

excuse moi, faute de language. il s'agit bien d'un fichier excel. je parlais d'un document au sens large. ma faute.

j'ai essayé, mais ca n'a pas fonctionné, jusqu'a ce que je mette les "" au début et a la fin du chemin d'acces.

et je suppose que pour le refermer il faut taper ca:

Code :

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

workbooks.close "c:chemin du fichier"

[ouskel'n'or]

Non :

Code :

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

workbooks("NomDuFichier.xls").close True 'pour enregistrer les modifs ou  False pour fermer sans enregistrer

Le chemin n'est pas nécessaire si le fichier existe déjà.

[gaihdriah]

ok nikel.

merci pour ta réponse précise.

a bientot