Selectionner un onglet par inputbox [Résolu]

noe2008 92 Messages postés vendredi 18 juillet 2008Date d'inscription 29 décembre 2017 Dernière intervention - 29 déc. 2017 à 09:56 - Dernière réponse : Mike-31 15954 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 5 janvier 2018 Dernière intervention
- 29 déc. 2017 à 14:09
Salut les amis
j'essaie de créer une macro qui pour but d'importer des données d'un autre classeur vers ma feuille "cant" mais le classeur qui se trouve dans mon bureau a plusieurs feuille : A1,A2 ,A3 ,A4 .........
je veux ajouter une inputbox qui me propose le nom de la feuille ( a la place du code : Sheets("A1").Activate) au lieu de modifier manuellement le code de A1 à A2 ............

voila la macro

Sub importA1()
Application.ScreenUpdating = False
Dim Fich As String, cd,
Fich = Application.GetOpenFilename
Workbooks.Open (Fich)


Sheets("A1").Activate



cd = ActiveSheet.Range("a1:AB48")
ActiveWorkbook.Close
Sheets("cant").Activate
Range("a1:AB48") = cd
End Sub



cordialement
Afficher la suite 

3 réponses

Répondre au sujet
Mike-31 15954 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 5 janvier 2018 Dernière intervention - 29 déc. 2017 à 10:22
+1
Utile
1
Bonjour,

en ajoutant ce bout de code
Dim resultat As String
    resultat = InputBox("Texte ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
    If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
       Sheets(resultat).Activate
    End If


en début de ton code tu suspends le rafraichissement écran
Application.ScreenUpdating = False

avant ton End sub il faut le rétablir
Application.ScreenUpdating = True

déclare ta variable cd
Dim Fich As String, cd As Variant
noe2008 92 Messages postés vendredi 18 juillet 2008Date d'inscription 29 décembre 2017 Dernière intervention - 29 déc. 2017 à 10:38
Merci Mike-31 le code marche très bien maintenant
Commenter la réponse de Mike-31
Mike-31 15954 Messages postés dimanche 17 février 2008Date d'inscriptionContributeurStatut 5 janvier 2018 Dernière intervention - 29 déc. 2017 à 14:09
0
Utile
Re,

Alors je passe le statut de la discussion en résolu
Bonne fin d'année
Commenter la réponse de Mike-31