Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Bonjour,
Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
synthèse d'un classeur fermé.
Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
valeurs d'une zone nommée d'un fichier fermé.
Voici la macro utilisée :
Sub LitDatas()
Dim Fich$, Arr
Dim NomFichier
Application.Goto Reference:="ZONE"
Selection.ClearContents
NomFichier = Application.GetOpenFilename
On Error Resume Next
Fich = NomFichier
'récup des données à partir de l'adresse d'une plage de cellule s
GetExternalData Fich, "", "synthese", False, Arr
With ThisWorkbook.Sheets("report")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Ar r
End With
End Sub
Cette macro récupère les valeurs des cellules de la zone concernée.
Comment la modifier pour qu'elle me fasse une copie avec liaison de
ladite zone ?
Merci
Re,
ce qui donnerait:
Range("B3:F9").FormulaArray = _
"='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
--
lSteph
On 9 oct, 14:36, "Fredo(67)" wrote:
> Bonjour,
> Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> synthèse d'un classeur fermé.
> Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> valeurs d'une zone nommée d'un fichier fermé.
> Voici la macro utilisée :
> Sub LitDatas()
> Dim Fich$, Arr
> Dim NomFichier
> Application.Goto Reference:="ZONE"
> Selection.ClearContents
> NomFichier = Application.GetOpenFilename
> On Error Resume Next
> Fich = NomFichier
> 'récup des données à partir de l'adresse d'une plage de cellu les
> GetExternalData Fich, "", "synthese", False, Arr
> With ThisWorkbook.Sheets("report")
> .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> End With
> End Sub
> Cette macro récupère les valeurs des cellules de la zone concerné e.
> Comment la modifier pour qu'elle me fasse une copie avec liaison de
> ladite zone ?
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
ce qui donnerait:
Range("B3:F9").FormulaArray = _
"='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
--
lSteph
On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> Bonjour,
> Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> synthèse d'un classeur fermé.
> Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> valeurs d'une zone nommée d'un fichier fermé.
> Voici la macro utilisée :
> Sub LitDatas()
> Dim Fich$, Arr
> Dim NomFichier
> Application.Goto Reference:="ZONE"
> Selection.ClearContents
> NomFichier = Application.GetOpenFilename
> On Error Resume Next
> Fich = NomFichier
> 'récup des données à partir de l'adresse d'une plage de cellu les
> GetExternalData Fich, "", "synthese", False, Arr
> With ThisWorkbook.Sheets("report")
> .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> End With
> End Sub
> Cette macro récupère les valeurs des cellules de la zone concerné e.
> Comment la modifier pour qu'elle me fasse une copie avec liaison de
> ladite zone ?
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
ce qui donnerait:
Range("B3:F9").FormulaArray = _
"='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
--
lSteph
On 9 oct, 14:36, "Fredo(67)" wrote:
> Bonjour,
> Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> synthèse d'un classeur fermé.
> Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> valeurs d'une zone nommée d'un fichier fermé.
> Voici la macro utilisée :
> Sub LitDatas()
> Dim Fich$, Arr
> Dim NomFichier
> Application.Goto Reference:="ZONE"
> Selection.ClearContents
> NomFichier = Application.GetOpenFilename
> On Error Resume Next
> Fich = NomFichier
> 'récup des données à partir de l'adresse d'une plage de cellu les
> GetExternalData Fich, "", "synthese", False, Arr
> With ThisWorkbook.Sheets("report")
> .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> End With
> End Sub
> Cette macro récupère les valeurs des cellules de la zone concerné e.
> Comment la modifier pour qu'elle me fasse une copie avec liaison de
> ladite zone ?
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph <gmlst...@gmail.com> wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph <gmlst...@gmail.com> wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos réponses.
Toutefois,
Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
connaisse l'adresse exacte de l'emplacement du fichier.
pourrait on adapter cela avec le Application.GetOpenFilename que
j'aime beaucoup ?
On 9 oct, 14:58, LSteph wrote:
> Re,
> ce qui donnerait:
> Range("B3:F9").FormulaArray = _
> "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> --
> lSteph
> On 9 oct, 14:36, "Fredo(67)" wrote:
> > Bonjour,
> > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > synthèse d'un classeur fermé.
> > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > valeurs d'une zone nommée d'un fichier fermé.
> > Voici la macro utilisée :
> > Sub LitDatas()
> > Dim Fich$, Arr
> > Dim NomFichier
> > Application.Goto Reference:="ZONE"
> > Selection.ClearContents
> > NomFichier = Application.GetOpenFilename
> > On Error Resume Next
> > Fich = NomFichier
> > 'récup des données à partir de l'adresse d'une plage de cel lules
> > GetExternalData Fich, "", "synthese", False, Arr
> > With ThisWorkbook.Sheets("report")
> > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > End With
> > End Sub
> > Cette macro récupère les valeurs des cellules de la zone concern ée.
> > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > ladite zone ?
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fic hier
& "]" & onglet & "'!" & ChampAlire
End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 oct, 15:03, "Fredo(67)" wrote:
> Merci pour vos réponses.
> Toutefois,
> Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'o n
> connaisse l'adresse exacte de l'emplacement du fichier.
> pourrait on adapter cela avec le Application.GetOpenFilename que
> j'aime beaucoup ?
> On 9 oct, 14:58, LSteph wrote:
> > Re,
> > ce qui donnerait:
> > Range("B3:F9").FormulaArray = _
> > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > --
> > lSteph
> > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > Bonjour,
> > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > > synthèse d'un classeur fermé.
> > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer l es
> > > valeurs d'une zone nommée d'un fichier fermé.
> > > Voici la macro utilisée :
> > > Sub LitDatas()
> > > Dim Fich$, Arr
> > > Dim NomFichier
> > > Application.Goto Reference:="ZONE"
> > > Selection.ClearContents
> > > NomFichier = Application.GetOpenFilename
> > > On Error Resume Next
> > > Fich = NomFichier
> > > 'récup des données à partir de l'adresse d'une plage de c ellules
> > > GetExternalData Fich, "", "synthese", False, Arr
> > > With ThisWorkbook.Sheets("report")
> > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > > End With
> > > End Sub
> > > Cette macro récupère les valeurs des cellules de la zone concer née.
> > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > ladite zone ?
> > > Merci- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fic hier
& "]" & onglet & "'!" & ChampAlire
End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 oct, 15:03, "Fredo(67)" <frederic.s...@socara.net> wrote:
> Merci pour vos réponses.
> Toutefois,
> Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'o n
> connaisse l'adresse exacte de l'emplacement du fichier.
> pourrait on adapter cela avec le Application.GetOpenFilename que
> j'aime beaucoup ?
> On 9 oct, 14:58, LSteph <gmlst...@gmail.com> wrote:
> > Re,
> > ce qui donnerait:
> > Range("B3:F9").FormulaArray = _
> > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > --
> > lSteph
> > On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > > Bonjour,
> > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > > synthèse d'un classeur fermé.
> > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer l es
> > > valeurs d'une zone nommée d'un fichier fermé.
> > > Voici la macro utilisée :
> > > Sub LitDatas()
> > > Dim Fich$, Arr
> > > Dim NomFichier
> > > Application.Goto Reference:="ZONE"
> > > Selection.ClearContents
> > > NomFichier = Application.GetOpenFilename
> > > On Error Resume Next
> > > Fich = NomFichier
> > > 'récup des données à partir de l'adresse d'une plage de c ellules
> > > GetExternalData Fich, "", "synthese", False, Arr
> > > With ThisWorkbook.Sheets("report")
> > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > > End With
> > > End Sub
> > > Cette macro récupère les valeurs des cellules de la zone concer née.
> > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > ladite zone ?
> > > Merci- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fic hier
& "]" & onglet & "'!" & ChampAlire
End Sub
JBhttp://boisgontierjacques.free.fr/
On 9 oct, 15:03, "Fredo(67)" wrote:
> Merci pour vos réponses.
> Toutefois,
> Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'o n
> connaisse l'adresse exacte de l'emplacement du fichier.
> pourrait on adapter cela avec le Application.GetOpenFilename que
> j'aime beaucoup ?
> On 9 oct, 14:58, LSteph wrote:
> > Re,
> > ce qui donnerait:
> > Range("B3:F9").FormulaArray = _
> > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > --
> > lSteph
> > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > Bonjour,
> > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nomm ée
> > > synthèse d'un classeur fermé.
> > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer l es
> > > valeurs d'une zone nommée d'un fichier fermé.
> > > Voici la macro utilisée :
> > > Sub LitDatas()
> > > Dim Fich$, Arr
> > > Dim NomFichier
> > > Application.Goto Reference:="ZONE"
> > > Selection.ClearContents
> > > NomFichier = Application.GetOpenFilename
> > > On Error Resume Next
> > > Fich = NomFichier
> > > 'récup des données à partir de l'adresse d'une plage de c ellules
> > > GetExternalData Fich, "", "synthese", False, Arr
> > > With ThisWorkbook.Sheets("report")
> > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
> > > End With
> > > End Sub
> > > Cette macro récupère les valeurs des cellules de la zone concer née.
> > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > ladite zone ?
> > > Merci- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub LitClasseurFermé()
ChampOuCopier = "A1:B4"
Chemin = ThisWorkbook.Path
Fichier = "BDSource.XLS"
onglet = "Feuil1"
ChampAlire = "A1:B3" ' ou "MaBD"
LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
End Sub
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
"]" & onglet & "'!" & ChampAlire
Range(ChampOuCopier) = Range(ChampOuCopier).Value
End Sub
JB
On 9 oct, 15:31, JB wrote:
> Bonjour,
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & F ichier
> & "]" & onglet & "'!" & ChampAlire
> End Sub
> JBhttp://boisgontierjacques.free.fr/
> On 9 oct, 15:03, "Fredo(67)" wrote:
> > Merci pour vos réponses.
> > Toutefois,
> > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l 'on
> > connaisse l'adresse exacte de l'emplacement du fichier.
> > pourrait on adapter cela avec le Application.GetOpenFilename que
> > j'aime beaucoup ?
> > On 9 oct, 14:58, LSteph wrote:
> > > Re,
> > > ce qui donnerait:
> > > Range("B3:F9").FormulaArray = _
> > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > > --
> > > lSteph
> > > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > > Bonjour,
> > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone no mmée
> > > > synthèse d'un classeur fermé.
> > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > Voici la macro utilisée :
> > > > Sub LitDatas()
> > > > Dim Fich$, Arr
> > > > Dim NomFichier
> > > > Application.Goto Reference:="ZONE"
> > > > Selection.ClearContents
> > > > NomFichier = Application.GetOpenFilename
> > > > On Error Resume Next
> > > > Fich = NomFichier
> > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > With ThisWorkbook.Sheets("report")
> > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Valu e = Arr
> > > > End With
> > > > End Sub
> > > > Cette macro récupère les valeurs des cellules de la zone conc ernée.
> > > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > > ladite zone ?
> > > > Merci- Masquer le texte des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub LitClasseurFermé()
ChampOuCopier = "A1:B4"
Chemin = ThisWorkbook.Path
Fichier = "BDSource.XLS"
onglet = "Feuil1"
ChampAlire = "A1:B3" ' ou "MaBD"
LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
End Sub
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
"]" & onglet & "'!" & ChampAlire
Range(ChampOuCopier) = Range(ChampOuCopier).Value
End Sub
JB
On 9 oct, 15:31, JB <boisgont...@hotmail.com> wrote:
> Bonjour,
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & F ichier
> & "]" & onglet & "'!" & ChampAlire
> End Sub
> JBhttp://boisgontierjacques.free.fr/
> On 9 oct, 15:03, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > Merci pour vos réponses.
> > Toutefois,
> > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l 'on
> > connaisse l'adresse exacte de l'emplacement du fichier.
> > pourrait on adapter cela avec le Application.GetOpenFilename que
> > j'aime beaucoup ?
> > On 9 oct, 14:58, LSteph <gmlst...@gmail.com> wrote:
> > > Re,
> > > ce qui donnerait:
> > > Range("B3:F9").FormulaArray = _
> > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > > --
> > > lSteph
> > > On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > > > Bonjour,
> > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone no mmée
> > > > synthèse d'un classeur fermé.
> > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > Voici la macro utilisée :
> > > > Sub LitDatas()
> > > > Dim Fich$, Arr
> > > > Dim NomFichier
> > > > Application.Goto Reference:="ZONE"
> > > > Selection.ClearContents
> > > > NomFichier = Application.GetOpenFilename
> > > > On Error Resume Next
> > > > Fich = NomFichier
> > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > With ThisWorkbook.Sheets("report")
> > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Valu e = Arr
> > > > End With
> > > > End Sub
> > > > Cette macro récupère les valeurs des cellules de la zone conc ernée.
> > > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > > ladite zone ?
> > > > Merci- Masquer le texte des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub LitClasseurFermé()
ChampOuCopier = "A1:B4"
Chemin = ThisWorkbook.Path
Fichier = "BDSource.XLS"
onglet = "Feuil1"
ChampAlire = "A1:B3" ' ou "MaBD"
LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
End Sub
Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
"]" & onglet & "'!" & ChampAlire
Range(ChampOuCopier) = Range(ChampOuCopier).Value
End Sub
JB
On 9 oct, 15:31, JB wrote:
> Bonjour,
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & F ichier
> & "]" & onglet & "'!" & ChampAlire
> End Sub
> JBhttp://boisgontierjacques.free.fr/
> On 9 oct, 15:03, "Fredo(67)" wrote:
> > Merci pour vos réponses.
> > Toutefois,
> > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l 'on
> > connaisse l'adresse exacte de l'emplacement du fichier.
> > pourrait on adapter cela avec le Application.GetOpenFilename que
> > j'aime beaucoup ?
> > On 9 oct, 14:58, LSteph wrote:
> > > Re,
> > > ce qui donnerait:
> > > Range("B3:F9").FormulaArray = _
> > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9"
> > > --
> > > lSteph
> > > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > > Bonjour,
> > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone no mmée
> > > > synthèse d'un classeur fermé.
> > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupérer les
> > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > Voici la macro utilisée :
> > > > Sub LitDatas()
> > > > Dim Fich$, Arr
> > > > Dim NomFichier
> > > > Application.Goto Reference:="ZONE"
> > > > Selection.ClearContents
> > > > NomFichier = Application.GetOpenFilename
> > > > On Error Resume Next
> > > > Fich = NomFichier
> > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > With ThisWorkbook.Sheets("report")
> > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Valu e = Arr
> > > > End With
> > > > End Sub
> > > > Cette macro récupère les valeurs des cellules de la zone conc ernée.
> > > > Comment la modifier pour qu'elle me fasse une copie avec liaison de
> > > > ladite zone ?
> > > > Merci- Masquer le texte des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut
j'ai récupéré et adapté, cela marche mais
je ne récupère que les valeurs, hors il m'est indispensable de pouvoi r
récupérer la liaison, afin d'avoir un suvi des valeurs en cas de mise
à jour du tableau d'origine.
je pense que c'est là qu'il faut adapter.... -> Range(ChampOuCopier) =
Range(ChampOuCopier).Value
Fred
On 9 oct, 15:40, JB wrote:
> Sub LitClasseurFermé()
> ChampOuCopier = "A1:B4"
> Chemin = ThisWorkbook.Path
> Fichier = "BDSource.XLS"
> onglet = "Feuil1"
> ChampAlire = "A1:B3" ' ou "MaBD"
> LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
> End Sub
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
> "]" & onglet & "'!" & ChampAlire
> Range(ChampOuCopier) = Range(ChampOuCopier).Value
> End Sub
> JB
> On 9 oct, 15:31, JB wrote:
> > Bonjour,
> > Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> > Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier
> > & "]" & onglet & "'!" & ChampAlire
> > End Sub
> > JBhttp://boisgontierjacques.free.fr/
> > On 9 oct, 15:03, "Fredo(67)" wrote:
> > > Merci pour vos réponses.
> > > Toutefois,
> > > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
> > > connaisse l'adresse exacte de l'emplacement du fichier.
> > > pourrait on adapter cela avec le Application.GetOpenFilename que
> > > j'aime beaucoup ?
> > > On 9 oct, 14:58, LSteph wrote:
> > > > Re,
> > > > ce qui donnerait:
> > > > Range("B3:F9").FormulaArray = _
> > > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9 "
> > > > --
> > > > lSteph
> > > > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > > > Bonjour,
> > > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> > > > > synthèse d'un classeur fermé.
> > > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupér er les
> > > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > > Voici la macro utilisée :
> > > > > Sub LitDatas()
> > > > > Dim Fich$, Arr
> > > > > Dim NomFichier
> > > > > Application.Goto Reference:="ZONE"
> > > > > Selection.ClearContents
> > > > > NomFichier = Application.GetOpenFilename
> > > > > On Error Resume Next
> > > > > Fich = NomFichier
> > > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > > With ThisWorkbook.Sheets("report")
> > > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Va lue = Arr
> > > > > End With
> > > > > End Sub
> > > > > Cette macro récupère les valeurs des cellules de la zone co ncernée.
> > > > > Comment la modifier pour qu'elle me fasse une copie avec liaiso n de
> > > > > ladite zone ?
> > > > > Merci- Masquer le texte des messages précédents -
> > > > - Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut
j'ai récupéré et adapté, cela marche mais
je ne récupère que les valeurs, hors il m'est indispensable de pouvoi r
récupérer la liaison, afin d'avoir un suvi des valeurs en cas de mise
à jour du tableau d'origine.
je pense que c'est là qu'il faut adapter.... -> Range(ChampOuCopier) =
Range(ChampOuCopier).Value
Fred
On 9 oct, 15:40, JB <boisgont...@hotmail.com> wrote:
> Sub LitClasseurFermé()
> ChampOuCopier = "A1:B4"
> Chemin = ThisWorkbook.Path
> Fichier = "BDSource.XLS"
> onglet = "Feuil1"
> ChampAlire = "A1:B3" ' ou "MaBD"
> LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
> End Sub
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
> "]" & onglet & "'!" & ChampAlire
> Range(ChampOuCopier) = Range(ChampOuCopier).Value
> End Sub
> JB
> On 9 oct, 15:31, JB <boisgont...@hotmail.com> wrote:
> > Bonjour,
> > Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> > Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier
> > & "]" & onglet & "'!" & ChampAlire
> > End Sub
> > JBhttp://boisgontierjacques.free.fr/
> > On 9 oct, 15:03, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > > Merci pour vos réponses.
> > > Toutefois,
> > > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
> > > connaisse l'adresse exacte de l'emplacement du fichier.
> > > pourrait on adapter cela avec le Application.GetOpenFilename que
> > > j'aime beaucoup ?
> > > On 9 oct, 14:58, LSteph <gmlst...@gmail.com> wrote:
> > > > Re,
> > > > ce qui donnerait:
> > > > Range("B3:F9").FormulaArray = _
> > > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9 "
> > > > --
> > > > lSteph
> > > > On 9 oct, 14:36, "Fredo(67)" <frederic.s...@socara.net> wrote:
> > > > > Bonjour,
> > > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> > > > > synthèse d'un classeur fermé.
> > > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupér er les
> > > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > > Voici la macro utilisée :
> > > > > Sub LitDatas()
> > > > > Dim Fich$, Arr
> > > > > Dim NomFichier
> > > > > Application.Goto Reference:="ZONE"
> > > > > Selection.ClearContents
> > > > > NomFichier = Application.GetOpenFilename
> > > > > On Error Resume Next
> > > > > Fich = NomFichier
> > > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > > With ThisWorkbook.Sheets("report")
> > > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Va lue = Arr
> > > > > End With
> > > > > End Sub
> > > > > Cette macro récupère les valeurs des cellules de la zone co ncernée.
> > > > > Comment la modifier pour qu'elle me fasse une copie avec liaiso n de
> > > > > ladite zone ?
> > > > > Merci- Masquer le texte des messages précédents -
> > > > - Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut
j'ai récupéré et adapté, cela marche mais
je ne récupère que les valeurs, hors il m'est indispensable de pouvoi r
récupérer la liaison, afin d'avoir un suvi des valeurs en cas de mise
à jour du tableau d'origine.
je pense que c'est là qu'il faut adapter.... -> Range(ChampOuCopier) =
Range(ChampOuCopier).Value
Fred
On 9 oct, 15:40, JB wrote:
> Sub LitClasseurFermé()
> ChampOuCopier = "A1:B4"
> Chemin = ThisWorkbook.Path
> Fichier = "BDSource.XLS"
> onglet = "Feuil1"
> ChampAlire = "A1:B3" ' ou "MaBD"
> LitChamp ChampOuCopier, Chemin, Fichier, onglet, ChampAlire
> End Sub
> Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier &
> "]" & onglet & "'!" & ChampAlire
> Range(ChampOuCopier) = Range(ChampOuCopier).Value
> End Sub
> JB
> On 9 oct, 15:31, JB wrote:
> > Bonjour,
> > Sub LitChamp(ChampOuCopier, Chemin, Fichier, onglet, ChampAlire)
> > Range(ChampOuCopier).FormulaArray = "='" & Chemin & "[" & Fichier
> > & "]" & onglet & "'!" & ChampAlire
> > End Sub
> > JBhttp://boisgontierjacques.free.fr/
> > On 9 oct, 15:03, "Fredo(67)" wrote:
> > > Merci pour vos réponses.
> > > Toutefois,
> > > Le ["='c:monrepsousrep[classeur.xls]fiche'!B3:F9"] suppose que l'on
> > > connaisse l'adresse exacte de l'emplacement du fichier.
> > > pourrait on adapter cela avec le Application.GetOpenFilename que
> > > j'aime beaucoup ?
> > > On 9 oct, 14:58, LSteph wrote:
> > > > Re,
> > > > ce qui donnerait:
> > > > Range("B3:F9").FormulaArray = _
> > > > "='c:monrepsousrep[classeur.xls]fiche'!B3:F9 "
> > > > --
> > > > lSteph
> > > > On 9 oct, 14:36, "Fredo(67)" wrote:
> > > > > Bonjour,
> > > > > Je souhaite récupérer AVEC LIAISON, les valeurs d'une zone nommée
> > > > > synthèse d'un classeur fermé.
> > > > > Pour l'instant j'utilise le GETEXTERNALDATA... pour récupér er les
> > > > > valeurs d'une zone nommée d'un fichier fermé.
> > > > > Voici la macro utilisée :
> > > > > Sub LitDatas()
> > > > > Dim Fich$, Arr
> > > > > Dim NomFichier
> > > > > Application.Goto Reference:="ZONE"
> > > > > Selection.ClearContents
> > > > > NomFichier = Application.GetOpenFilename
> > > > > On Error Resume Next
> > > > > Fich = NomFichier
> > > > > 'récup des données à partir de l'adresse d'une plage de cellules
> > > > > GetExternalData Fich, "", "synthese", False, Arr
> > > > > With ThisWorkbook.Sheets("report")
> > > > > .Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Va lue = Arr
> > > > > End With
> > > > > End Sub
> > > > > Cette macro récupère les valeurs des cellules de la zone co ncernée.
> > > > > Comment la modifier pour qu'elle me fasse une copie avec liaiso n de
> > > > > ladite zone ?
> > > > > Merci- Masquer le texte des messages précédents -
> > > > - Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -
> > > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -