JerCaz
XLDnaute Occasionnel
Bonjour le forum,
je viens solliciter votre aide face à un petit problème que je n'arrive pas à résoudre...
J'ai réalisé une application sous excel 2002, et une macro permettant d'exporter dans un nouveau fichier excel le contenu des cellules A1 à Z40 par copier/coller, en VBA.
Seulement, j'ai dans cette sélection 2 objets (une image et un trait), que je n'arrive pas à inclure à mon "copier/coller" en VBA...
J'ai cherché la réponse à mon problème dans les archives du forum, j'ai vu la demande de "bobnath" sur son "copier/coller en vba" mais qui ne m'aide pas.
Utilisant une connexion ultra bridée sur mon lieu professionnel (là où j'ai créé mon fichier...), je ne peux pas vous joindre un extrait de ce fichier par "ci-joint".
Je vous joint donc directement mon bout de code, espérant que ça vous sera utile et suffisant...
Je voudrais inclure dans ma sélection à copier les objets suivants:
- "Line 6"
- "Picture 2"
Je connais les noms de ces objets car j'ai utilisé l'outil de création de macros... mais quand je veux inclure cette sélection à mon code ci-dessus, j'obtiens un message d'erreur... D'ailleurs, voici le code qu'il me propose:
J'ai donc essayé d'inclure ce bout de code en dessous de "Range("A1:Z40").Select".
Et là, c'est le drame... voici mon message d'erreur:
Or, j'utilise un collage spécial car je veux conserver la mise en forme avec les formats de cellules, et les valeurs, mais pas de liens...
Je me tourne donc vers des pros qui sauront m'aider à débrouiller cette énigme...
Vous remerciant par avance de l'aide que vous pourrez m'apporter...
Cordialement,
JerCaz
je viens solliciter votre aide face à un petit problème que je n'arrive pas à résoudre...
J'ai réalisé une application sous excel 2002, et une macro permettant d'exporter dans un nouveau fichier excel le contenu des cellules A1 à Z40 par copier/coller, en VBA.
Seulement, j'ai dans cette sélection 2 objets (une image et un trait), que je n'arrive pas à inclure à mon "copier/coller" en VBA...
J'ai cherché la réponse à mon problème dans les archives du forum, j'ai vu la demande de "bobnath" sur son "copier/coller en vba" mais qui ne m'aide pas.
Utilisant une connexion ultra bridée sur mon lieu professionnel (là où j'ai créé mon fichier...), je ne peux pas vous joindre un extrait de ce fichier par "ci-joint".
Je vous joint donc directement mon bout de code, espérant que ça vous sera utile et suffisant...
Code:
Range("A1:Z40").Select 'sélection de la zone à copier
Selection.Copy 'on copie dans le presse papier
Workbooks.Add 'créaton d'un nouveau fichier xls
Range("A1").Select
ActiveSheet.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'collage spécial des valeurs
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'collage spécial des formats
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'collage spécial des largeurs de colonnes
ActiveSheet.Name = "Tableau" 'on renomme l'onglet du tableau du nouveau fichier
Je voudrais inclure dans ma sélection à copier les objets suivants:
- "Line 6"
- "Picture 2"
Je connais les noms de ces objets car j'ai utilisé l'outil de création de macros... mais quand je veux inclure cette sélection à mon code ci-dessus, j'obtiens un message d'erreur... D'ailleurs, voici le code qu'il me propose:
Code:
ActiveSheet.Shapes("Line 6").Select
ActiveSheet.Shapes.Range(Array("Line 6", "Picture 2")).Select
Selection.Copy
J'ai donc essayé d'inclure ce bout de code en dessous de "Range("A1:Z40").Select".
Et là, c'est le drame... voici mon message d'erreur:
Erreur d'exécution '1004'
La méthode PasteSpecial de la classe Range a échoué
Or, j'utilise un collage spécial car je veux conserver la mise en forme avec les formats de cellules, et les valeurs, mais pas de liens...
Je me tourne donc vers des pros qui sauront m'aider à débrouiller cette énigme...
Vous remerciant par avance de l'aide que vous pourrez m'apporter...
Cordialement,
JerCaz
Dernière édition: