Bonjour,

J'effectue des export d'une feuille et comme certaines de mes cellules contiennent plus de 255 caractères.... automatiquement, lors de mon export Excel tronque certains caractères...

J'ai été sur le forum et sur le site de microsoft, et il semble que je vais devoir vivre avec sauf :
1- S'il existe un code pour ne plus avoir ce pb
ou
2- s'il existe un moyen de limiter le nombre de caractère < 255 ? et si je saisis plus, automatiquement un message apparaît...

Qu'est ce que vous me conseillez ? Si je dois opter pour la solution 2), auriez vous un code, ou moyens sous excel pour y arriver.

Voici mon code, entrainant le troncage....un peu du bricolage... mais cela fonctionne à part les troncages :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub CommandButton5_Click() 

	

		

			

			
				je clique sur un bouton pour déclencher l'export
			
		

	


Dim Wb As Excel.Workbook, WbCopie As Excel.Workbook
Dim NomFeuille As String
Sheets("A").Range("B5:P1500").Copy

	

		

			

			
				La feuille à copier
			
		

	


Sheets("B").Range("B5").Select

	

		

			

			
				Comme ma sélectionne contient un filtre et je ne veux copier que des lignes "filtrée".., je passe par une autre feuille dans laquelle je vais faire un collage spéciale de valeur, ligne ci-après
			
		

	


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("A").Range("B5:P1500").Copy 

	

		

			

			
				 Le format de ma feuille B danslaquelle j'ai collé mes valeurs n'est pas beau, je fais un collage spéciale de format, ligne suivante
			
		

	


Sheets("B").Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
NomFeuille = "B" 

	

		

			

			
				je donne le nom de ma feuille à extraire
			
		

	


Set WbCopie = Excel.ActiveWorkbook
WbCopie.Worksheets(NomFeuille).Copy
ActiveSheet.Name = ("Exportés réussi")
ActiveSheet.Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Style = vbOKOnly
Msg = " Veuillez 'Enregistrer sous' la feuille exportée !"
Title = "Vous venez d'exporter avec succès cette feuille"
Réponse = MsgBox(Msg, Style, Title)
Application.Dialogs(xlDialogSaveAs).Show
End Sub