Userform pour ouvrir un classeur

[kioups]

Bonjour à tous !

J'aimerai créer un userform d'un classeur1 afin d'ouvrir un classeur2 et de transférer des données du classeur2 au classeur1.

Bon, la macro pour transférer les données fonctionne sans problèmes.

Ce que je veux avec mon userform, c'est que l'utilisateur aille chercher le classeur2 de son choix.

Alors, j'aimerai savoir comment créer un Userform genre "Enregistrer sous". Après, je dois pouvoir me débrouiller pour lancer ma macro automatiquement.
Puis, je dois pouvoir trouver le truc pour fermer le classeur2.

Je viens de tenter le coup en "enregistrant une macro" à partir de mon classeur, je suis aller ouvrir le classeur2, puis le refermer et ça m'a donné :

Sub Ouvrir_Fermer_classeur()
'
' Ouvrir_Fermer_classeur Macro
'

'
    ActiveWorkbook.Close
End Sub

C'est pas trop ça...

Merci d'avance !

Kioups

 

[kioups]

Re : Userform pour ouvrir un classeur

Nolich : oui, oui, je suis persuadé de ça, pas de souci !

Le problème, c'est qu'avec Windows().Activate, entre les parenthèses, il ne faut que le nom du fichier sans l'extension. Ou que je trouve un truc qui me permet directement d'utiliser Nom...

 

[vbacrumble]

Re : Userform pour ouvrir un classeur

Re



Allez rassures toi, ton souci c'est du passé

MsgBox Split(Nom, "\")(UBound(Split(Nom, "\")))

Évidemment une fois que tu te seras servi de cet exemple de manière adéquate.

 

[kioups]

Re : Userform pour ouvrir un classeur

Merci VBAcrumble !

Succès "presque" sur toute la ligne !

J'ai juste un petit souci avec mon
Workbooks(Nom).Close

A priori, c'est pas grand chose, mais je sèche...

Merci encore !

Kioups

 

[vbacrumble]

Re : Userform pour ouvrir un classeur

Re


Ca marche pour moi comme dirait Rick à Deedee

Sub Ouvrir_Fermer_classeur()
Dim Nom$, noext$
Nom = Application.GetOpenFilename()
If Nom = "" Then
MsgBox "Aucun Fichier Sélectionné", vbOKOnly + vbCritical, "Importation des votes non réalisée "
Exit Sub
Else
Workbooks.Open Filename:=Nom
Importation_Journée (Nom)
noext = Split(Nom, "\")(UBound(Split(Nom, "\")))
Workbooks(noext).Close False
End If
End Sub

 

[kioups]

Re : Userform pour ouvrir un classeur

Merci beaucoup !

Je comprends pas mais ça fonctionne !

A+

Kioups

 

[vbacrumble]

Re : Userform pour ouvrir un classeur

Re



Que ne comprends tu pas ?

 

[kioups]

Re : Userform pour ouvrir un classeur

C'est bon, j'ai compris, c'était juste le false qui me perturbait... ;-)

Merci encore !