Programme Génération de fichiers - problème de format de cellule
Fermé
soflab
Messages postés
1
Date d'inscription
vendredi 6 février 2015
Statut
Membre
Dernière intervention
6 février 2015
-
Modifié par pijaku le 6/02/2015 à 10:45
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 6 févr. 2015 à 18:26
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 6 févr. 2015 à 18:26
A voir également:
- Programme Génération de fichiers - problème de format de cellule
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
- Wetransfer gratuit fichiers lourd - Guide
- Format de menace perver - Forum Vos droits sur internet
- Telecharger format factory - Télécharger - Conversion & Codecs
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
6 févr. 2015 à 12:04
6 févr. 2015 à 12:04
Bonjour,
pas de probleme de format cellule !!!!
par contre
columns.count=16384 si excel2007 et plus ou 255 excel 97-2003
j'ai mis derniere colonne utilisee ligne 1
pas de probleme de format cellule !!!!
par contre
columns.count=16384 si excel2007 et plus ou 255 excel 97-2003
j'ai mis derniere colonne utilisee ligne 1
Sub a()
Dim i As Long, nwbk As Workbook, chemin$
chemin = "d:\_atest\"
Application.ScreenUpdating = False
With ThisWorkbook.ActiveSheet
'dernier colonne utilisee ligne 1
derco = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To derco
If .Cells(1, i) <> "" Then
Set nwbk = Workbooks.Add(-4167)
.Range("A1:A20").Copy nwbk.Sheets(1).[A1]
.Cells(1, i).Resize(.Cells(.Rows.Count, i).End(xlUp).Row).Copy nwbk.Sheets(1).[B1]
nwbk.SaveAs chemin & .Cells(1, i)
nwbk.Close True
End If
Set nwbk = Nothing
Next i
End With
End Sub
6 févr. 2015 à 12:38
6 févr. 2015 à 13:34
Sub a() Dim i As Long, nwbk As Workbook, chemin$ chemin = "d:\_atest\" Application.ScreenUpdating = False With ThisWorkbook.ActiveSheet 'dernier colonne utilisee ligne 1 derco = Cells(1, Columns.Count).End(xlToLeft).Column For i = 2 To derco If .Cells(1, i) <> "" Then Set nwbk = Workbooks.Add(-4167) .Range("A1:A20").Copy nwbk.Sheets(1).[A1] .Cells(1, i).Resize(.Cells(.Rows.Count, i).End(xlUp).Row).Copy nwbk.Sheets(1).[B1] 'largeurs colonnes fonction contenu nwbk.Sheets(1).Cells.EntireColumn.AutoFit nwbk.SaveAs chemin & .Cells(1, i) nwbk.Close True End If Set nwbk = Nothing Next i End With End Sub6 févr. 2015 à 15:38
erreur d exécution 1004 fichier inaccessible. A quoi cela peut être du? Merci encore
6 févr. 2015 à 18:26
200 fichiers a creer,faudrait mettre une attente entre deux creations de fichier
voir ceci
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.wait?redirectedfrom=MSDN