modif macro extraction qté

[sircroco]

discussion résolu

 

[Paritec]

Bonjour Sircroco le forum
Le multipostage n'est pas interdit, par contre il y a la correction qui fait que, normalement on le signale !!!
a+
Papou
edit Bonjour Lone

 

[Lone-wolf]

Bonjour sircroco, le Forum

Il faut dans ce cas supprimer les lignes

With Application.FileDialog(msoFileDialogFilePicker) 'Sortir la fenêtre de dialogue
        .AllowMultiSelect = True
        .Title = "sélection des fichiers à ouvrir"
        .Filters.Clear
        .Filters.Add "Excel files", "*.XLS*" 'Sélectionne seulement les fichiers Excel
        If .Show = True Then
            If .SelectedItems.Count = 2 Then

Et remplacer par celles-ci

fichier = ThisWorkbook.Path & "\Donneesdentree.xlsx"

Set wb1 = Workbooks.Open(fichier)
Set ws1 = wb1.Sheets(1)

Note: je te conseil aussi de déclarer toutes les variables.

EDIT: bonjour Papou

 

[sircroco]

merci !! pb résolu