Bonjour,
J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string
Dim Wk as Workbook
Varpath = "D:\Bateau_2011\GC1.xls"
Set Wk = Workbooks(varpath)
If Wk is nothing
Workbooks.Open Varpath
else
SetWk =Nothing
Endif
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
Comme ceci :
'--------------------------------- Sub testse()
Dim VarPath As String Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Bonjour,
Comme ceci :
'---------------------------------
Sub testse()
Dim VarPath As String
Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then
Set Wk = Workbooks(VarPath)
MsgBox Wk.Name
Else
MsgBox "Le fichier """ & VarPath & """ n'existe pas."
End If
End Sub
'---------------------------------
MichD
--------------------------------------------
"paaaul" a écrit dans le message de groupe de discussion : Kpadnct-GuwhxcnQRVn_vwA@giganews.com...
Bonjour,
J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car
lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string
Dim Wk as Workbook
Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath)
If Wk is nothing
Workbooks.Open Varpath
else
SetWk =Nothing
Endif
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
paaaul
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'--------------------------------- Sub testse()
Dim VarPath As String Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !
Merci encore
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'---------------------------------
Sub testse()
Dim VarPath As String
Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then
Set Wk = Workbooks(VarPath)
MsgBox Wk.Name
Else
MsgBox "Le fichier """ & VarPath &
""" n'existe pas."
End If
End Sub
'---------------------------------
MichD
--------------------------------------------
"paaaul" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai un problème avec la valeur Wk qui demeure toujours à
"Nothing", car
lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à
nouveau ...
Dim varpath as string
Dim Wk as Workbook
Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath)
If Wk is nothing
Workbooks.Open Varpath
else
SetWk =Nothing
Endif
Merci de votre aide !
Merci
D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier
À la ligne de commande, set Wk = Workbooks(VarPath)
j'obtiens le message:
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Je ne comprends pas !
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !
Merci encore
isabelle
bonjour paul,
il manque un Varpath = "D:Bateau_2011GC1.xls"
Varpath = "D:Bateau_2011GC1.xls"
isabelle
Le 2011-02-11 09:00, paaaul a écrit :
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'--------------------------------- Sub testse()
Dim VarPath As String Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath)<> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """& VarPath& """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !
Merci encore
bonjour paul,
il manque un Varpath = "D:Bateau_2011GC1.xls"
Varpath = "D:Bateau_2011GC1.xls"
isabelle
Le 2011-02-11 09:00, paaaul a écrit :
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'---------------------------------
Sub testse()
Dim VarPath As String
Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath)<> "" Then
Set Wk = Workbooks(VarPath)
MsgBox Wk.Name
Else
MsgBox "Le fichier """& VarPath&
""" n'existe pas."
End If
End Sub
'---------------------------------
MichD
--------------------------------------------
"paaaul" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai un problème avec la valeur Wk qui demeure toujours à
"Nothing", car
lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à
nouveau ...
Dim varpath as string
Dim Wk as Workbook
Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath)
If Wk is nothing
Workbooks.Open Varpath
else
SetWk =Nothing
Endif
Merci de votre aide !
Merci
D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier
À la ligne de commande, set Wk = Workbooks(VarPath)
j'obtiens le message:
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Je ne comprends pas !
If Dir(VarPath)<> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """& VarPath& """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !
Merci encore
michdenis
A ) Dans le haut du module, tu devrais inscrire Option Explicit Si tu fais une faute d'orthographe dans la nomenclature des variables de tes procédures, tu auras un message à cet effet.
B ) Si tu as copié la macro que je t'ai donnée, le message que tu as n'a pas de sens. Le test à savoir si le fichier existe bien que non essentiel permet de voir rapidement si la procédure peut retrouver le fichier et encore là, si dans le nom du classeur, il y a une faute d'orthographe, une mauvaise extension du fichier (.xls au lieu de .xlsm par exemple), tu reçois un message approprié.
C ) L'erreur 9 est générée lorsqu'une commande d'une procédure pointe vers un objet qui n'existe pas. Exemple : Sheets("MichD").select , si aucune feuille de calcul ne porte ce nom, l'erreur est générée.
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'--------------------------------- Sub testse()
Dim VarPath As String Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !
Merci encore
A ) Dans le haut du module, tu devrais inscrire
Option Explicit
Si tu fais une faute d'orthographe dans la nomenclature
des variables de tes procédures, tu auras un message à cet
effet.
B ) Si tu as copié la macro que je t'ai donnée, le message que tu
as n'a pas de sens. Le test à savoir si le fichier existe bien que
non essentiel permet de voir rapidement si la procédure peut
retrouver le fichier et encore là, si dans le nom du classeur, il y
a une faute d'orthographe, une mauvaise extension du fichier
(.xls au lieu de .xlsm par exemple), tu reçois un message approprié.
C ) L'erreur 9 est générée lorsqu'une commande d'une procédure pointe
vers un objet qui n'existe pas. Exemple : Sheets("MichD").select , si aucune
feuille de calcul ne porte ce nom, l'erreur est générée.
MichD
--------------------------------------------
"paaaul" a écrit dans le message de groupe de discussion : vbedna4M2OKZ3MjQRVn_vwA@giganews.com...
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'---------------------------------
Sub testse()
Dim VarPath As String
Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then
Set Wk = Workbooks(VarPath)
MsgBox Wk.Name
Else
MsgBox "Le fichier """ & VarPath &
""" n'existe pas."
End If
End Sub
'---------------------------------
MichD
--------------------------------------------
"paaaul" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai un problème avec la valeur Wk qui demeure toujours à
"Nothing", car
lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à
nouveau ...
Dim varpath as string
Dim Wk as Workbook
Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath)
If Wk is nothing
Workbooks.Open Varpath
else
SetWk =Nothing
Endif
Merci de votre aide !
Merci
D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier
À la ligne de commande, set Wk = Workbooks(VarPath)
j'obtiens le message:
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Je ne comprends pas !
A ) Dans le haut du module, tu devrais inscrire Option Explicit Si tu fais une faute d'orthographe dans la nomenclature des variables de tes procédures, tu auras un message à cet effet.
B ) Si tu as copié la macro que je t'ai donnée, le message que tu as n'a pas de sens. Le test à savoir si le fichier existe bien que non essentiel permet de voir rapidement si la procédure peut retrouver le fichier et encore là, si dans le nom du classeur, il y a une faute d'orthographe, une mauvaise extension du fichier (.xls au lieu de .xlsm par exemple), tu reçois un message approprié.
C ) L'erreur 9 est générée lorsqu'une commande d'une procédure pointe vers un objet qui n'existe pas. Exemple : Sheets("MichD").select , si aucune feuille de calcul ne porte ce nom, l'erreur est générée.
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
michdenis a écrit le 10/02/2011 à 23h15 :
Bonjour,
Comme ceci :
'--------------------------------- Sub testse()
Dim VarPath As String Dim Wk As Workbook
VarPath = "D:Bateau_2011GC1.xls"
If Dir(VarPath) <> "" Then Set Wk = Workbooks(VarPath) MsgBox Wk.Name Else MsgBox "Le fichier """ & VarPath & """ n'existe pas." End If End Sub '---------------------------------
MichD -------------------------------------------- "paaaul" a écrit dans le message de groupe de discussion :
Bonjour, J'ai un problème avec la valeur Wk qui demeure toujours à "Nothing", car lorsque le fichier est déjà ouvert, Excel veut l'ouvrir à nouveau ...
Dim varpath as string Dim Wk as Workbook Varpath = "D:Bateau_2011GC1.xls"
Set Wk = Workbooks(varpath) If Wk is nothing Workbooks.Open Varpath else SetWk =Nothing Endif
Merci de votre aide !
Merci D:Bateau_2011GC1.xls existe toujours, pas besoin de vérifier À la ligne de commande, set Wk = Workbooks(VarPath) j'obtiens le message:
Erreur d'exécution "9" L'indice n'appartient pas à la sélection. Je ne comprends pas !