Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une
ligne je puisse copier-coller des valeurs dans les lignes qui suivent
à partir d'un fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du
type "Projet XXX", il faudrait que le programme importe des valeurs
dans les cellules B2, B3, B4, etc, contenu dans différentes cellules
d'un autre fichier excel du nom de la variable que j'aurai alors
rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une
ligne je puisse copier-coller des valeurs dans les lignes qui suivent
à partir d'un fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du
type "Projet XXX", il faudrait que le programme importe des valeurs
dans les cellules B2, B3, B4, etc, contenu dans différentes cellules
d'un autre fichier excel du nom de la variable que j'aurai alors
rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une
ligne je puisse copier-coller des valeurs dans les lignes qui suivent
à partir d'un fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du
type "Projet XXX", il faudrait que le programme importe des valeurs
dans les cellules B2, B3, B4, etc, contenu dans différentes cellules
d'un autre fichier excel du nom de la variable que j'aurai alors
rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
J'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
J'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
J'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGI
J'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Il y a cependant une erreur de compilation que je n'arrive pas à résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Il y a cependant une erreur de compilation que je n'arrive pas à résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGI
J'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.
Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
Il y a cependant une erreur de compilation que je n'arrive pas à résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce n'est pas du
tout ce qu'il me faut en fait: premièrement il faudrait que quand je tape ma
variable dans la première cellule et que je la valide, le programme copie
directement les cellules du fichier fermé dans les cellules en dessous de la
première cellule et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un seul
fichier, par exemple quand je tape FGH87 dans B1, il faudrait qu'il copie les
cellules H5 à H9 du fichier fermé : "SourceComptaProjet FGH87" (par
exemple) à la place des cellules B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en fonction
de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu dans une ligne
je puisse copier-coller des valeurs dans les lignes qui suivent à partir d'un
fichier qui porte le nom de ma variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un nom du type
"Projet XXX", il faudrait que le programme importe des valeurs dans les
cellules B2, B3, B4, etc, contenu dans différentes cellules d'un autre
fichier excel du nom de la variable que j'aurai alors rentrée en B1.
Par où commencer?
pour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGIIl y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?
pour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGI
Il y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGI
J'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.
Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?
pour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGIIl y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?
Oupss renommer la feuil1 en titopour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGIIl y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?
Oupss renommer la feuil1 en tito
pour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGI
Il y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
si on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGI
J'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.
Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?
Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGI
Bonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?
Oupss renommer la feuil1 en titopour ex
créer un fichier machin.xls
avec des données en A1
des données en B1
et des données en C1
le sauvegarder sur C:
fermer ce fichier
et lancer celui-ci
http://cjoint.com/?htr0hB48BR
se placer dans la feuil1 et se mettre en A1 par ex
faire Alt + f8 et executer la macro
les données devraient s'inscrire si pas d'erreur en A1, B1,C1
RGIIl y a cependant une erreur de compilation que je n'arrive pas à
résoudre:
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValuesi on reprend le code de Papou Merci à lui
Private Function GetValue(path, file, sheet, ref) As String
'path: The drive and path to the closed file (e.g., "d:files")
'file: The workbook name (e.g., "99budget.xls")
'sheet: The worksheet name (e.g., "Sheet1")
'ref: The cell reference (e.g., "C4")
Dim arg As String
On Error GoTo HandleErr
'Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
ExitHere:
Exit Function
HandleErr:
Select Case Err.Number
Case 13
MsgBox "La feuille " & sheet & " n'existe pas !"
End
Case Else
MsgBox "Erreur " & Err.Number & ": " & Err.Description, vbCritical,
"Module1.GetValue" 'Gestionnaire d'erreurs:$$N=Module1.GetValue
End Select
End Function
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim a As String
p = "D:SourceCompta"
f = [b1] &".xls"
s = "Feuil1"
a = "A1"
MsgBox GetValue(p, f, s, a)
' la valeur de cette fonction on peut maintenant la placer dans une
cellule de la feuille du classeur actif
'ici dans la cellule active
ActiveCell = GetValue(p, f, s, a)
End Sub
ensuite suivre l'envoi précédent
RGIJ'ai essayé le code de l'adresse que vous m'avez donné mais ce
n'est pas du tout ce qu'il me faut en fait: premièrement il
faudrait que quand je tape ma variable dans la première cellule et
que je la valide, le programme copie directement les cellules du
fichier fermé dans les cellules en dessous de la première cellule
et pas dans une msgbox.
Pouvez vous m'expliquer déjà comment faire sans variable: avec un
seul fichier, par exemple quand je tape FGH87 dans B1, il faudrait
qu'il copie les cellules H5 à H9 du fichier fermé :
"SourceComptaProjet FGH87" (par exemple) à la place des cellules
B2 à B5 de mon fichier ouvert.
Merci d'avance.Merci mais je ne veux pas que mes valeurs s'affichent dans une
msgbox.
Je sais copier des valeurs d'une cellule mais comment le faire en
fonction de la variable que je vous ai indiqué tout à l'heure?Bonjour
Pour commencer
http://www.excelabo.net/xl/messages.php#top
Salutations
RGIBonjour, je voudrais qu'en fonction d'une variable X contenu
dans une ligne je puisse copier-coller des valeurs dans les
lignes qui suivent à partir d'un fichier qui porte le nom de ma
variable X.
Exemple: Lorsque par exemple je taperais dans la cellule B1 un
nom du type "Projet XXX", il faudrait que le programme importe
des valeurs dans les cellules B2, B3, B4, etc, contenu dans
différentes cellules d'un autre fichier excel du nom de la
variable que j'aurai alors rentrée en B1.
Par où commencer?