vba copier onglet dans fichier csv avec boite de dialogue pour le chemin
Bonjour
A la base je suis comptable - CG, mais j'adore l'informatique, je navigue sur le site depuis quelques temps et il m'a permis de m'autoformer sur excel et access
Pour l'instant j'utilise le VBA mais très simplement, ouvrir, actualiser les TCD, naviguer dans un fichier qui a beaucoup d'onglet via des boutons
sur ce fichier j'ai une base récapitulant des écritures à intégrer en automatique dans la compta après l'avoir sauvegarder en Csv
Nous gérons environ 25stés, et cette manip d'exportation sera mensuelle donc annuellement 25*12 = 300 export au minimum
Je souhaite copier cet onglet de mon classeur OD,
ouvrir une boite de dialogue pour que l'utilisateur indique le nom du fichier (l'enregister obligatoirement en csv (avec point virgule en séparateur) dans un chemin spécifique)
et le fermer
et revenir sur mon fichier actif
voici ce que j'ai fait mais il bloque
Sub exporOD()
Dim Fichier As Variant
Sheets("OD").Select
Sheets("OD").Copy
Range("A1").Select
monFichier = Application.GetSaveAsFilename("a:\x\y\2008\odSimul\*.csv),*.csv")
ActiveWindow.Close
' ActiveWorkbook.Close
Range("H1").Select
End Sub
Bonjour
A la base je suis comptable - CG, mais j'adore l'informatique, je navigue sur le site depuis quelques temps et il m'a permis de m'autoformer sur excel et access
Pour l'instant j'utilise le VBA mais très simplement, ouvrir, actualiser les TCD, naviguer dans un fichier qui a beaucoup d'onglet via des boutons
sur ce fichier j'ai une base récapitulant des écritures à intégrer en automatique dans la compta après l'avoir sauvegarder en Csv
Nous gérons environ 25stés, et cette manip d'exportation sera mensuelle donc annuellement 25*12 = 300 export au minimum
Je souhaite copier cet onglet de mon classeur OD,
ouvrir une boite de dialogue pour que l'utilisateur indique le nom du fichier (l'enregister obligatoirement en csv (avec point virgule en séparateur) dans un chemin spécifique)
et le fermer
et revenir sur mon fichier actif
voici ce que j'ai fait mais il bloque
Sub exporOD()
Dim Fichier As Variant
Sheets("OD").Select
Sheets("OD").Copy
Range("A1").Select
monFichier = Application.GetSaveAsFilename("a:\x\y\2008\odSimul\*.csv),*.csv")
ActiveWindow.Close
' ActiveWorkbook.Close
Range("H1").Select
End Sub
Dernière édition: