Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné? merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
Jacky
Bonjour
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
Bonjour
Par exemple pour la cellule A1= nom du fichier
'--------------
Sub JJ()
nom = Application.GetOpenFilename("tous les xls " & _
"(*.xls)," & _
"*.xls", , "Ouvrir")
MsgBox "nom complet : " & nom
For I = Len(nom) To 1 Step -1
If Mid$(nom, I, 1) = "" Then Exit For
Next
MsgBox "nom du fichier : " & Mid$(nom, I + 1)
[a1] = Mid$(nom, I + 1)
End Sub
'-----------
Salutations
JJ
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message de
news:F7E886D9-ADB4-4B44-8830-78266416DFF3@microsoft.com...
Comment faire pour récupérer la valeur d'une cellule du fichier
sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de
l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message
de
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
zacariat
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une cellule du fichier sélectionnée et la mettre dans une variable... mais je n'y arrive pas Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une cellule
du fichier sélectionnée et la mettre dans une variable... mais je n'y arrive
pas
Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier
'--------------
Sub JJ()
nom = Application.GetOpenFilename("tous les xls " & _
"(*.xls)," & _
"*.xls", , "Ouvrir")
MsgBox "nom complet : " & nom
For I = Len(nom) To 1 Step -1
If Mid$(nom, I, 1) = "" Then Exit For
Next
MsgBox "nom du fichier : " & Mid$(nom, I + 1)
[a1] = Mid$(nom, I + 1)
End Sub
'-----------
Salutations
JJ
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message de
news:F7E886D9-ADB4-4B44-8830-78266416DFF3@microsoft.com...
Comment faire pour récupérer la valeur d'une cellule du fichier
sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de
l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message
de
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une cellule du fichier sélectionnée et la mettre dans une variable... mais je n'y arrive pas Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
Jacky
Re..... alors ici http://frederic.sigonneau.free.fr/code/Ado/ADOGetValue.txt
JJ
"zacariat" a écrit dans le message de news:
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une cellule
du fichier sélectionnée et la mettre dans une variable... mais je n'y arrive
pas Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de
news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message
de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
Re.....
alors ici
http://frederic.sigonneau.free.fr/code/Ado/ADOGetValue.txt
JJ
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message de
news:EEE70009-5A11-4951-8521-A6DBE9E0DB84@microsoft.com...
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une
cellule
du fichier sélectionnée et la mettre dans une variable... mais je n'y
arrive
pas
Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier
'--------------
Sub JJ()
nom = Application.GetOpenFilename("tous les xls " & _
"(*.xls)," & _
"*.xls", , "Ouvrir")
MsgBox "nom complet : " & nom
For I = Len(nom) To 1 Step -1
If Mid$(nom, I, 1) = "" Then Exit For
Next
MsgBox "nom du fichier : " & Mid$(nom, I + 1)
[a1] = Mid$(nom, I + 1)
End Sub
'-----------
Salutations
JJ
"zacariat" <zacariat@discussions.microsoft.com> a écrit dans le message
de
Re..... alors ici http://frederic.sigonneau.free.fr/code/Ado/ADOGetValue.txt
JJ
"zacariat" a écrit dans le message de news:
En fait je voudrais la syntaxe exacte pour récupérer la valeur d'une cellule
du fichier sélectionnée et la mettre dans une variable... mais je n'y arrive
pas Merci d'avance...
P.S: votre code ne me fait pas ce que je souhaite
Bonjour
Par exemple pour la cellule A1= nom du fichier '-------------- Sub JJ() nom = Application.GetOpenFilename("tous les xls " & _ "(*.xls)," & _ "*.xls", , "Ouvrir") MsgBox "nom complet : " & nom For I = Len(nom) To 1 Step -1 If Mid$(nom, I, 1) = "" Then Exit For Next MsgBox "nom du fichier : " & Mid$(nom, I + 1) [a1] = Mid$(nom, I + 1) End Sub '----------- Salutations JJ
"zacariat" a écrit dans le message de
news:
Comment faire pour récupérer la valeur d'une cellule du fichier sélectionné?
merci d'avance
Bonjour
Il faut regarder du coté de la méthode "GetOpenFilename" de l'application
qui te donne accès a la boite standard d'ouverture de fichier de Windows
Bon courage
C.L.
"zacariat" a écrit dans le message
de
news:
Bonjour,
Je voudrais savoir comment faire pour ouvrir une msgBox qui va me permettre de sélectionner un fichier. Merci d'avance
