Copie colle VBA fond bleu

[Florian53]

Bonjour j’exécute un code VBA afin de copier une feuil dans un autre classeur cela fonctionne bien par contre lors de la copie les cellules sont bleu avec des bordures alors que dans le fichier d'origine les cellules sont " normales " ( blanches et sans bordures).

Voici le code :

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

Comment faire pour qu'elles se collent sans couleur et sans bordure ?

Cordialement

 

[gilbert_RGI]

Re : Copie colle VBA fond bleu

Bonjour,

peut-on avoir une copie d'écran ?

 

[Pierrot93]

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🙂

 

[pierrejean]

Re : Copie colle VBA fond bleu

Bonjour Florian

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

 

[Florian53]

Re : Copie colle VBA fond bleu

Voici un exemple du fichier que je copie .

 

[Florian53]

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

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

 

[Pierrot93]

Re : Copie colle VBA fond bleu

Re, bonjour PierreJean🙂

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

    Cells.Style = "Normal"

 

[Florian53]

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"

 

[Pierrot93]

Re : Copie colle VBA fond bleu

Re,

c'est tu ou le style pourrais se trouver ?

sur le ruban => onglet "accueil"

 

[Florian53]

Re : Copie colle VBA fond bleu

Étrange mon style est configuré en " Normal "

 

[Florian53]

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