Input à l'ouverture du fichier Excel

Question

Bonjour !

Je cherche à avoir un fichier Excel qui quand je l'ouvre , m'ouvre une fenêtre et me demande de rentrer le mois concerné. Imaginons que le mois concerné soit Juin , je dois rentrer dans l'input "06" , puis le fichier va aller chercher dans un autre fichier noté "Monthly OTM 06" , les données dans la feuille "MISSED" , et va les importer dans une la première feuille de mon fichier , à la dernière cellule non vide , si j'avais rentré "07" pour juillet , il serait allé chercher les données dans le fichier "Monthly OTM 07"

J'ai fait un code , mais quoiqu'il arrive quand je le lance , il me dit que le fichier spécifié n'existe pas ...

Sub ImportData()
    Dim inputMonth As String
    Dim fileName As String
    Dim filePath As String
    Dim importSheet As String
    Dim lastRow As Long
    Dim targetSheet As Worksheet

    ' Demander le mois concerné à l'utilisateur
    inputMonth = InputBox("Entrez le mois (format MM) :")

    ' Construire le nom de fichier et le chemin d'accès
    fileName = "2023_" & inputMonth & " Monthly OTM Milestones Lists"
    filePath = "\\giono\fdat1469\ETSP\Perfo Report\Monthly OTM\"
    ' Vérifier si le fichier existe
    If Dir(filePath & fileName) = "" Then
        MsgBox "Le fichier spécifié n'existe pas."
        Exit Sub
    End If

    ' Ouvrir le fichier source
    Workbooks.Open (filePath & fileName)

    ' Spécifier la feuille source et la feuille cible
    importSheet = "MISSED" ' Remplacez par le nom réel de votre feuille source
    Set targetSheet = ThisWorkbook.Sheets(1) ' Première feuille du classeur actif

    ' Trouver la dernière ligne non vide dans la feuille cible
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1

    ' Copier les données de la feuille source vers la feuille cible
    Sheets(importSheet).UsedRange.Copy targetSheet.Cells(lastRow, 1)

    ' Fermer le fichier source sans enregistrer les modifications
    Workbooks(fileName).Close SaveChanges:=False

    MsgBox "Les données ont été importées avec succès."
End Sub

Pourtant , le fichier et le chemin d'accès sont corrects tous les deux , si vous pouviez m'aider à identifier ou se trouve le problème , merci beaucoup !!

WonderAleph · Answer

Tu as oublié de mettre l'extension du fichier dans son nom, il ne peut donc pas le trouver, il s'agit probablement d'un .xlsx...

Abderrahmane BENALI · Answer

Bonjour,

Je dirais la même chose que WonderAleph, vous avez oublié d'ajouter l'extension du fichier (".xlsx" ou ".xls") à fileName

fileName = "2023_" & inputMonth & " Monthly OTM Milestones Lists.xlsx"

Abderrahmane BENALI · Answer

...