Contenu récent par safranien

Bonjour wDog66 et CousinHub, merci beaucoup pour vos propositions. Je n'ai jamais utilisé PQ mais je me pencherai sur le sujet un jour 😄 Le code fonctionne, je n'étais pas très loin d'y arriver, il me manquait ce petit coup de pouce salvateur. Pour que ça fonctionne, j'ai juste dû supprimer...

voici l'ensemble. Enregistrer les fichiers 3405 et 3409 dans un dossier nommé datas et dans le code, il faut définir le chemin d'accès où tu auras enregistré le dossier datas pour la variable myfolder : myFolder = "C:\Users\...

Bonjour merci pour ta proposition. Malheureusement, ça ne fonctionne pas. Le code recopie bien le nom du premier fichier ouvert sur les lignes correspondants aux lignes importées mais ensuite ça écrase ces valeurs avec le nom du deuxième fichier ouvert (et ainsi de suite). Pour mieux expliquer...

Bonjour à tous soit le code ci-dessous qui vient ouvrir et copier les données de la feuille Sheets1 de chaque classeur contenus dans un dossier (tous les classeurs n'ont qu'une seule feuille nommée Sheets1). Actuellement ce dernier me recopie le nom du classeur uniquement dans la première...

Bonsoir à tous merci beaucoup Le_Sage pour ton apport sur le sujet. Je comprends donc que ça va être difficile pour ne plus voir ce changement de feuille. Stapple1600, j'avais complètement oublié ce post, tu fais bien de me rafraichir la mémoire. Effectivement, avec cette version de code...

Effectivement, avec ce code test, je n'ai pas d'erreurs et obtient bien les 2 messages box. Je crois que ça va être difficile à moins de tomber sur un membre qui soit également utilisateur de cet add-in. Je continue mes recherches.

Merci Stapple1600 pour le temps que tu consacres à mon problème j'ai tenté ton code mais même résultat que précédemment

d'accord, je citerai pour les prochaines fois. J'ai ajouté Option Base 1 en début de module (avec Option Explicit et Option Private Module déjà présents) et ça ne change rien, je vois toujours le changement de feuille.

bon, l'autre code trouvé est celui-ci que j'appelle dans ma procédure Refresh à la place de toute la partie de code avec les MyRange Sub ResizeAll() Dim addIn As COMAddIn Dim automationObject As Object Set addIn = Application.COMAddIns("PI DataLink") Set automationObject =...

Alors je n'en sais rien du tout. C'est une suite logicielle payée par mon entreprise. J'essaie de trouver des forums pour trouver d'autres codes. Je dois en tester deux trouvés quand je reviendrai des courses 😁 Je tiens au courant.

re ca met met "erreur d'exécution 438 : propriété ou méthode non gérée par cet objet" snif

Bonsoir Stapple1600 merci pour ta proposition que j'ai effectivement déjà essayée mais qui ne fonctionne pas. Bien qu'ayant défini mes MyRange au départ, si je supprime les .Select des MyRange et With wsDatas.Select, le code ne me trouve pas les cellules pour les actualiser, j'ai le message...

Bonjour à tous je sollicite votre aide car je n'arrive pas à résoudre un problème avec un de mes codes. Dans le cadre de mon activité, j'utilise PI DataLink et ai rédigé un code qui me permet de mettre à jour les plages de données liées à PI. Mon problème est qu'à chaque exécution du code, je...

Bonjour job75 merci beaucoup pour votre retour. La modif fonctionne dans le fichier d'essai mais pas dans mon fichier de travail, tout reste à 0. Il doit y avoir qqch qui ne plaît pas. Je vais essayer de trouver ce qui peut provoquer cela. Encore merci à vous et mapomme pour votre aide...

Bonjour à tous navré pour mon retour tardif. @mapomme : après plusieurs essais, votre solution semble fonctionner et apporter les résultats attendus. Merci merci beaucoup. @job75 : votre solution semble également fonctionner mise à part que je suis obligé de ne pas avoir de données dans des...