Re : créer un boutton copier coller dans un fichier de suivi
alors, apres quelques effort sur internet j'ai réussi à compiler ce programme
.
le probleme qui se pose c'est que, vu que mes feuille d'ou j'extrai mes données dans la feuille recap. sont proteger par mot de passe le code VBA me sort une erreur comme quoi il faut que je supprime le mdp de chaque fichier. chose que je ne veux pas faire .
est cequ il y a moyen de contourner cet erreur....
merci bcp les gars
Sub Copie()
Dim lig As Integer, p As String, nomfich As String
Application.ScreenUpdating = False 'fige l'écran (pour accélérer)
Range("A2
65536").ClearContents 'efface la plage de restitution
lig = 2 'restitution à partir de la ligne 2 (si titres en ligne 1)
p = ThisWorkbook.Path & "\"
nomfich = Dir(p & "*.xls") '1er fichier du dossier
While nomfich <> ""
If nomfich <> ThisWorkbook.Name Then
Cells(lig, 1) = nomfich 'nom du fichier en colonne A
Cells(lig, 3).Formula = "='" & p & "[" & nomfich & "]RECAP'!E8" 'Feuil1 => nom de la feuille à adapter...
Cells(lig, 2).Formula = "='" & p & "[" & nomfich & "]RECAP'!I4"
Cells(lig, 4).Formula = "='" & p & "[" & nomfich & "]RECAP'!F8"
Cells(lig, 5).Formula = "='" & p & "[" & nomfich & "]RECAP'!G8"
Cells(lig, 2).Resize(, 3) = Cells(lig, 2).Resize(, 3).Value 'facultatif, si l'on veut supprimer les formules
lig = lig + 1
End If
nomfich = Dir 'fichier suivant du dossier
Wend
End Sub