Recherche:

Super idée..
Merci.

j'ai donc remplacé
' Sheets.Add Type:=FullPath, after:=Sheets("About")

' With ActiveSheet
' .Name = NewName
' End With

Pareil que chez moi!
Par contre, si utilise ton bouton une fois (clique pour rien par ex), ça se remet à planter (même avec une forme quelconque) ??

--> je pense qu'une solution serait de...

Oui mais ça ne change rien...
Est ce que tu arrives à reproduire le problème?

Bonjour à tous les deux,

J'ai essayé de déplacer (et renommer) les fichiers Excel 15.xlb (et aussi Excel 12.xlb) et de voir ce que ça faisait.
Les fichiers ne sont pas recréés et excel se...

Bonjour,

N'ayant toujours pas de solution viable, je me permets de relancer le sujet.

Déjà fait... :)

ça fait pareil avec ScrollBar, Cbbox, CmdButton, ListBox, toggleButton , LblBox et CheckBox ...

Et ce même si les objets sont dans une autre feuille ou autre classeur utilisé...

C'est là qu'est le truc bizarre,

La macro ajoute bien la feuille et fonctionne correctement si aucun objet activeX n'a été utilisé lors de la session Excel.

Par contre, si un objet activeX à eu...

Dans ce cas là, ça m'indique:
C:\Users\UserName\Desktop\VIDE.xlsx
VIDE.xlsx
et ça me crée une nouvelle feuille vide. (puisqu'on n'utiliser pas type:=...)

J'ai fais pas mal d'essais de ce type...

@ Menhir,

ta macro fonctionne (il faut utiliser type:= ... et un objet ActiveX dans la feuille pour que ça plante... c'est le seul cas).


@parmi,

Je crois que c'est ce que je vais faire au...

Désolé de ne pas avoir été clair.

mon bouton marche normalement. (les commandes Debug.Print affichent ce qu'on leur demande ryv).
Donc avec ta macro, j'ai bien dans la fenêtre d'exécution

...

Salut Menhir,



Toujours pareil, le bouton se comporte normalement sauf sur cette ligne de code qui fait planter Excel (Sheets.Add Type:= FullPath).

Bien entendu, FullPath est le chemin d'un...

Bonjour à tous les deux et merci de vos réponses.

Le bouton fonctionne normalement et effectue les actions proprement avant et après cette ligne donc le debug.print est OK.

J'ai essayé de le...

Bonjour à tous,

J'ai un souci assez bizarre depuis quelque temps sous Excel 2013.

Je dois copier une page d'un classeur vers un autre. Pour cela, j'utilise le code suivant (à l'aide d'un...

Bonjour,

je cherche à créer un type personnalisé et à restreindre ses valeurs par exemple:

Public Type tpMyType
MaCouleur As string ' Et là j'aimerai autoriser uniquement Rouge Bleu et Noir....

Bonjour, et merci de ta réponse,

En fait, je voulais éviter d'avoir recours à l'affichage et utiliser plusieurs concaténations successives pour ajouter progressivement des informations.
Je pense...

Bonjour,

J'aimerais réaliser la concaténation de deux Matrices via VBA:

Soient A(1 to N, 1 to M) et B (1 to P, 1 To M), deux tableaux de données de type Variant j'aimerais avoir un tableau de...

Bonjour,

J'aimerai savoir s'il est possible, avec une unique procédure, de récupérer plusieurs outputs.

Par exemple concret, dans le cas de la découpe d'un chemin de type:...

Merci de ta réponse rapide.

En réalité, je cherche vraiment a réaliser un diagramme type "réseau" qui mettrait bien en évidence les liens entre les groupes de fonctions.
(Cela dit, je ne sais...

Bonjour,

Existe-t-il un moyen d'afficher un diagramme visuel des liens existant entre les diverses fonctions/modules/procédures créées sous VBA, qui indiquerait quelles fonctions appellent quelles...

Bonjour,

J'aimerai comprendre un peu mieux le dimensionnement d'une sélection via la commande A=Range(...) pour le cas d'une liste à 1 dimension.

Prenons le cas d'une liste de 4 éléments:...

Merci,
C'est bien ce que je cherchais (Moyennant tout de même quelques adaptations).
En connaissant les propriétés d'affichage des séries (Marker+Color), je peut remonter à la légende..
Nickel
...

Bonjour,

Ta problématique est assez intéressante d'autant plus qu'en la customisant un peu, ca te donne la possibilité de coder PAC-MAN... en effet, imagine que ton virus intelligent soit un...

essaye ça:
A = "F1 10000 Rev A.docx"
Cells(i, 11) = Mid(A, 14, 1)
Cells(i, 10) = Left(A, 7)

si jamais tu veut vraiment prendre le dernier caractère avant le point ( si ton nom de fichier varie...

Bonjour,

pour reposer le problème plus clairement:

Lorsque plusieurs séries de données sont ajoutées à un graphique via la commande ChartObjects("Chart 1").Chart.SeriesCollection.Newseries, la...

Bonjour, Merci de ta réponse.

Je ne cherche pas a renvoyer directement à ma série de données depuis mon objet légende, mais bien à retrouver (indirectement s'il le faut), à quelle légende...