Discussion :

[benjisan]

Rebonjour à tous,

Ma question est très simple mais je cherche depuis 1H et impossible de le faire proprement.

Je cherche simplement à créer un fichier excel, jusque la c'est simple mais je souhaite le placer ou je veux exemple "Mes documents"

Voci mon code pour l'instant mais il ne fonctionne pas correctement

Code :

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

1
2
3
4
5
var = "C:\Documents and Settings\" & Userlogin & "\My Documents\Import\Excel\Rapport_Dep_" & cmb_dep.Column(1, w) & "_" & supda
Set xlApp = New Excel.Application
Set classeur = xlApp.Workbooks.Add
xlApp.Application.ActiveWorkbook.SaveAs Filename:=var
xlApp.Quit

Pourriez-vous me dépanner.

D'avance merci

Benjisan

[aba_tarn]

Essaies ça:

Code :

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

1
2
3
4
5
var = "C:\Documents and Settings\'" & Userlogin & "'\My Documents\Import\Excel\Rapport_Dep_'" & cmb_dep.Column(1, w) & "'_" & supda
Set xlApp = New Excel.Application
Set classeur = xlApp.Workbooks.Add
xlApp.Application.ActiveWorkbook.SaveAs Filename:=var
xlApp.Quit

[benjisan]

Merci pour ta réponse aba_tarn,

Mais je ne vois pas ce que tu as changé à mon code de départ !!

[Invité]

Bonjour

A priori ton Add n'est pas complet, voici tiré de l'aide Excel :

Add, méthode (collection Workbooks)


Crée un nouveau classeur qui devient le classeur actif. Renvoie un objet Workbook.

Syntaxe

expression.Add(Template)

expression Obligatoire. Expression qui renvoie un objet Workbooks.

Template Argument de type Variant Facultatif. Détermine la façon dont le nouveau classeur est créé. Si cet argument est une chaîne spécifiant le nom d'un fichier Microsoft Excel existant, le nouveau classeur est créé sur le modèle du fichier spécifié. Si cet argument est une constante, le nouveau classeur contient une seule feuille du type spécifié. Il peut s'agir de l'une des constantes XlWBATemplate suivantes : xlWBATChart, xlWBATExcel4IntlMacroSheet, xlWBATExcel4MacroSheet, ou xlWBATWorksheet. Si vous n'avez pas spécifié cet argument, Microsoft Excel crée un nouveau classeur avec plusieurs feuilles blanches (le nombre est établi par la propriété SheetsInNewWorkbook).

Remarque

Si l'argument Template spécifie un fichier, le nom de fichier peut inclure un chemin d'accès

Starec

[benjisan]

Désolé pour ma réponse précédente, j'ai vu ce que tu as changé, mais var est une variable, donc il ne faut pas les ' '.
Mais ton écriture est par contre valable dans une requête

[benjisan]

Merci pour l'info starec, mais j'ai déjà fais un petit tour dans l'aide également et j'ai déjà essayé mais malheureusement, cela ne fonctionne pas.

[Mahefasoa]

Bonsoir,

Merci pour ta réponse aba_tarn,

Mais je ne vois pas ce que tu as changé à mon code de départ !!

Les apostrophes! aba_tarn a ajouté des apostrophes!

[benjisan]

Je sais Mahefasoa

Désolé pour ma réponse précédente, j'ai vu ce que tu as changé, mais var est une variable, donc il ne faut pas les ' '.
Mais ton écriture est par contre valable dans une requête

[Mahefasoa]

Re,
Désolé pour le post précédent car je ne savais pas que ça été répondu.
Sinon, le code suivant enregistre le document à l'endroit où je veux.

Code :

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

1
2
3
4
5
6
 
    Dim xls As New Excel.Application
    xls.Workbooks.Add
    xls.Visible = False
    xls.ActiveWorkbook.SaveAs "c:\exemple.xls"
    xls.Quit

Et si je l'adapte à ton code, cela devrait donner:

Code :

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

1
2
3
4
5
6
7
 
var = "C:\Documents and Settings\" & Userlogin & "\My Documents\Import\Excel\Rapport_Dep_'" & cmb_dep.Column(1, w) & "'_" & supda
Dim xlApp As New Excel.Application
xlApp.Workbooks.Add
xlApp.Visible = False
xlApp.ActiveWorkbook.SaveAs var
xlApp.Quit

[benjisan]

Merci beaucoup, je vais tester ton code dès demain matin

Bonne soirée à tous

Benjisan

[cavo789]

Bonjour

Un détail : est-ce que sous Vista le profile de l'utilisateur est toujours dans le folder "C:\Documents and settings" ?

Si tu veux stocker ton fichier dans le folder My Documents, tu es vraiment mieux d'utiliser les API de Windows pour retrouver les noms des folders spéciaux.

Va faire un tour du côté de l'API apiSHGetSpecialFolderLocation avec utilisation de la constante CSIDL_COMMON_DOCUMENTS

Christophe.

[benjisan]

Merci à tous pour vos réponse mais j'ai quand même toujours une petit problème.

Il crée bien mes fichiers dans C:\Documents and Settings\......\My Documents\Import\Excel mais il crée aussi certains fichiers vierge dans C:\Documents and Settings\......\My Documents.

Maintenant comme sugére cavo789, je peux passer par les api's mais je n'ai aucune connaissance à ce niveau, j'ai déjà utilisez les api pour afficher la boite de dialogue mais pas pour créer un fichier !!!!

Encore merci pour vos coups de mains

Benjisan

[Mahefasoa]

Bonjour,
L'api proposé par cavo789 ne te permet pas de créer un fichier mais de pouvoir retrouver le chemin d'accès de du dossier Mes documents (celui qui correspond à ton profil).
Le résultat que tu obtiens est assez bizare car je me demande pourquoi il crée d'autre fichier dans un dossier parent du dossier de destination.
Peux-tu poster le code?
Bon courage et @+

[benjisan]

Merci pour ta réponse Mahefasoa,

C'est de ma faute, j'avais copié le code avec les apostrophes et donc je ne sais pour quelle raison, il placait les fichiers au 2 endroits.

C'était très bizzare, mais le problème est résolu et tout fonctionne correctement.

Encore merci à tous

A bientôt

Benjisan