Copie colle VBA fond bleu

gilbert_RGI

XLDnaute Barbatruc

• 2 Juin 2015

• #2

Re : Copie colle VBA fond bleu

Bonjour,

peut-on avoir une copie d'écran ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Juin 2015

• #3

Re : Copie colle VBA fond bleu

Bonjour,

peut être qu'un tout petit bout de ton fichier d'origine nous permettrait de reproduire le problème.... perso vois pas pourquoi excel rajouterait de la couleur et des bordures...

bonne journée
@+

Edition : bonjour Gilbert🙂

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Juin 2015

• #4

Re : Copie colle VBA fond bleu

Bonjour Florian

Ajouter par exemple:
Range("A1").select

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Juin 2015

• #5

Re : Copie colle VBA fond bleu

Voici un exemple du fichier que je copie .

 

Pièces jointes

• 9a2b1c3edb4d412e8af9e5fa5b957806.xls

  31 KB · Affichages: 16

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Juin 2015

• #6

Re : Copie colle VBA fond bleu

J'ai essayé de mettre :

Workbooks(NomFichier).Sheets(1).Copy Before:=Workbooks("essai.xlsm").Sheets(1)
Sheets(1).Range("A1").select

Cliquez pour agrandir...

Mais c'est toujours pareil, je vous mets une copie d’écran pour mieux vous rendre compte

 

Pièces jointes

• img.jpg

  41.8 KB · Affichages: 23
• img.jpg

  41.8 KB · Affichages: 20

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Juin 2015

• #7

Re : Copie colle VBA fond bleu

Re, bonjour PierreJean🙂

a priori un style est appliqué à ton classeur, après la copie rajoute cette instruction...

Code:

    Cells.Style = "Normal"

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Juin 2015

• #8

Re : Copie colle VBA fond bleu

sa fonctionne merci à toi, c'est tu ou le style pourrais se trouver ?

Voici le code qui copie :

Sub OuvertureFichiers(RepertoireFichier, NomFichier)

If Continuer = True And Symptome = True Then
For Each Wb In Workbooks
Select Case Wb.Name
Case NomFichier
Wb.Activate
Continuer = False
Exit For
End Select
Next Wb

If Continuer = True Then Workbooks.Open Filename:=RepertoireFichier & "\" & NomFichier

Workbooks(NomFichier).Sheets(1).Copy Before:=Workbooks("essai.xlsm").Sheets(1)
Sheets(1).Activate
Cells.Style = "Normal"

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Juin 2015

• #9

Re : Copie colle VBA fond bleu

Re,

c'est tu ou le style pourrais se trouver ?

Cliquez pour agrandir...

sur le ruban => onglet "accueil"

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Juin 2015

• #10

Re : Copie colle VBA fond bleu

Étrange mon style est configuré en " Normal "

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Juin 2015

• #11

Re : Copie colle VBA fond bleu

Autant pour moi je m'aperçois que quand je fais ma copie il passe tout seul en " Normal 2" mais bon avec ta combine sa fonctionne nickel merci à toi et bonne journée

 

Vote positif 0 Vote négatif