Bonsoir le forum
j'avance, j'avance mais quelle galère
voiçi mon code presque terminé :
Sub Récup()
sem = InputBox('Données de la semaine : sous forme de 2 chiffres', 'Recherche des données')
If sem <> '2' Then
If Len(sem) = 2 Then
sem = 'sem ' + sem
If Range('A5') <> sem Then
Range('A5').Value = sem
Range('B9:AD24').ClearContents
chemin = ThisWorkbook.Path 'attribue le chemin d'accès
For Each cell In Range('listevendeur')
ligne = cell.Row ' mémorise le N° de ligne
If cell <> 0 Then
Ws = (chemin & '\\' & cell.Value & '.xls') ' attribue le fichier a Ws
n = IIf(Dir(Ws) <> '', 'ok', 'oups') ' vérifie l'existence du classeur
If n = 'ok' Then
Application.ScreenUpdating = False
Workbooks.Open Ws
Range('B67:AB67').Copy
ActiveWorkbook.Close False
Workbooks('Calcul.xls').Activate
Sheets('SAISIE').Range('B' & ligne).PasteSpecial 'Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End If
Next
Else: MsgBox ('erreur de format')
Else: MsgBox ('Cette semaine a déjà été chargée')
Range('B9').Select
Exit Sub
End If
End Sub
1er souci sans résultat : mes If
j'en ai 5 ce que je souhaiterais obtenir
sur le 1er : sortir de la macro car click sur annuler dans msgbox
sur le 2ème : erreur de format car différent de 2 caractères
sur le 3ème : message : Cette semaine a déjà été chargée
4ème et 5ème eux au moins ils fontionnent ! lol
et tjrs mon soucis de valeur numérique du précédent post ainsi que récupérer les données sans ouvrir les classeurs (moins grave)
merci a vous tous et toutes
JC