J'ai des problèmes avec la commande GETOBJECT.
Je veux mettre des données à jour dans un autre fichier que mon fichier
actif.
J'applique ce que je trouve dans les bouquins.
Résultat: Ca marche quand ça veut.
le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou
s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = GetObject("C:\documents\indic7.xls")
J'ai des problèmes avec la commande GETOBJECT. Je veux mettre des données à jour dans un autre fichier que mon fichier actif. J'applique ce que je trouve dans les bouquins. Résultat: Ca marche quand ça veut. le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
"TOTO" <johnsteed00@hotmail.com> a écrit dans le message de news:Xns940081AEBE28Ftoto@193.252.19.141...
Bonjour.
J'ai des problèmes avec la commande GETOBJECT.
Je veux mettre des données à jour dans un autre fichier que mon fichier
actif.
J'applique ce que je trouve dans les bouquins.
Résultat: Ca marche quand ça veut.
le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou
s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
J'ai des problèmes avec la commande GETOBJECT. Je veux mettre des données à jour dans un autre fichier que mon fichier actif. J'applique ce que je trouve dans les bouquins. Résultat: Ca marche quand ça veut. le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
Tu peux ouvrir un fichier et travailler dedans sans passer par une méthode OLE comme GetObject (dont le rôle est plutôt d'accéder à une autre application ou à une autre instance d'Excel). Dans l'instance courante, les instructions VBA ci-dessous devraient faire le travail que tu souhaites :
Sub Test Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = Workbooks.Open ("C:documentsindic7.xls") Objetclasseur1.Sheets("DONNEES").Range("A1:d80").Value = _ ThisWorkbook.Sheets("STAT").Range("a1:d80").Value Objetclasseur1.Close True End Sub
J'ai supposé que la feuille STAT appartient au classeur où ce code est écrit et exécuté. Si ce n'est pas le cas, remplace ThisWorkbook par Worbooks("xxx") où xxx est le nom du classeur qui contient la feuille STAT.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour.
J'ai des problèmes avec la commande GETOBJECT. Je veux mettre des données à jour dans un autre fichier que mon fichier actif. J'applique ce que je trouve dans les bouquins. Résultat: Ca marche quand ça veut. le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
Tu peux ouvrir un fichier et travailler dedans sans passer par une méthode OLE
comme GetObject (dont le rôle est plutôt d'accéder à une autre application ou à
une autre instance d'Excel). Dans l'instance courante, les instructions VBA
ci-dessous devraient faire le travail que tu souhaites :
Sub Test
Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = Workbooks.Open ("C:documentsindic7.xls")
Objetclasseur1.Sheets("DONNEES").Range("A1:d80").Value = _
ThisWorkbook.Sheets("STAT").Range("a1:d80").Value
Objetclasseur1.Close True
End Sub
J'ai supposé que la feuille STAT appartient au classeur où ce code est écrit et
exécuté. Si ce n'est pas le cas, remplace ThisWorkbook par Worbooks("xxx") où
xxx est le nom du classeur qui contient la feuille STAT.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour.
J'ai des problèmes avec la commande GETOBJECT.
Je veux mettre des données à jour dans un autre fichier que mon fichier
actif.
J'applique ce que je trouve dans les bouquins.
Résultat: Ca marche quand ça veut.
le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou
s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
Tu peux ouvrir un fichier et travailler dedans sans passer par une méthode OLE comme GetObject (dont le rôle est plutôt d'accéder à une autre application ou à une autre instance d'Excel). Dans l'instance courante, les instructions VBA ci-dessous devraient faire le travail que tu souhaites :
Sub Test Dim Objetclasseur1 As Workbook
Set Objetclasseur1 = Workbooks.Open ("C:documentsindic7.xls") Objetclasseur1.Sheets("DONNEES").Range("A1:d80").Value = _ ThisWorkbook.Sheets("STAT").Range("a1:d80").Value Objetclasseur1.Close True End Sub
J'ai supposé que la feuille STAT appartient au classeur où ce code est écrit et exécuté. Si ce n'est pas le cas, remplace ThisWorkbook par Worbooks("xxx") où xxx est le nom du classeur qui contient la feuille STAT.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour.
J'ai des problèmes avec la commande GETOBJECT. Je veux mettre des données à jour dans un autre fichier que mon fichier actif. J'applique ce que je trouve dans les bouquins. Résultat: Ca marche quand ça veut. le deuxième fichier reste souvent illisible. Plus moyen de l'ouvrir ou s'il est ouvert il est n'apparait pas.
je change de fichier parfois ça marche et cela recommence.
Dim Objetclasseur1 As Workbook Set Objetclasseur1 = GetObject("C:documentsindic7.xls")
