appel de procédure

[sonskriverez]

bonjour le forum

Je viens d'écrire ce bout de code

Sub toto()

OuvertureCVS ' Chargement du fichier CSV

Cells.EntireColumn.AutoFit ' agrandit toutes les colonnes
Range("A:A,P:V").Delete ' delete A et P à V

End Sub
Sub OuvertureCVS()
NomFic = Application.GetOpenFilename(, , "ouverture d'un CSV")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Activate
End If
End Sub

Si je lance le "pas à pas" l'appel du sub fonctionne et après le End Sub le rtour se fait sur ke Cells.EntireColumn...

Si je lance la macro avec un bouton ou un F5 l'appel du Sub fonctionne mais le retour ne se fait pas !!

Ai-je fait une erreur ? Merci de votre aide

 

[julberto]

Re : appel de procédure

Bonjour sonskriverez,

Peut-être serait-il bon de définir le classeur et la feuille sur laquelle doit s'appliquer Cells.EntireColumn.AutoFit

Workbooks("untel").Worksheets("unetelle").Cells.EntireColumn.AutoFit

cordialement

 

[sonskriverez]

Re : appel de procédure

Bjr,

Ca fonctionne, merci beaucoup