Variable ne livrant pas son contenu...

Le
paaaul Hors ligne
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 !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23111891
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 !
paaaul Hors ligne
Le #23113751
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
isabelle
Le #23113841
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

michdenis
Le #23113901
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
Publicité
Poster une réponse
Anonyme