TEMAGOULTFARID
XLDnaute Occasionnel
Bonjour,
je recherche une macro qui m'ouvre plusieurs fichier dans le même dossier "Archive"et exécute une macro ci dessous.Cette dernière referme le fichier automatiquement vie la ligne "Call enregistrement"
par avance , merci de votre aide
Sub Impression()
Nomfeuille = "MP " & Range("a3") & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("K18") = "Fiche imprimée"
Else
MsgBox ("La feuille " & Nomfeuille & " n'existe pas.")
End If
Call enregistrement
End Sub
je recherche une macro qui m'ouvre plusieurs fichier dans le même dossier "Archive"et exécute une macro ci dessous.Cette dernière referme le fichier automatiquement vie la ligne "Call enregistrement"
par avance , merci de votre aide
Sub Impression()
Nomfeuille = "MP " & Range("a3") & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("K18") = "Fiche imprimée"
Else
MsgBox ("La feuille " & Nomfeuille & " n'existe pas.")
End If
Call enregistrement
End Sub