Discussion :

[anisr]

Bonjour,

Je veux executer un code VBA qui fonctionne en l'affectant à un bouton. Ceci marche sans dificultés si le bouton est dans la feuille en question. Actuellement je veux réunir tous les boutons dans la feuille N1 pour plus d'efficacité, le problème que les codes ne fonctionne plus que faire?

Merci de votre aide

[ouskel'n'or]

Tu le prends où, ton bouton ?
Et si tu nous mettais le code que tu as "derrière" ?
A+

[anisr]

Le code crée des fichiers text à partir d'élements renseignés dans le feuille 2

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
Sub EcrireDansUnTxt()
 
Dim intFic As Integer, DerniereLigne As Long, DerniereColonne As Integer
Dim NoLigne As Long, NoCol As Integer, NomFich As String
'Je suppose que tu n'as pas de ligne ni de colonne vide,
'et que tu veux copier les données de la 2ème à la dernière colonne renseignée
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
intFic = FreeFile
    For NoLigne = 2 To DerniereLigne '2 si tu as une ligne d'entête
        NomFich = Cells(NoLigne, 1).Value
        Open "c:\txt\" & NomFich & ".txt" For Output As intFic
            For NoCol = 2 To DerniereColonne - 1
                Print #intFic, Cells(NoLigne, NoCol) & ","; ' (*) le ; évite le retour à la ligne
            Next
            Print #intFic, Cells(NoLigne, NoCol) 'finit la ligne sans séparateur
        Close intFic
    Next
End Sub

A+

[SfJ5Rpw8]

ben faut préciser la feuille.... pour tout tes ranges et cells...

par exemple

Code :

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

1
2
3
4
5
 
dim fs as workSheet ' feuille source
set fs = thisworkbook.sheets("feuil2")
 
..

puis tous les range , cells... de ton code sont à remplacer par fs.range , fs.cells..

[anisr]

ça marche bravo.