creation de fenetres a l'aide de macros

dsl j'avais pas vu le topic aide macro donc inutile de repondre merci

Arghhhh. x_x Ici, c'est particulier : c'est chacun sa question.

Tu vois tu as créé un sujet "Programmation Macros". Tu n'as quand même pas l'intention que toutes les questions concernant la programmation et les macros tombent ici ?

Bon, dans ce sujet http://www.presence-pc.com/forum/ppc/Programmation/aide... c'est pareil. Le titre est tellement évasif que tu penses légitime d'y poster ta question. Donc, je t'invite à modifier le titre de ton sujet et à attendre les réponses ici. Pour cela clique sur et changes-en.

Merci

Qu'est-ce qui pose problème ? Juste donner un nom et/ou un chemin au fichier ou plus globalement comment enregistrer ?

N'hésite pas à publier un bout de code pour qu'on se rende compte de ce qui te manque. (/!\ à l'art de publier du code : cf. les règles )

For i = 1 To nbfiles
    specfichier = .FoundFiles(i)
    Workbooks.Open Filename:=specfichier
    specfichier = specfichier & ".xls"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=specfichier, FileFormat:=xlNormal
    ActiveWorkbook.Close
 Next i

voici un bout du code. Je cherche a ouvrir des fichiers texte, Published...
Puis il faut les sauver sous format excel, et donc mon probleme est :
qaund j'enregistre, le fichier se trouve a l'enplacement du fichier source,
donc si j'execute le programme plusiers fois, je me trouve avec un nom de fichier trop long :
ex : nomfichier.xls.xls donc je voudrai sauvegarder les fichiers dans un autre dossier

J'vais ptet dire une connerie (et je compte sur "Super-Zeb" pour me crever les yeux dans ce cas ^^), mais l'attribut "FileFormat" n'est pas necessaire, car Filename contient deja l'extension du fichier... ce qui donne :

ActiveWorkbook.SaveAs Filename:=specfichier

oui exact mais je l'avais mis pour voir si il mettait l'extension automatiquement mais comme ce n'etait pas le cas alors j'ai ajouter

specfichier = specfichier & ".xls"

merci pour cette correction mais cela ne repond toujours pas a ma question

En théorie c'est tout bête le chemin contenu dans specfichier est le chemin complet du fichier que tu ouvres : donc "c:\toto.txt" par exemple et devient "c:\toto.txt.xls" ce qui n'est pas terrible.

Donc créer tout bêtement une variable pour tes fichiers de sorti.
Tu peux te servir par exemple de :

- Une variable avec le répertoire de sorti
- tu récupères le nom du classeur avec activeworkbook.name
- tu vires l'extention avec instr() left() mid()
- tu rajoutes l'extention désirée.
- tu créé ton chemin complet de sorti...

vous pouvais m'expliquer comment se servir de instr(), left() et mid()
merci beaucoups

C bon j'ai trouver comment m'en servir mais le probleme est que le nom d'un fichier peut etre plus long donc je peux pas me servir de left() et avec right() j'obtiens que l'extention, que faire ?

C'est simple si tu as une variable contenant "c:\toto.txt" et tu veux avoir au final une copie excel des fichiers dans un autre repertoire et en format xls. Qu'est que qu'il faut faire pour cela

Récupérer le nom du fichier : Activeworkbook.name => toto.txt
Trouver la position de .txt dans le nom : Instr() => 5
Récupérer la partie à gauche de cette position : left() => toto
rajouter le repertoire et la nouvelle extention : "C:\sorti\toto.xls"

ici le mid ne sert pas mais ca fait partie des fonctions utiles à connaitre.

ok mais le probleme est que j'ai plusieurs fichiers avec un nom different
ex toto.txt
nomfichier.txt
alors je me retrouve avec
Instr() => 5
left() => nomf
(je me trompe peut-etre ?)

Lis l'aide la fonction Instr... C'est un traitement à effectuer dans ta boucle et tout tes fichiers sont avec l'extention ".txt"... Tu devrais trouver tout seul ce qu'il faut faire.

non justement, il peut y avoir des fichiers doc , des fichiers published ...

Ben tu as plus espérer qu'il n'y ait pas de . dans les noms de fichiers avant l'extention  

c pas un probleme merci beaucoups

1 derniere question, comment on ajoute un repertoire ?

MkDir

ok mais j'arrive pas a enregistrer dedans merci de m'aider
(dsl mais je suis tellement nul )

Si on reprend ton programme...

For i = 1 To nbfiles
    specfichier = .FoundFiles(i)
    Workbooks.Open Filename:=specfichier
    specfichier = specfichier & ".xls"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=specfichier, FileFormat:=xlNormal
    ActiveWorkbook.Close
Next i

Normalement FoundFiles provient de l'utilisation de application.FileSearch normalement ca renvoie le nom et le chemin du fichier. donc specfichier doit valoir <chemin> + <nom> + <extention>

Tu veux sauvegarder le meme nom de fichier en changeant le répertoire et l'extention. Donc en gros i te faut une variable pour le répertoire et une pour le nom du fichier.

Dim sRep as variant 
Dim sfile  as variant 
 
sRep = "C:\output\" 'par exemple
For i = 1 To nbfiles
    specfichier = .FoundFiles(i)
    Workbooks.Open Filename:=specfichier
    sfile = activeworkbook.name 'renvoie le nom du classeur sans le chemin 
    sfile = left(sfile, instr(sfile,".") -1) & ".xls" 'change l'extention
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=sRep & sfile, FileFormat:=xlNormal
    ActiveWorkbook.Close
Next i

Pas plus compliquer que ca

SUPER !!!!!!!!!!!!!!!!!!!!!!!!!
Merci beaucoup c cool d'etre aider par des gens qui s'y connaissent

test

une autre question :
je voudrai creer une fenetre de saissi a l'aide d'une macro.
la fenetre doit etre telle que l'on peut y ecrire un nom puis d'appuiler sur ok pour valider

J'ai trouver la reponse merci

Ben il y a la question mais pas la réponse
Vas-y, exprime-toi. Comment as-tu fait ?
(InputBox ?)

dsl voici ma reponse :

fichier = Application.InputBox(ct, "nom d'un fichier: ", "fichier")

je croiait que c'etait plus compliquer que sa pour creer une fenetre tanpis pour moi

application c'est pas necessaire  

ah bon ? prk ? quand je l'enleve le programme marche plus pourquoi ?

Bonne question c'est étonnant comme truc...

fichier = InputBox(ct, "nom d'un fichier: ", "fichier" )

Ca marche très bien chez moi, et je l'ai toujours utilisé comme cela... La j'avoue que je ne sais pas pourquoi.

oui c bizzare en + chz moi ça marche avec le point

.InputBox(ct, "nom d'un fichier: ", "fichier" )

  C'est Application. (avec le point) qu'il n'est pas nécessaire de mettre. Tu confirmes BiereBlanche ?

c moi que tu appelle BiereBlanche ?
(ce n'est pas une menasse)

Ben oui  

ah ok on me l'avais pas encore sortie celle la ^^

une autre question : comment cofigurer les boutons de la fenetre ?
(genre quand on appui sur "cancel" on sort de la macro)

Ben quoi, c'est bien une bière blanche la hoegaarden, non ?

Faut associer du code à ton bouton
Pour quitter :

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Stro facile  

Enfin tu as trouvé une réponse Zeb  

oui sa je sais pour ce type de bouton mais c un bouton qui se trouve dans une fenetre apart
voici le programme en entier :

Option Explicit
    Public dossier
    Public Type BROWSEINFO
        hOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        iImage As Long
    End Type
    '32-bit API declarations
    Declare Function SHGetPathFromIDList Lib "shell32.dll" _
    Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
    Declare Function SHBrowseForFolder Lib "shell32.dll" _
    Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function GetDirectory(Optional Msg) As String
    Dim bInfo As BROWSEINFO, path As String, r As Long, x As Long, pos As Integer
    bInfo.pidlRoot = 0&
    If IsMissing(Msg) Then
        bInfo.lpszTitle = ""
    Else
        bInfo.lpszTitle = Msg
    End If
    bInfo.ulFlags = &H1
    x = SHBrowseForFolder(bInfo)
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        GetDirectory = Left(path, pos - 1)
    Else
        GetDirectory = ""
    End If
End Function
Sub File_Openen()
    'Doel : Files verwerken
    '
    Dim fs, i, namefile, FileNumber, specfichier, nbfiles, r, Srep, folder, ct
    dossier = GetDirectory("Kies een folder")
    If dossier <> "" Then
        Set fs = Application.FileSearch
        With fs
            .LookIn = dossier
            .SearchSubFolders = True
            .FileType = msoFileTypeAllFiles
            If .Execute() > 0 Then
                nbfiles = .FoundFiles.Count
                MsgBox "Er zijn " & nbfiles & " Files."
                folder = InputBox(ct, "choisir un nom : ", "nom fichier")
                    Srep = "C:\Documents and Settings\boermansj\My Documents\" & folder & "/"
                    MkDir ("C:\Documents and Settings\boermansj\My Documents\" & folder)
 
                    For i = 1 To nbfiles
                    specfichier = .FoundFiles(i)
                    Workbooks.Open Filename:=specfichier
                    namefile = ActiveWorkbook.Name
                    namefile = Left(namefile, InStr(namefile, ".") - 1)
                    specfichier = namefile & ".xls"
                    Application.DisplayAlerts = False
                    ActiveWorkbook.SaveAs Filename:=Srep & specfichier
                    ActiveWorkbook.Close
                Next i
            Else
                MsgBox "Geen files gevonden."
            End If
        End With
    End If
End Sub

vous allez voir que l'on doit entrer un nom pour creer un dossier et je veux que quand on appui sur cancel,
on quitte le programme
(NB : il y a des choses en neerlandais je vous prie de m'en excuser mais je fais un stage chez thomson merci)

Quand tu appuie sur cancel sur le dossier ca fonctionne, enfin il me semble. Après il suffit de traiter le cas "" dans ta fonction inputbox.

Par contre tu devrais jeter un oeil sur la fonction : Application.GetOpenFilename

Merci pour l'info mais je ne vois pas ce qu'il faut faire avec Application.GetOpenFilename et aussi comment traiter le cas "" dans ma fonction inputbox.

Argggh. Pas compris que tu parlais de InputBox  
J'ai l'air con maintenant, et Freeman en profite.

he oui c sa la concurance le plus rapide gagne lol
bon et sinon vous pouvais m'expliquer comment on fait ?
Merci

J'avais mal regardé tu créé un dossier donc c'est moins utile.
Pour le cas "" il suffit de tester la valeur de folder après l'inputbox, si il vaut "" c'est qu'il y a eu annulation enfin vérifie sur l'aide de la fonction.

Par contre je comprend pas ceci : "C:\Documents and Settings\boermansj\My Documents\" puisque juste avant tu récupère un répertoire dans la variable dossier?

je l'ai fais comme sa pour pouvoir changer le chemin.
car ce programme ne sera pas executer que sur mon pc et aussi je ne veux pas que les fichiers enregistrer soient avec les fichiers ouvert voila pour cela
J'ai un autre probleme un peu plus compliquer mais il faut que je vous donne un fichier comment faire ?