Foufoudora
XLDnaute Occasionnel
Bonjour le forum,
je rencontre 2 problemes avec le code suivant:
le code verifie a l'ouverture du FileSouce si un fichier existe:
1- si le fichier n'existe pas il le cree par contre il m'envoie un code erreur '9' subscipt out of range sur la ligne en rouge dans le code.
2- si le fichier existe il ouvre le fichier mais ne ferme pas le fichier source.
Merci par avance de m'eclairer sur ces 2 problemes
Salutations
Private Sub Workbook_Open()
Dim fso As Object, x As Boolean
Dim RepSource As String, FileSource As String
Set fso = CreateObject("Scripting.FileSystemObject")
RepSource = ThisWorkbook.Path
FileSource = ThisWorkbook.Name
x = fso.FileExists(RepSource & "\" & Application.UserName & ".xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If x = True Then
Workbooks.Open (RepSource & "\" & Application.UserName & ".xls")
Workbooks(FileSource).Close
Else
ActiveWorkbook.SaveAs (RepSource & "\" & Application.UserName & ".xls")
'Workbooks(FileSource).Activate
Workbooks(FileSource).Close
End If
Application.DisplayAlerts = True
Sheets("Instructions").Activate
End Sub
je rencontre 2 problemes avec le code suivant:
le code verifie a l'ouverture du FileSouce si un fichier existe:
1- si le fichier n'existe pas il le cree par contre il m'envoie un code erreur '9' subscipt out of range sur la ligne en rouge dans le code.
2- si le fichier existe il ouvre le fichier mais ne ferme pas le fichier source.
Merci par avance de m'eclairer sur ces 2 problemes
Salutations
Private Sub Workbook_Open()
Dim fso As Object, x As Boolean
Dim RepSource As String, FileSource As String
Set fso = CreateObject("Scripting.FileSystemObject")
RepSource = ThisWorkbook.Path
FileSource = ThisWorkbook.Name
x = fso.FileExists(RepSource & "\" & Application.UserName & ".xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If x = True Then
Workbooks.Open (RepSource & "\" & Application.UserName & ".xls")
Workbooks(FileSource).Close
Else
ActiveWorkbook.SaveAs (RepSource & "\" & Application.UserName & ".xls")
'Workbooks(FileSource).Activate
Workbooks(FileSource).Close
End If
Application.DisplayAlerts = True
Sheets("Instructions").Activate
End Sub
Dernière édition: