Discussion :

[pepsister]

Bonjour,

Via une macro, je copie tous un onglet d'un fichier A vers un fichier B.

Dans ma première colonne, j'ai une donnée en format standard qui correspond à une date sous la forme mm.aaaa

Je ne l'ai pas mis en format date exprès pour ne pas galérer car je fais ensuite des comparaisons et au final il me le recopie en format standard mais comme un nombre. Je prends un exemple, je cherche à copier 03.2019 et je retrouve dans mon coller 3,2019.

Comment faire?

Voici mon code de copie-colle:

Code :

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

macro.Sheets(date_traitement).Range("A" & NbLigneAno & " : " & "I" & NbLigneAno + NbL - 2).Value = reporting.Sheets(ws.Name).Range("A" & "2" & ":" & "I" & NbL).Value

Merci de votre aide,

[Philippe Tulliez]

Bonjour,

Via une macro, je copie tous un onglet d'un fichier A vers un fichier B.

Pour copier une feuille d'un classeur vers un autre, on utilise la méthode Copy de l'objet Worksheet

Exemple de la copie de la feuille nommée TimeSheet du classeur Toto.xlsx avec comme destination le classeur nommé titi.xlsx avant la première feuille de celui-ci

Code :

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

1
2
3
4
5
Sub t() 
  Dim shtSource As Worksheet 
  Set shtSource = Workbooks("Toto.xlsx").Worksheets("TimeSheet")
  shtSource.Copy Before:=Workbooks("Titi.xlsx").Worksheets(1)
End Sub

[Menhir]

Je ne l'ai pas mis en format date exprès pour ne pas galérer car je fais ensuite des comparaisons

C'est une étrange déclaration.
Je pense au contraire que mettre une date en texte est le meilleur moyen de "galérer".

Le meilleur conseil que je peux te donner est de mettre une vraie date dans ta cellule avec un format date propre.

je cherche à copier 03.2019 et je retrouve dans mon coller 3,2019.

Si tu persistes dans ce mauvais choix, il faut que tu commences par mettre ta cellule destination au format texte et que tu y copies ensuite la valeur de la cellule source avec un PasteSpecial(xlPasteValue) ou un transfert par valeur du type Cible.Values = Source.Text.