P
Pascal
Guest
Salut,
Bon je débute alors c'est peut-etre l'enfance de l'art mais je ne sais pas comment faire.
Je souhaiterais copier des feuilles excel vers un nouveau classeur. Le problème c'est que j'aimerais ne pas copier les feuilles qui ont, par exemple, plus de 20 cellules vides qui se suivent sur une colonne.
Je ne suis peut-etre pas très clair, alors j'ai joint un exemple.
Voici ma commande pour enregistrer toutes les feuilles:
Set NvClasseur = Workbooks.Add
Windows("DEVIS.xls").Activate
Sheets(Array("Chauffage", "Rafraichissement", "Climatisation", "Ventilation", "Plomberie", "Electricite", "Locaux_Techniques")).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)
fName = Application.GetSaveAsFilename
If fName = Fauxxls Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Exit Sub
Else
NvClasseur.SaveAs FileName:=fName & "xls"
ActiveWorkbook.Close
End If
Merci de votre aide et bon weekend à tous
Bon je débute alors c'est peut-etre l'enfance de l'art mais je ne sais pas comment faire.
Je souhaiterais copier des feuilles excel vers un nouveau classeur. Le problème c'est que j'aimerais ne pas copier les feuilles qui ont, par exemple, plus de 20 cellules vides qui se suivent sur une colonne.
Je ne suis peut-etre pas très clair, alors j'ai joint un exemple.
Voici ma commande pour enregistrer toutes les feuilles:
Set NvClasseur = Workbooks.Add
Windows("DEVIS.xls").Activate
Sheets(Array("Chauffage", "Rafraichissement", "Climatisation", "Ventilation", "Plomberie", "Electricite", "Locaux_Techniques")).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)
fName = Application.GetSaveAsFilename
If fName = Fauxxls Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Exit Sub
Else
NvClasseur.SaveAs FileName:=fName & "xls"
ActiveWorkbook.Close
End If
Merci de votre aide et bon weekend à tous