Bonjour à tous,
Je dois faire la maintenance d'un excel crée par un collègue mais j'ai un soucis : l'idée principale est de cliquer sur un bouton, demandant le nom de l'excel sur lequel je dois tirer les informations et ensuite celles-ci se copient automatiquement dans mon tableur actif.
Mais lors de l'entrée du nom de l'excel, j'ai un message me disant que ce fichier n'est pas valide. J'ai tenté pas mal de choses mais rien n'y fait.
Ci-dessous le code :
'récupération du nom du classeur
classeur_adv = ActiveWorkbook.Name
classeur = InputBox("compléter le nom du classeur à importer", "nom du classeur", "QGridExport")
'si nom du classeur pas bon sortir de la procédure
On Error GoTo erreur
i = 1
Windows(classeur & ".xls").Activate
[s'en suit toutes les actions à faire...]
Go To fin
erreur : MsgBox ("nom du fichier invalide")
fin:
End Sub
Le nom du fichier à mettre commence toujours par "QGridExport" et se suit de 3 chiffres. Celui que je dois utiliser se nomme "QGridExport005". Je ne tape donc dans la fenêtre que "005" mais rien n'y fait ...
Merci d'avance pour votre aide,