Bonjour,
Je suis bloqué, j'ai regardé plusieurs solutions, mais aucune ne correspond vraiment à mon problème.
J'ai déjà une macro qui fonctionne parfaitement, mais pour 1 fichier Excel, je souhaite que cette macro fonctionne pour plus de 1000 fichiers tous identiques, je ne sais pas si c'est possible ?
Chaque fichier correspond à une pièce d'un catalogue, soit en ouvrant le fichier la personne pourrait activer la macro avec un bouton ou autre.. (la macro permet de copier la dernière valeur d'une cellule et de le coller dans une autre feuille)
Je vous remercie par avance :)
Private Sub CommandButton1_Click()
Sheets("Fiche suivi").Range("B1").Copy
Sheets("feuille2").Range("C6").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche suivi").Range("B2").Copy
Sheets("feuille2").Range("C5").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche suivi").Range("C3").Copy
Sheets("feuille2").Range("C4").PasteSpecial Paste:=xlPasteValues
Dim DL As Long
Dim sup As Integer
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row
Range("A12").Value = Range("B" & DL).Value
DL = Cells(Application.Rows.Count, 3).End(xlUp).Row
Range("A13").Value = Range("C" & DL).Value
sup = Cells(Application.Rows.Count, 4).End(xlUp).Row
For i = sup To 3 Step -1
If Cells(i, 4) > 0 Then
Range("A14").Value = Cells(i, 4).Value
Exit For
Else
Range("A14").Value = "Aucune valeur supérieure à 0"
End If
Next
End sub