Probleme de inputbox

bonjour,

alors j'ai un soucis avec le code ci-dessous. a savoir que quand j'execute depuis vba je n'ai pas de soucis mes input box s'ouvrent bien mais quand j'excute le code via le bouton de mon userform mes input ne s'ouvrent pas mais la suite du code fonctionne.

Auriez vous une solution svp ?

Sub Bouton1_Cliquer()
    Dim fichier As Variant

    Dim i As Integer
    Dim j As Integer
    Dim nomUnite As String
    Dim dateMouvement As String
    Dim chemincopie As String
    Dim nomcopie As String
    dateMouvement = InputBox("A quelle date est prévu le mouvement ? format (jj-mm-aaaa)")
    nomUnite = InputBox("Pour quel unité la mise en dépot est elle concernée ?")
    nomcopie = nomUnite & "-" & dateMouvement & ".xlsm"
    chemincopie = "Y:\700 - SECTION STOCKAGE\703 - GROUPE MAGASINS\DEPOTS\MISE EN DEPOT\MOUVEMENTS\"

    fichier = Application.GetOpenFilename("FICHIER EXEL (*.xls), *.xls", ".xls", "SELECTIONNER UN FICHIER", , False)
    If (fichier = "Faux") Then
        MsgBox ("Le fichier n'as pas été choisi")
    Else
        'ouverture du fichier à gael
        Workbooks.Open filename:= _
        fichier
        Dim nomfichier As String
        nomfichier = ActiveWorkbook.Name

        'récupération de la dernière ligne du tableau.
        Dim derLigne As Integer, premLigne As Integer
        derLigne = Range("A65000").End(xlUp).Row

        Dim cag As String
        'parcour du fichier a gael pour recupération des lignes
        For i = 2 To derLigne

            'récupération des données du tableau a gael
            cag = Range("A" & i).Value
            Dim lot As String, unite As String, service As String
            Dim justif As String, qte As Integer, designation As String
            lot = Range("C" & i).Value
            unite = Range("E" & i).Value
            service = Range("F" & i).Value
            justif = Range("K" & i).Value
            qte = Range("L" & i).Value
            designation = Range("O" & i).Value
            If (cag <> "") Then

                'activation du classeur application mise en depot.xls
                'puis rangement des données
                Workbooks("APPLICATION MISE EN DEPOT.xlsm").Activate

                'calcul de la premiere ligne a renseigner
                Dim applDerLigne As Integer
                applDerLigne = Range("A65000").End(xlUp).Row + 1
                'MsgBox ("La ligne a Renseigner est la numéro " & applDerLigne)
                Range("A" & applDerLigne) = cag
                Range("B" & applDerLigne) = lot
                Range("L" & applDerLigne) = unite
                Range("M" & applDerLigne) = service
                Range("N" & applDerLigne) = justif
                Range("H" & applDerLigne) = designation
                Range("C" & applDerLigne) = qte

                Worksheets("GTSM").Activate
                Dim cagExplode As String
                cagExplode = Mid(cag, 1, 4) & Mid(cag, 6, 3) & Mid(cag, 10, 4)

                'recherche de la classe de stockage
                Dim DR As String, masseBrut As Double, masseMa As Double
                DR = Application.WorksheetFunction.VLookup(Val(cagExplode), Range("A2:P7871"), 4, False)
                Worksheets(1).Activate
                Range("T" & applDerLigne) = DR
                Range("bord!A" & applDerLigne) = cag
                Range("bord!B" & applDerLigne) = service
                Range("bord!C" & applDerLigne) = justif
                Range("bord!D" & applDerLigne) = designation
                Range("bord!E" & applDerLigne) = lot
                Range("bord!F" & applDerLigne) = DR
                Range("bord!I" & applDerLigne) = qte

                'reactivation du fichier a gael
                Workbooks(nomfichier).Activate

            End If
        Next i
        Workbooks("APPLICATION MISE EN DEPOT.xlsm").Worksheets(1).Activate
        'on crée une couleur alternée pour les lignes
        Dim backColor As Integer
        Dim rng As Range

        For j = 3 To derLigne - 1
            If (j Mod 2 <> 0) Then
                backColor = 2
                Else
                backColor = 19
            End If
            Set rng = Range("A" & j, "U" & j)
            rng.Interior.ColorIndex = backColor
            With rng.Borders
                .Weight = xlThin
            End With
            rng.BorderAround _
                Weight:=xlMedium
        Next j
        Workbooks("APPLICATION MISE EN DEPOT.xlsm").SaveCopyAs (chemincopie & nomcopie)
        'reactivation du fichier a gael
        Workbooks(nomfichier).Close
    End If
End Sub

Bonjour

Ton fichier serait utile dans ce cas

Tu indiques ce que tu y fais pour ne pas avoir les InputBox

Désolé mais ce fichier est au boulot et ne pas pas etre dévoilé car ses données sont confidentielles.

Je ne pourrais donc pas joindre de -fichier

Bonjour. Je UP Car problème non résolu