copier vers fichiers fermés
Le
gilles
bonjour à tous,
Pour copier des données depuis un fichier fermé ,j'ai
tenté de modifier un code qui m'a été suggéré
(GetValuesFrom)
je l'ai modifié en CopyValuesTo et placé dans la feuille
du fichier ou sont les données , pour les copier vers
plusieurs fichiers fermés
Sub test()
copyValuesToAClosedWorkbook "C:\essai", "PPSPS
TYPE.xls", "info affaire", "B8:H85"
copyValuesToAClosedWorkbook "C:\essai", "PMQ
TYPE.xls", "info affaire", "B8:H85"
End Sub
Sub copyValuesToAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "\[" & fName & "]" & sName
& "'!" & cellRange
.Value = .Value
End With
End Sub
Ca ne fonctionne pas car il écrase les données du fichier
ou sont les données
ça ne vous étonne pas !? moi non plus remarquez, mais si
kekun pouvait m'indiquer ce qui ne va pas , ce serait bien
bien bien
merci d'avance
gilles
Pour copier des données depuis un fichier fermé ,j'ai
tenté de modifier un code qui m'a été suggéré
(GetValuesFrom)
je l'ai modifié en CopyValuesTo et placé dans la feuille
du fichier ou sont les données , pour les copier vers
plusieurs fichiers fermés
Sub test()
copyValuesToAClosedWorkbook "C:\essai", "PPSPS
TYPE.xls", "info affaire", "B8:H85"
copyValuesToAClosedWorkbook "C:\essai", "PMQ
TYPE.xls", "info affaire", "B8:H85"
End Sub
Sub copyValuesToAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "\[" & fName & "]" & sName
& "'!" & cellRange
.Value = .Value
End With
End Sub
Ca ne fonctionne pas car il écrase les données du fichier
ou sont les données
ça ne vous étonne pas !? moi non plus remarquez, mais si
kekun pouvait m'indiquer ce qui ne va pas , ce serait bien
bien bien
merci d'avance
gilles
Poser une question
Essaie ce qui suit :
Attention à l'ordre des arguments.
Dans mon exemple :
C:Excel = chemin
Ado.xls = nom du fichier
Feuil2 = Nom de la feuille du fichier
B8:H85 = Plage à copier
'-----------------------------
Sub test()
copyValuesToAClosedWorkbook "C:Excel", _
"Ado.xls", "Feuil2", "B8:H85"
End Sub
'-----------------------------
Sub copyValuesToAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" & sName & "'!" & cellRange
.Value = .Value
End With
End Sub
'-----------------------------
Salutations!
"gilles" bonjour à tous,
Pour copier des données depuis un fichier fermé ,j'ai
tenté de modifier un code qui m'a été suggéré
(GetValuesFrom)
je l'ai modifié en CopyValuesTo et placé dans la feuille
du fichier ou sont les données , pour les copier vers
plusieurs fichiers fermés
Sub test()
copyValuesToAClosedWorkbook "C:essai", "PPSPS
TYPE.xls", "info affaire", "B8:H85"
copyValuesToAClosedWorkbook "C:essai", "PMQ
TYPE.xls", "info affaire", "B8:H85"
End Sub
Sub copyValuesToAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" & sName
& "'!" & cellRange
.Value = .Value
End With
End Sub
Ca ne fonctionne pas car il écrase les données du fichier
ou sont les données
ça ne vous étonne pas !? moi non plus remarquez, mais si
kekun pouvait m'indiquer ce qui ne va pas , ce serait bien
bien bien...
merci d'avance
gilles
j'essaie ça de suite
à+
$
J'ai essayé le code que tu m'as transmis, que j'ai placé
dans la feuille du fichier ou sont les données
j'ai remplacé
c:excel par D:essai (le repertoire ou se situe le fichier
fermé à compléter)
ado.xls par PPSPS TYPE (le nom du fichier fermé à
compléter)
feuil2 par feuil1
plage idem
Une boite s'affiche qui demande le nom de la feuille du
fichier à compléter, (mais pour y prélever les donnees)
ça écrase les données du fichier d'origine
Peut être que j'ai mal interprété la transposition??
à +
$
Je testé à nouveau les procédures soumises à ton attention et elle fonctionne adéquatement. Il m'est difficile d'en dire plus
sinon de faire attention au copier-coller !
Salutations!
"gilles" re bonjour Michel,
J'ai essayé le code que tu m'as transmis, que j'ai placé
dans la feuille du fichier ou sont les données
j'ai remplacé
c:excel par D:essai (le repertoire ou se situe le fichier
fermé à compléter)
ado.xls par PPSPS TYPE (le nom du fichier fermé à
compléter)
feuil2 par feuil1
plage idem
Une boite s'affiche qui demande le nom de la feuille du
fichier à compléter, (mais pour y prélever les donnees)
ça écrase les données du fichier d'origine
Peut être que j'ai mal interprété la transposition??
à +
$
je vais voir ou j'ai merdoyé
à+
difficile d'en dire plus
$