Discussion :

[Qwazerty]

Salut

J'avais écrit un 1er message mais j'avais mal lu le message que vous aviez.

Il existe un moyen de ne plus afficher ce message c'est ici

Dans Excel 2007+ Bandeau "Données", groupe "Connexions", bouton "Modifier les liens d'accès".
Sur la fenêtre qui s'ouvre, en bas à gauche le bouton Invite de démarrage...


Il suffit de choisir la dernière option proposée.

++
Qwaz

[antoinepoirier]

Merci pour ta réponse Qwazerty,

En faite, j'utilises Excel 2003. De plus, je dois ouvrir des fichiers dans un répertoire, automatiquement... Donc je ne peux pas aller dans les options de chaque fichier et les désactiver manuellement, cela doit être fait automatiquement

Tamtam64,

Oui ça doit être ça... À ce moment, si on ne peut pas les désactiver, peut-on faire une commande automatique au début de la séquence pour accepter de "mettre à jour" ou "Ne pas mettre à jour" ?

Merci à vous deux c'est sympa

[tamtam64]

Je ne pense pas malheureusement, en tout cas pas a ma connaissance dsl .
Attend d'autres aides de personnes plus competentes que moi , peut etre c'est possible mais j'en doute. essaye de faire ce que quazerty te dis avec l'enregistreur de macro pour tester

[Qwazerty]

Salut

Ok, je ne pensais pas aux fichiers qui devaient être ouverts.

Par contre, toujours dans Excel 2007 mais je suis sur que l'option existe aussi dans les versions précédentes (google), il y a ceci

"Confirmation de la mise à jour auto des liens", je pense que ça vaut le coup d'essayer.

Bonne journée
++
Qwaz

[antoinepoirier]

D'accord Tamtam, je crois que je vais me résilier à accepter manuellement...

Merci Qwaz, j'ai trouvé l'option mais elle n'a rien changé à l'oeil nu

En passant les mecs, depuis le début je tiens à faire un collage spécial mais je viens de me rendre compte que la mise en forme dans la photo n'est pas écrasée par mon collage spécial... Je souhaite qu'elle disparaisse. (Je parle de la section " Paramètres Standards " ainsi que la ligne autour). C'est une option spéciale qui a été mise là. EDIT : cette mise en forme n'apparaît pas dans tous les fichiers

Vous avez une idée ?

[Qwazerty]

SAlut

Étonnant pour l'option.

Pour ce qui est de ta mise en page, elle ne serait pas faite avec une Mise En Forme Conditionnelle par hasard? La mise en forme évolue en fonction du contenu des cellule ?

Tu veux copier tes données avec ou sans mise en forme je ne comprends pas trop car si tu fait un .copy .past (ou juste un copy avec les bons paramètres d'ailleurs) normalement il copie l’intégralité données + mise en forme.

++
Qwaz

[antoinepoirier]

Salut,

En fait, l'option s'appelle une "Zone de Groupe". Je désire l'écraser afin de remplacer la mise en page avec une autre mise en page. Lorsque je .copy .specialpaste cela fonctionne dans tous mes fichiers sauf celui avec la "Zone de Groupe". Il reste en place donc ça donne un résultat de 2 mises en pages une par-dessus l'autre... Pas pratique :p

[Qwazerty]

Salut

Si je comprends bien, il y a une Zone de groupe sur ton fichier de destination c'est bien ça?

Si c'est ça la zone de groupe est un composant, il ne peut pas être détruit via un past.
Il faut le supprimer via ton code VBA, il doit apparaitre comme étant un shape, la difficulté sera de trouver le bon shape s'il y en a plusieurs sur ta feuille. Il est possible de l'identifier par rapport aux cellules qui se trouvent en dessous de lui, ça peut-être une piste.

Dis moi.

++
Qwaz

[antoinepoirier]

Ah d'accord !

Alors, y a-t-il moyen de faire une maccro qui supprime la shape lorsqu'elle en trouve une ? (je vais chercher son nom)

Tu vois ce que je veux dire ?

[tototiti2008]

Bonsoir à tous,

Alors, y a-t-il moyen de faire une maccro qui supprime la shape lorsqu'elle en trouve une ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.DrawingObjects.Delete

A utiliser en connaissance de cause , ça supprime tous les objets

[antoinepoirier]

Salut Tototiti, merci pour ta réponse !

Un détail qui n'a pas été dit : ma feuille contient plusieurs "shape" mais il n'y en a qu'une que je veux supprimer... Je crois que j'ai réussi à l'identifier. Il me reste qu'à trouver une commande qui la supprimera... Je pourrais me baser sur ta commande mais en sélectionner qu'une shape ?

Merci à tous votre aide est précieuse !

[tototiti2008]

Bonjour,

Si tu connais le nom du shape concerné (Selection.name devrait te le donner si tu le sélectionnes) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes("Oval 1").Delete

[antoinepoirier]

Pardonne-moi pour mon ignorance, mais la commande Selection.name, comment est-elle utilisée ?

Merci pour ton aide

[tototiti2008]

Bonjour,

tu sélectionnes le shape à supprimer
Logiquement son nom apparaît dans la zone Nom, au début de la barre des formules
tu peux aussi voir son nom en exécutant la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub Nom()
Msgbox Selection.Name
End Sub

[antoinepoirier]

Oui d'accord, alors j'ai Rectangle53 et Texte54 comme noms.
Mais c'est étrange car le code me donne comme erreur :

Erreur d'exécution -2147024809 (80070057)
L'élément portant ce nom est introuvable.

Voici la commande que je lui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
                     With mybook.Worksheets(1)
                     .Shapes("Rectangle53").Delete
                    End With

[tototiti2008]

Re,

Et avec "Rectangle 53" (avec un espace) ?

[antoinepoirier]

Re

C'est exactement la même erreur... Tout ce à quoi je pense c'est : est-ce vraiment une shape ? cela expliquerait l'erreur car il trouverait le nom mais pas sous format "shape" ?

[tototiti2008]

Je ne comprends pas, je n'arrive pas à reproduire ton erreur
il faut que tu vérifies tout en débogage
mybook
mybook.worksheets(1)
mybook.worksheets(1).shapes("Rectangle53")
à toi de jouer^^

[Qwazerty]

Salut

Épure ton fichier (Destination) de toutes données confidentielles et poste le, on gagnera du temps

++
Qwaz

[antoinepoirier]

Voici un exemple de fichier Qwaz
La section que je désire écraser est les "paramètres standards"