Appeler un autre classeur ouvert

[monv1606]

Bonjour à tous,

J'ai, à l'aide de macro, créé un programme qui prends les données d'une feuille d'un classeur et les recopie dans une nouvelle feuille d'un autre classeur.

Pour ce, je demande, à l'aide d'un InputBox, à l'utilisateur le nom du fichier d'où vient l'information (le nom peut varier).

J'aimerais savoir comment faire pour éviter un message d'erreur m'amenant au code VBA lorsque le nom entré n'est pas identique à celui du fichier. Je voudrais que le programme affiche un message d'erreur et demande à l'utilisateur de recommencer.

Mon code actuel:

Sub transfert()
Dim name As String
Dim doc As String

name = InputBox("What's the name of the project description's document?", "Transfert", "Project Description.xls") 'ajouter si nom invalide
If name = "" Then
Exit Sub
End If

doc = InputBox("What's the name of this document?", "Transfert", "ProjectList.xls")
If doc = "" Then
Exit Sub
End If

Quelqu'un peut m'aider?

Merci,

Vincent

 

[MJ13]

Re : Appeler un autre classeur ouvert

Bonjour Monv1606

J'aimerais savoir comment faire pour éviter un message d'erreur m'amenant au code VBA lorsque le nom entré n'est pas identique à celui du fichier. Je voudrais que le programme affiche un message d'erreur et demande à l'utilisateur de recommencer.

C'est pas cool pour l'utilisateur 🙁.

Ne pourrais-tu pas plutôt ouvrir une boîte de dialogue comme pour ouvrir un fichier et que l'utilisateur sélectionne le fichier 😕.

 

[monv1606]

Re : Appeler un autre classeur ouvert

Bonjour Michel,

Oui, je pourrais, seulement je ne sais pas comment.. Est-ce qu'il y a une fonction simple qui fait ce type d'exercice?

Merci,

Vincent

 

[MJ13]

Re : Appeler un autre classeur ouvert

Re Vincent

Regarde issu de l'aide de GetOpenFilename, sinon j'ai un problème cela mais cela doit être plus simple 🙁.
Avec Henry, c'est plus facile pour avoir la seconde ligne 🙂.

Sub ouvre_Fichier()
Henry = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
 Workbooks.Open Filename:=Henry
End Sub

 

[monv1606]

Re : Appeler un autre classeur ouvert

Michel,

ça me semble fonctionnel!

Merci beaucoup,

Vincent