Bonsoir à tous
Ci joint un extrait de code :
If Range("MOISPAIE") = "FEVRIER" Then
File = Range("CODESAL").Value
Workbooks.Open Filename:="C:\TOPVER\PAIE\" & File & ".xls"
Range("A14").Select
ActiveCell.Range("A1:AN1").Select
Selection.Copy
Windows("MODELE BS.xls").Activate
Sheets("IMPCUM").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
File = Range("CODESAL").Value
Windows("C:\TOPVER\PAIE\" & File & ".xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("MENU").Select
A l'exécution, la partie en rougene fonctionne pas avec "Erreur 9, l'indice n'appartient pas à la sélection"
En fait j'ai besoin de fermer ce fichier dont le nom est déterminé par une liste déroulante et s'inscrit dans une cellule nommée CODESAL;
Merci pour votre aide
CF0107 NICE
Ci joint un extrait de code :
If Range("MOISPAIE") = "FEVRIER" Then
File = Range("CODESAL").Value
Workbooks.Open Filename:="C:\TOPVER\PAIE\" & File & ".xls"
Range("A14").Select
ActiveCell.Range("A1:AN1").Select
Selection.Copy
Windows("MODELE BS.xls").Activate
Sheets("IMPCUM").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
File = Range("CODESAL").Value
Windows("C:\TOPVER\PAIE\" & File & ".xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("MENU").Select
A l'exécution, la partie en rougene fonctionne pas avec "Erreur 9, l'indice n'appartient pas à la sélection"
En fait j'ai besoin de fermer ce fichier dont le nom est déterminé par une liste déroulante et s'inscrit dans une cellule nommée CODESAL;
Merci pour votre aide
CF0107 NICE