Bijour, tous le monde alros voila je suis une mer** en VBA toutefois j'arrive a comprendre lorsque que je le lis (uno punco) mais euh..j'ai essayer de me construire une macro sous excel a l'aide de plusieurs macro.....le probleme et ya une ligne ou y bloque..j'ai noté lendroit ou ca blok ds le code...(vs: '------c ici que ca merdouille-------)
comme jarrive a le lire pa a lecrire..j'arrive pas a lui dire d'executer la suite de la macro sur la feuille1 du nouveau fichier créé...j'ai essayé

windows (nomFichierSortie) . activate
wkbnews. open nomfichiersortie
activate(nomfichiersortie)
et jai des erreurs 1004' ou 234' ou 9..enfin bref ca marche pas

voila je pense c que pas trop compliqué et meme tout bete mais je dois pas en etre loin



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
Private Sub cmdExploiter_Click()
 Dim nomFichiertraite As String
 Dim nomFichierSortie As String
 Dim wkbDonnées As Workbook
 Dim wkbNew As Workbook
 Dim wshDonnées As Worksheet
 Dim wshSortie As Worksheet
Dim NbrLigneFichierX As Integer
Dim i As Long
 
 
   ChDir (ThisWorkbook.Path)
  nomFichiertraite = Application.GetOpenFilename("Classeur Microsoft Excel (*.xls),*.xls", 1, "Sélectionner le fichier à contenant les données")
 
  If nomFichiertraite = "Faux" Then Exit Sub
 
  Workbooks.Open nomFichiertraite
  Set wkbNew = Workbooks(Workbooks.Count)
    nomFichierSortie = Application.GetSaveAsFilename("", "Classeur MiscrosoftExcel (*.xls), *.xls", 1, _
                             "FICHIER DE SORTIE POUR DATABASE:taper le nom du fichier de sortie")
 
If nomFichierSortie = "Faux" Then Exit Sub
 
  wkbNew.SaveAs (nomFichierSortie)
 
 
' convercolonne Macro
' Macro pour separer la colonne trial et lieu attention celle ci
' -----------------"C ICI que ca merdouill"----------------------
 
      Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("N:N").Select
       Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 2), Array(2, 1)), TrailingMinusNumbers:=True
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "LIEU"
PS: tant que ya qqlun pour maider pouvez me dire au lieu de demander de selectionner la colonne O:O comment je pe lui demander de selectionner la colonne avec l'entete "genotype" merki merki merki!!!