Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 36ECD07F-F86E-4548-B3C4-F4B19C163BE5@microsoft.com...
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 36ECD07F-F86E-4548-B3C4-F4B19C163BE5@microsoft.com...
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: C81BC69A-6E34-40E5-B900-37A8CBD7A86A@microsoft.com...
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 36ECD07F-F86E-4548-B3C4-F4B19C163BE5@microsoft.com...
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore !!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: C81BC69A-6E34-40E5-B900-37A8CBD7A86A@microsoft.com...
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 36ECD07F-F86E-4548-B3C4-F4B19C163BE5@microsoft.com...
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news:
B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Pourquoi ne pas publier l'intégralité de ta macro ?
Salutations!
"rick" a écrit dans le message de news:
l'execution de la macro met toujours autant de temps, meme avec ces lignes.
le sablier, est toujours présent?
je ne compren,d pas ?
merci d'avanceBonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Pourquoi ne pas publier l'intégralité de ta macro ?
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: C82070CB-084D-44CC-A96B-EB6A990F4A4C@microsoft.com...
l'execution de la macro met toujours autant de temps, meme avec ces lignes.
le sablier, est toujours présent?
je ne compren,d pas ?
merci d'avance
Bonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: C81BC69A-6E34-40E5-B900-37A8CBD7A86A@microsoft.com...
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avance
Bonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 36ECD07F-F86E-4548-B3C4-F4B19C163BE5@microsoft.com...
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avance
Bonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 229ACB27-AD35-474B-BCCB-412FF3E6CA66@microsoft.com...
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merci
Bonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news:
B75DE0CC-A80B-4C77-A535-4EC26BDDB9DB@microsoft.com...
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
Pourquoi ne pas publier l'intégralité de ta macro ?
Salutations!
"rick" a écrit dans le message de news:
l'execution de la macro met toujours autant de temps, meme avec ces lignes.
le sablier, est toujours présent?
je ne compren,d pas ?
merci d'avanceBonjour Rick,
Introduit ceci dans ta procédure :
Place ceci avant d'exécuter la ligne de code
'------------------------------
Dim Kal As Long
Kal = Application.Calculation
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'------------------------------
LaLigneDeCode
'Après la ligne de code
'----------------------------
Application.Calculation = Kal
Application.EnableEvents = True
'----------------------------
Salutations!
"rick" a écrit dans le message de news:
je parle de la macro de ce fil, car sur mon classeur, je copie environ 7
feuilles,
et pour enlever les liens cela met un temps fou?
je ne comprend pas pourquoi?
mes liens sont sur 450 lignes, comemnt accelerer la macro.
merci d'avanceBonjour Rick,
Je ne sais pas de quelle macro que tu parles, mais celle que je propose sur ce fil, ne prend pas plus d'une seconde et encore
!!!
Salutations!
"rick" a écrit dans le message de news:
bonjour,
la macro fonctionne mais les temps d'executions sont très long, ce qui me
genere des message de memoire inssufisante, comment faire pour le limiter à
450 lignes seulement?
ainsi la macro va scruter seulement 450 ligne.s
Cela sera sans doute moins long?
merci d'avanceBonjour Rick,
Après la section qui copie les données d'un classeur à l'autre. Quand le tout le processus de la copie est terminée, tu
insères
la
ligne de code. .Évidemment, les 2 classeurs doivent être ouverts.
Salutations!
"rick" a écrit dans le message de news:
merci j'essaie et je te tiens au courant,
mais a quelle niveau de mon programme, je doit mettre
cette ligne: ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
merciBonjour Rick,
Pour briser les liens après avoir importé des plages de cellules :
Tu inscris dans ta procédure d'importation des données cette ligne de code après que l'importation ait été effectuée
Workbooks("classeur1.xls") = Représente le classeur source d'où les données importées sont issues
ThisWorkbook = Représente le classeur de destination vers où les données ont été copiées.
IMPORTANT : Les 2 paramètres de la procédure appelée doivent être des objets représentants des classeurs. Il existe
différentes
possibilités comme dans mon exemple, ou en utilisant des VARIABLES DÉCLARÉES AS WORKBOOK qui pointent sur les 2 classeurs
impliqués
dans la transaction.
'Voici la ligne de commande à inscrire dans ton code
ModifierLiens Workbooks("classeur1.xls"), ThisWorkbook
à copier dans un module standard.
'-----------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = WkSource.FullName Then
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
End If
Next
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
Bonjour,
une fois que j'importe d'un fichier source(test1.xls) à un fichier de
destination(test2.xls).
comment enlever via une macro: le lien que j'ai dans les cellules du
classeur de destination
=[test1.xls]feuil1!S17
apres l'import je souhaite avoir
þuil1!S17
merci d'avance
