Discussion :

[zak-mouk]

Bonjour,
Je viens vers vous pour demande de l'aide, ça fait un petit moment que j'ai commencé a développer des macros excel avec vba, donc je suis pas un pro .
Donc je cherche est une macro dans un fichier excel qui permet d'appliquer une macro à un fichier excel sélectionné ou chargé d'un répertoire, ensuite enregistrer une copie de fichier en ajoutant un indice pour le distinguer de fichier origine avec la modification appliquer par la macro, dans mon cas je voudrais appliqué cette macro au fichier sélectionné ou chargé:

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
Sub DeleteEmtiesLines()
'
' DeleteEmtiesLines Macro: Delete the empty lines
'
Dim i As Integer
 
'We cover the column A
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
'Rows.count return the number of lines of the range selected
	'If the column is not empty, and his offset(0,1) or offset(0,3) is empty
    If Not IsEmpty(Range("A" & i).Value) And (IsEmpty(Range("A" & i).Offset(0, 1).Value) Or IsEmpty(Range("A" & i).Offset(0, 3).Value)) Then
		'remove the ligne
		Rows(i).EntireRow.Delete
    'If the column is empty, and his offset(0,1) or offset(0,3) is not empty
    ElseIf IsEmpty(Range("A" & i).Value) And (Not IsEmpty(Range("A" & i).Offset(0, 1).Value) Or Not IsEmpty(Range("A" & i).Offset(0, 3).Value)) Then
        'remove the ligne
		Rows(i).EntireRow.Delete
    'If the column is empty, and his offset(0,1) or offset(0,3) is empty    
    ElseIf IsEmpty(Range("A" & i).Value) And (IsEmpty(Range("A" & i).Offset(0, 1).Value) Or IsEmpty(Range("A" & i).Offset(0, 3).Value)) Then
        'remove the ligne
		Rows(i).EntireRow.Delete
    End If
Next i

Si vous avez une idée n'hésitez pas.
merci

[kiki29]

Salut, pour la génération de fichiers sans doublons voir ici la fonction RenommerFichierPDF(sChemin As String, sNomFichier As String) As String en l'adaptant à ton contexte, il y a d'autres exemples ici et là

Pour le reste une recherche dans les FAQs et Tutos

[zak-mouk]

Salut,
Je pense que je suis sur a bonne piste de ce que je cherche, je suis arrivé à ce code

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
Sub test()
'
' test Macro
'
Dim Ws As Worksheet
Dim i As Integer
Dim NomFichier As String
Dim Wk As Workbook
 
NomFichier = Application.GetOpenFilename
Set Wk = Workbooks.Open(NomFichier)
MsgBox "You choosed the file named : " & Wk.Name
 
Set Ws = Wk.Worksheets(5)
 
For i = Ws.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    MsgBox i
'Rows.count return the number of lines of the range selected
    'If the column is not empty, and his offset(0,1) or offset(0,3) is empty
    If Not IsEmpty(Ws.Range("A" & i).Value) And (IsEmpty(Ws.Range("A" & i).Offset(0, 1).Value) Or IsEmpty(Ws.Range("A" & i).Offset(0, 3).Value)) Then
        'remove the ligne
        Ws.Rows(i).EntireRow.Delete
    'If the column is empty, and his offset(0,1) or offset(0,3) is not empty
    ElseIf IsEmpty(Ws.Range("A" & i).Value) And (Not IsEmpty(Ws.Range("A" & i).Offset(0, 1).Value) Or Not IsEmpty(Ws.Range("A" & i).Offset(0, 3).Value)) Then
        'remove the ligne
        Ws.Rows(i).EntireRow.Delete
    'If the column is empty, and his offset(0,1) or offset(0,3) is empty
    ElseIf IsEmpty(Ws.Range("A" & i).Value) And (IsEmpty(Ws.Range("A" & i).Offset(0, 1).Value) Or IsEmpty(Ws.Range("A" & i).Offset(0, 3).Value)) Then
        'remove the ligne
        Ws.Rows(i).EntireRow.Delete
    End If
Next i
End Sub

Par contre y'a un probleme avec la boucle for, il ne parcourt pas la colonne A, si vous avez une idée de d'ou vient le problème sera la bienvenue.