Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nom
de fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" a écrit dans le message de
news:bsuc9g$ldv$Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout
de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nom
de fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" <bobo@yahoo.fr> a écrit dans le message de
news:bsuc9g$ldv$1@s1.read.news.oleane.net...
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout
de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nom
de fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" a écrit dans le message de
news:bsuc9g$ldv$Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout
de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Merci de ta réponse, mais je ne comprends pas tout.
Question bête, comment tu l'utilise cette fonction?
Aurais tu un exemple d'application? (plus particulièrement avec la méthode
close de Workbooks)
"John Fuss" a écrit dans le message news:
bsucjm$ljh$ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nomde fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" a écrit dans le message de
news:bsuc9g$ldv$Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur
Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la
dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le
bout
decode
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Merci de ta réponse, mais je ne comprends pas tout.
Question bête, comment tu l'utilise cette fonction?
Aurais tu un exemple d'application? (plus particulièrement avec la méthode
close de Workbooks)
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message news:
bsucjm$ljh$1@s1.read.news.oleane.net...
ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nom
de fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" <bobo@yahoo.fr> a écrit dans le message de
news:bsuc9g$ldv$1@s1.read.news.oleane.net...
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur
Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la
dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le
bout
de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Merci de ta réponse, mais je ne comprends pas tout.
Question bête, comment tu l'utilise cette fonction?
Aurais tu un exemple d'application? (plus particulièrement avec la méthode
close de Workbooks)
"John Fuss" a écrit dans le message news:
bsucjm$ljh$ta variable fichier_source contient le chemin, Excel n'en veux pas via
Workbooks() donc il faut t'en debarassé, je regarde si j'ai encore ma
fonction.....
Public Enum FileInfo 'Constantes pour spécifier les infos à obtenir d'un
nomde fichier
Chemin = 0
Nom = 1
Extension = 2
NomComplet = 3
End Enum
Public Function GetFileInfo(fichier As String, InfoNeeded As FileInfo,
Optional AvecSlash As Boolean = True) As String
Dim poz As Integer, ext As String, name As String, Path As String
Dim i As Integer
On Error Resume Next
ext = ""
For i = Len(fichier) To 1 Step -1
If Mid(fichier, i, 1) = "." And ext = "" Then
poz = i
ext = Right(fichier, Len(fichier) - i)
ElseIf Mid(fichier, i, 1) = "" Then
name = Mid(fichier, i + 1, Len(fichier) - i - Len(ext) - 1)
If AvecSlash Then
Path = Left(fichier, i)
Else
Path = Left(fichier, i - 1)
End If
Exit For
End If
Next
If name = "" Then name = Left(fichier, Len(fichier) - Len(ext) - 1)
Select Case InfoNeeded
Case Chemin
GetFileInfo = Path
Case Nom
GetFileInfo = name
Case Extension
GetFileInfo = ext
Case NomComplet
GetFileInfo = name & "." & ext
End Select
End Function
Voili-voilou
John
"bob" a écrit dans le message de
news:bsuc9g$ldv$Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur
Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la
dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le
bout
decode
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
Bonjour,
j'ai un problème pour fermer un classeur à l'aide de VBA
Voilà mon code
****************************************************************************
*****
fichier_source = Application.GetOpenFilename(filefilter:="Classeur Excel
(*.xls),*.xls", filterindex:=2, _
Title:="Fichier source pour l'import", MultiSelect:úlse)
' on teste si le classeur est déjà ouvert
If IsFileOpen(fichier_source) Then
MsgBox "Le classeur demandé est en cours d'utilisation"
Else
MsgBox "Le classeur demandé n'est pas encoure ouvert"
Workbooks.Open fichier_source
ThisWorkbook.Activate
End If
.......
' A la fin on ferme le classeur source
MsgBox "on ferme le classeur source : " & fichier_source
Workbooks(fichier_source).Close SaveChanges:úlse
****************************************************************************
******
En fait l'ouverture d'un classeur se fait correctement, mais la dernière
partie ne marche (fermeture du classeur ouvert).
J'ai un message "l'indice n'appartient à la sélection" et c'est le bout de
code
Workbooks(fichier_source).Close SaveChanges:úlse
quui est incriminé.
Quelqu'un aurait-il une idée?
Merci d'avance et bonne année !
